1. 首先手动拖拽将图片调到需要的格式，点击图片在格式选项中查看图片的宽高

 2. 视图中点击宏新建

3. 编辑框中输入以下代码并保存，由于我只需要统一宽度，所以将统一高度的代码注释

Sub 图片格式统一()'' 图片格式统一 宏'''Myheigth = 12Mywidth = 14On Error Resume Next '忽略错误For Each iShape In ActiveDocument.InlineShapes'iShape.Height = 28.345 * Myheigth '设置图片高度为任意cmiShape.Width = 28.345 * Mywidth '设置图片宽度NextFor Each Shape In ActiveDocument.Shapes'Shape.Height = 28.345 * Myheigth '设置图片高度为任意cmShape.Width = 28.345 * Mywidth '设置图片宽度NextEnd Sub

4. 回到宏界面，运行，done。