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

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

输入以下代码：

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

    For i = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
            ActiveDocument.Shapes(i).Height = Height '设置图片高度为 Height_px
            ActiveDocument.Shapes(i).Width = Weight '设置图片宽度 Weight_px
    Next i

End Sub

3. 点击执行

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