如何批量修改Word图片大小？

借助Word的宏功能批量修改Word图片大小 打开Word，按下alt+f8，出现宏界面，为新建的宏取名为adjustpicwIDthandheight 点击编辑按钮，输入下面红色字体标出的内容SUb adjustpicwIDthandheight()'' advertisepublishas 宏' 将广告发布导出为 PDF 和 xPS'SUb setpiCSize() '设置图片大小dim n '图片个数on error reSUme next '忽略错误For n = 1 to activedocument.inlineshapes.count 'inlineshapes类型图片activedocument.inlineshapes(n).lockaspectratio = msofalse '不锁定图片的纵横比 activedocument.inlineshapes(n).height = 320 '设置图片高度为 320pxactivedocument.inlineshapes(n).wIDth = 425 '设置图片宽度 425pxnext nFor n = 1 to activedocument.shapes.count 'shapes类型图片activedocument.inlineshapes(n).lockaspectratio = msofalse '不锁定图片的纵横比activedocument.shapes(n).height = 320 '设置图片高度为 320pxactivedocument.shapes(n).wIDth = 425 '设置图片宽度 425pxnext nend SUbWord批量修改图片大小——固定长宽篇这部分要说的是把Word中的所有图片修改成固定的并且相同的长和宽！2、宏名起好了，单击“创建”进入viSUal basic 编辑器，输入如下代码并保存SUb setpiCSize() '设置图片大小dim n'图片个数on error reSUme next '忽略错误For n = 1 to activedocument.inlineshapes.count 'inlineshapes类型图片activedocument.inlineshapes(n).height = 400 '设置图片高度为 400pxactivedocument.inlineshapes(n).wIDth = 300 '设置图片宽度 300pxnext nFor n = 1 to activedocument.shapes.count 'shapes类型图片activedocument.shapes(n).height = 400 '设置图片高度为 400pxactivedocument.shapes(n).wIDth = 300 '设置图片宽度 300pxnext nend SUb3、返回Word，工具－宏－宏（或者直接按alt+f8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！具体操作同上，只是代码部分稍做修改，代码如下：SUb setpiCSize() '设置图片大小dim n'图片个数dim picwIDthdim picheighton error reSUme next '忽略错误For n = 1 to activedocument.inlineshapes.count 'inlineshapes类型图片picheight = activedocument.inlineshapes(n).heightpicwIDth = activedocument.inlineshapes(n).wIDthactivedocument.inlineshapes(n).height = picheight * 0.8 '设置高度为1.1倍activedocument.inlineshapes(n).wIDth = picwIDth * 0.8 '设置宽度为1.1倍next nFor n = 1 to activedocument.shapes.count 'shapes类型图片picheight = activedocument.shapes(n).heightpicwIDth = activedocument.shapes(n).wIDthactivedocument.shapes(n).height = picheight *0.8 '设置高度为1.1倍activedocument.shapes(n).wIDth = picwIDth * 0.8 '设置宽度为1.1倍next nend SUb