批量修改Word图片大小

在撰写论文、制作报告或整理资料时，常常需要插入大量图片。但不同来源的图片尺寸不一，手动逐张调整非常耗时。本文将介绍几种实用方法，帮助你快速批量修改Word文档中的图片大小。

方法一：使用宏（VBA）批量调整

这是最高效的方法，适合处理大量图片：

1. 按 Alt + F11 打开VBA编辑器。
2. 点击菜单栏“插入” → “模块”。
3. 粘贴以下代码（示例为统一设置为宽10厘米）：

   Sub ResizeAllPictures()
       Dim shp As Shape
       Dim ilshp As InlineShape
       For Each shp In ActiveDocument.Shapes
           If shp.Type = msoPicture Then
               shp.LockAspectRatio = msoTrue
               shp.Width = CentimetersToPoints(10)
           End If
       Next shp
       For Each ilshp In ActiveDocument.InlineShapes
           If ilshp.Type = wdInlineShapePicture Then
               ilshp.LockAspectRatio = msoTrue
               ilshp.Width = CentimetersToPoints(10)
           End If
       Next ilshp
   End Sub
           

4. 关闭编辑器，返回Word，按 Alt + F8，运行该宏即可。

方法二：复制到新文档统一设置

适用于图片数量不多的情况：

• 全选文档内容（Ctrl + A），复制。
• 新建一个空白Word文档，右键选择“只保留文本”粘贴。
• 重新插入图片，并提前设置好默认图片格式（如宽度固定）。

注意事项

• 建议操作前备份原始文档。
• 使用宏前请确保启用了宏功能（文件 → 选项 → 信任中心）。
• 若图片为“嵌入型”，需使用 InlineShape；若为“浮于文字上方”等，则用 Shape。

掌握这些技巧后，你就能轻松应对大批量图片排版问题，大幅提升工作效率！