写用户手册，需要对word文档中的图片进行统一设置，去网上查资料，觉得最简单的方法是录制宏，执行就可以了！
步骤：
1、 alt+F8 跳出宏制作编辑窗口
2、点击创建窗口按钮 ，制作宏 setpicsize
3、
Sub setpicsize()
'
' setpicsize Macro
' 宏在 2009-7-14 由 enco 创建
'
Dim j
For j = 1 To ActiveInlineShapes.Count
ActiveInlineShapes(j).Height = 362 '设置图片高度
ActiveInlineShapes(j).Width = 481 '设置图片宽度
Next j
End Sub
4、保存，然后点击工具栏中的运行 就可以了！
