一:在word软件界面中依次点击:同时按键盘“Alt”键和“F11”键
二:帖入下面一段话
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = 10 * 28.35 '设置图片高度为 5cm (1cm等于28.35px)
Next n
End Sub
三:点击运行按钮(上方三角形)