Word一次性调整所有图片大小

在处理包含大量图片的 Word 文档时，常常需要统一调整所有图片的尺寸。手动一张张调整既费时又低效。本文将介绍几种实用方法，帮助你快速批量修改 Word 中所有图片的大小。

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

这是最高效的方式，适用于熟悉基本 VBA 操作的用户：

1. 按 Alt + F11 打开 VBA 编辑器。
2. 插入新模块：插入 > 模块。
3. 粘贴以下代码：

   Sub ResizeAllPictures()
       Dim shp As Shape
       Dim ilshp As InlineShape
       Dim targetWidth As Single
       Dim targetHeight As Single
   
       targetWidth = CentimetersToPoints(10) ' 设置宽度为10厘米
       targetHeight = CentimetersToPoints(7) ' 设置高度为7厘米
   
       For Each shp In ActiveDocument.Shapes
           If shp.Type = msoPicture Then
               shp.LockAspectRatio = msoTrue
               shp.Width = targetWidth
           End If
       Next shp
   
       For Each ilshp In ActiveDocument.InlineShapes
           If ilshp.Type = wdInlineShapePicture Then
               ilshp.LockAspectRatio = msoTrue
               ilshp.Width = targetWidth
           End If
       Next ilshp
   End Sub

4. 关闭编辑器，返回 Word，按 Alt + F8，选择 ResizeAllPictures 并运行。

方法二：复制格式刷（适用于少量图片）

如果你只有几张图片，可以先调整好一张图片的大小，然后双击“格式刷”工具，依次点击其他图片即可应用相同尺寸。

注意事项

• 建议在操作前备份原始文档。
• 锁定宽高比（LockAspectRatio）可防止图片变形。
• 若图片以“嵌入型”或“浮动型”存在，需分别处理（如上述 VBA 所示）。

掌握这些技巧后，无论文档中有多少图片，都能轻松实现统一尺寸，大幅提升工作效率！