Word一招搞定：批量调整所有图片大小，效率翻倍

为什么需要一键调整图片大小？

在编辑长篇文档（如报告、手册、论文）时，插入的图片可能来自不同来源，尺寸参差不齐。手动逐张调整不仅耗时，还容易造成排版混乱。Word提供了高效的方法，让你一键统一所有图片尺寸，保持文档美观专业。

方法一：使用宏（推荐）

宏可以自动执行重复操作。以下是具体步骤：

1. 按Alt + F11打开VBA编辑器。
2. 在菜单栏点击“插入” -> “模块”。
3. 将以下代码粘贴进去：

   Sub ResizeAllPictures()
       Dim iShape As InlineShape
       For Each iShape In ActiveDocument.InlineShapes
           If iShape.Type = wdInlineShapePicture Then
               iShape.Width = CentimetersToPoints(5) ' 设置宽度为5厘米
               iShape.Height = CentimetersToPoints(4) ' 设置高度为4厘米
           End If
       Next iShape
   End Sub

4. 关闭编辑器，按Alt + F8打开宏对话框，选择“ResizeAllPictures”并运行。

提示：你可以根据需要修改Width和Height的值（单位：厘米）。若只想按比例缩放，可只设置一个尺寸，另一个设为0，Word会自动按比例调整。

方法二：使用查找替换（无代码）

如果你不想使用VBA，还可以通过查找替换功能批量调整：

1. 按Ctrl + H打开查找替换窗口。
2. 点击“更多” -> “特殊格式” -> “图形”（或者直接输入^g）。
3. 在“替换为”框中不输入内容，但点击“格式” -> “图文框”设置大小。
4. 然而这种方法并不直接支持设置图片尺寸，推荐使用宏。

方法三：使用插件

网上有很多Word插件（如Kutools for Word）提供一键调整图片功能，免费或付费均可。安装后通常在工具栏有“图片工具”选项，可以批量设置长宽。

注意事项

• 宏可能受到安全设置限制，需将宏安全性设为“启用所有宏”（临时）或对文档进行数字签名。
• 方法一适用于嵌入型图片（InlineShape），对于浮动型图片（Shape）需修改代码为遍历Shapes集合。
• 批量操作前建议备份文档。

掌握这些技巧，从此告别逐张调整图片的苦恼。赶紧试试吧！