如何通过宏可以批量完成一个word中所有图片大小的修改？并且让图片安排原来次序排列？

word

1、Alt+F8调出宏编辑窗口 2、点创建按钮，创建新宏，setpicsize,内容如下： Sub setpicsize() '设置图片大小 ' 宏在 2008-3-31 由 hero_thm 录制 ' Dim j '计数图片个数 For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes ActiveDocument.Inli导圆无冲例致乐neShapes(j).Height = 362 '设置高度 ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度 Next j

End Sub 3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cmSub setpicsize()'设置图片大小' 宏在 2008-3-31 由 hero_thm 录制'Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapesIf ActiveDocument.InlineShapes(j).Width 480 ThenActiveDocument.InlineShapes(j).Width = 400 '设置宽度End IfNext jEnd Sub