批量修改word内图片的大小

通过宏可以批量完成一个word中所有图片大小的修改：
1、Alt+F8调出宏编辑窗口 
2、点创建按钮，创建新宏，建立一个名字abc,内容如下：
Sub abc()
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = ActiveDocument.InlineShapes(j).Height * 0.7 '设置高度为原来的70%
ActiveDocument.InlineShapes(j).Width = ActiveDocument.InlineShapes(j).Width * 0.7 '设置宽度为原来的70%
Next j

End Sub
3、保存--退出宏编辑----点"工具"---"宏"---运行abc宏，word中所有的图片统一调整。