word批量调整图片大小--宏

word中选择宏，查看宏或者创建宏，不同版本的略有区别

输入宏名称，默认也可

在相应位置粘贴如下代码

Sub 批量调整图片大小()
'
' 批量调整图片大小 宏
'
'
Dim n ' 图片个数
On Error Resume Next ' 忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
    ActiveDocument.InlineShapes(n