word批量导入、修改图片大小和压缩图片

一：在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

三：点击运行按钮(上方三角形)