1. 当前窗口在word文档，选择工具-》宏-》点击宏

2. 弹出弹框，起个宏名1，点击2添加一个宏。

输入以下代码：

Sub 图片格式统一()
'
' 图片格式统一 宏
'
'Dim iDim Height, WeightHeight = 200 '改成自己的高度Weight = 350 '改成自己的宽度On Error Resume Next '忽略错误For i = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(i).Height = Height '设置图片高度为 Height_pxActiveDocument.InlineShapes(i).Width = Weight '设置图片宽度 Weight_pxNext iFor i = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(i).Height = Height '设置图片高度为 Height_pxActiveDocument.Shapes(i).Width = Weight '设置图片宽度 Weight_pxNext iEnd Sub

3. 点击执行

4. 这时查看word文档，所有图片高度和宽度都会变为设置的宽高。