首先打开需要处理的word文档，

按键盘“Alt”键和“F8”键（后面简称Alt+F8）打开宏

在宏名栏里任意输入一个宏的名字，本例中我们使用“setpicsize”

在宏里输入以下代码保存，运行宏即可

Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = 10.58 * 28.35 '设置图片高度为 10.58cm （1cm等于28.35px）
ActiveDocument.InlineShapes(n).Width = 14.1* 28.35 '设置图片宽度 14.1cm
Next n
End Sub