实现在WORD图片的批量导入：如果图片都存在同一个文件
夹中，那么我们可以按住shift键批量插入图片~
一、批量修改word图片大小
1、菜单——“工具”——“宏”——“宏”，也可以用快捷键ALT+F8调出，
2、在“宏”窗口中，“宏名”改成“批量调整图片大小”
再点“编辑”
复制、粘贴以下代码：
Sub 批量调整图片大小()
‘
‘ 调整图片大小 Macro
‘ 宏在 2011-5-22 由 User 创建
‘
Dim iShape As InlineShape, WidthNum As Long
For Each iShape In ActiveDocument.InlineShapes
With iShape
WidthNum = .Width
.Width = 13 * 28.35
.Height = (13 * 28.35 / WidthNum) * .Height
End With
Next
‘ 注：1厘米＝28.35磅值
‘ 以上为同比例缩放的近似算法
End Sub
再点工具栏里的“保存”，保存修改。
3、选择宏名——运行，就可以自动批量修改图片大小。
二、批量压缩word图片大小
1、选中某一张图片——右键“设置图片格式”——“图片”——“压缩”——
选择上面的应用于“文档中的所有图片”。