批量修改Word 2010图片宽度

1、打开宏

Word 2010宏：视图-宏（或者直接按Alt+F8）

创建一个宏名，然后编辑

2、编辑宏

编辑如下代码并保存

Sub ImageResizer() '设置图片大小'

Dim n '图片个数'
On Error Resume Next '忽略错误'
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片'
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度为300px'
Next n

End Sub

3、运行宏

最后返回Word 2010，再次打开查看宏，选择刚才编辑好的宏，并单击运行按钮。