怎么用word中的宏 让图片布满一张纸（有好几百张啊）

1、页面设置中，页边距、页眉页脚余绝都罩毁罩设置为0；
2、运行如下宏物闹程序
Sub 图片大小设置()
Dim p As InlineShape
For Each p In ActiveDocument.InlineShapes
If p.Type = wdInlineShapePicture Then
p.LockAspectRatio = msoFalse
p.Width = 595.3
p.Height = 841.9
End If
Next p
End Sub