操作步骤如下：
1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal编辑器。
2）插入normal工程“模块”。
3）在“模块”中粘贴下面的代码。
Sub batchResizeShape()
Dim doc As Document
Dim i As Integer
Set doc = ActiveDocument
For i = 1 To doc.InlineShapes.Count
'doc.InlineShapes
'doc.Shapes(i).ScaleHeight 0.5, msoFalse, msoScaleFromMiddle
'doc.Shapes(i).ScaleWidth 0.5, msoFalse, msoScaleFromMiddle
doc.InlineShapes(i).Height = 198.15
doc.InlineShapes(i).Width = 264.45
Next i
End Sub
4）保存，返回你要统一图片大小的Word文档。运行“工具”-“宏”-\"宏命令\"。
看一下结果，是不是你想要的统一图片大小。
我用的两张图一个大一个小，统一后400*300还是很大，放在两个页面上，上面是25%的缩略图，至此实现了统一大小的目标，如果你想要其它的大小，只需按代码里的说明更改一下长宽数值即可。
因篇幅问题不能全部显示，请点此查看更多更全内容