1、先打开存有图片的word
2、在打开的文档中，选择在“工具”菜单中选择“宏”--“宏”
3、随后弹出“宏”对话框，在宏名中输入setpicsize
4、宏名起好了，单击“创建”按钮进入Visual Basic 编辑器，输入如下代码Subsetpicsize()'设置图片大小Dimn'图片个数On Error Resume Next'忽略错误Forn = 1ToActiveDocument.InlineShapes.Count'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400'设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300'设置图片宽度 300pxNextnForn = 1ToActiveDocument.Shapes.Count'Shapes类型图片ActiveDocument.Shapes(n).Height = 400'设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300'设置图片宽度 300pxNextnEnd Sub
5、关闭入Visual Basic 编辑器，返回word，重新选择“工具”--“宏”--“宏”（或者直接按Alt+F8），再次进入宏的界面，在弹出的宏名中选择"setpicsize",最后点击“运行”---确认即可快速地批量修改word中所有图片大小，注意这里把图片大小都修改成Height = 400，Width = 300，这个规格大家可以需要改变的~~~~~~~~~~~
