1、Alt+F8调出宏编辑窗口2、点创建按钮，创建新宏，setpicsize,内容如下：Subsetpicsize()'设置图片大小'宏在2008-3-31由hero_thm录制'Dimj'计数图片个数Forj=1ToActiveDocument.InlineShapes.Count'文件中图片总个数，图片类型为inlineshapesActiveDocument.InlineShapes(j).Height=362'设置高度ActiveDocument.InlineShapes(j).Width=481.87'设置宽度NextjEndSub3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cmSubsetpicsize()'设置图片大小'宏在2008-3-31由hero_thm录制'Dimj'计数图片个数Forj=1ToActiveDocument.InlineShapes.Count'文件中图片总个数，图片类型为inlineshapesIfActiveDocument.InlineShapes(j).Width>480ThenActiveDocument.InlineShapes(j).Width=400'设置宽度EndIfNextjEndSub