Word批量处理图片大小

在日常办公或文档排版过程中，经常需要将 Word 文档中的多张图片统一调整为相同尺寸。手动一张张调整不仅费时，还容易出错。本文介绍几种高效实现Word 批量处理图片大小的方法，帮助您快速完成标准化排版。

方法一：使用宏（VBA）批量调整图片尺寸

这是最高效的批量处理方式，适用于熟悉基础 VBA 操作的用户：

1. 打开 Word 文档，按 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，运行该宏即可。

方法二：复制到 PowerPoint 中批量缩放再粘回

• 将 Word 中所有图片复制到 PowerPoint 幻灯片。
• 全选图片，在“图片格式”选项卡中统一设置高度/宽度。
• 再将调整后的图片复制回 Word 文档。

此方法适合不熟悉 VBA 的用户，但需注意格式可能略有变化。

方法三：使用第三方工具辅助处理

部分在线或桌面工具支持对 Word 文档进行批量图片处理，例如：

• 文档自动化脚本工具（如 Python + python-docx）
• 专业办公增强插件（如 Kutools for Word）

注意事项

• 建议操作前备份原始文档。
• 锁定宽高比（LockAspectRatio）可防止图片变形。
• 嵌入式图片（InlineShape）与浮动图片（Shape）需分别处理。