使用宏的方式, 批量修改word中图片的大小

创建宏的代码内容如下（其中宏的名字为：SetPicSize）：

弹出“Microsoft Visual Basic”窗口，复制下面的代码到代码窗口里替换掉原有内容：

Sub SetPicSize() '设置图片大小

Dim n '图片个数

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片

ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为 5cm （1cm等于28.35px）

ActiveDocument.InlineShapes(n).Width = 4 * 28.35 '设置图片宽度 4cm

Next n

End Sub

'其中图片本例中图片尺寸为5cm和4cm

具体内容和步骤请参考：

http://jingyan.baidu.com/article/fdbd4277145ebbb89e3f48d1.html