word宏批量处理图片大小

1.Alt+F8进入宏的界面，输入一个宏名

2.宏名起好了，单击“创建”进入Visual Basic编辑器，输入如下代码并保存

Sub 你的宏名() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度是300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度是300px
Next n
End Sub

3.返回word，Alt+F8进入宏界面，选择刚才编辑好的宏，单击“运行”，就可以了。