批量改WORD文档图片大小教程第一步：打开WORD文档，点击【视图】-【宏】，如下图：
第二步：跳出对话框，如下图
第三步：在红色的框内输入“批量改图片尺寸”，再点击【创建】如下图：
第四步：跳出如下对话框，在红色框内，输入以下代码：
Sub FormatPics()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不锁定纵横比
iSha.Width = CentimetersToPoints(6.83) '宽6.83CM
iSha.Height = CentimetersToPoints(5) '高5CM
End If
Next
第五步：输入代码后，后面汉字的颜色应该是绿色的，表示可以使用，字体是红色的话就表示代码有问题。

其中括号内的数字【6.83】【5】可以根据自己的需求进行调整。

第六步：点击【保存】，关闭当前对话框，回到WORD界面
第七步：点击【视图】-【宏】
第八步：跳出对话框，如下，点击【运行】，就可以批量修改WORD 文档中的图片了。