如何在Word中批量编辑所有图片大小？专业指南

引言

在编辑Word文档时，插入的图片尺寸不一常常破坏排版美感。手动逐一调整既耗时又容易出错。本文将教你如何一键批量修改所有图片的大小，让文档瞬间整洁专业。

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

对于所有图片按统一尺寸调整，VBA是最强大的工具。

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

   Sub ResizeAllPictures()
       Dim shp As InlineShape
       For Each shp In ActiveDocument.InlineShapes
           If shp.Type = wdInlineShapePicture Then
               shp.Width = 200    '设置宽度为200磅
               shp.Height = 150   '设置高度为150磅
           End If
       Next shp
   End Sub

4. 按 F5 运行宏，文档中所有嵌入式图片即被调整。

方法二：使用查找与替换并配合格式功能

虽然不能直接批量改大小，但可通过“替换”中的“格式”间接实现：

• 按 Ctrl + H 打开替换窗口。
• 点击“更多” -> “格式” -> “图文框”？此方法需图文框支持，但一般情况下不推荐，不如方法一高效。

方法三：利用快捷键和格式刷

如果要调整的图片不多，可以手动设置一张图片的尺寸，然后使用格式刷复制给其他图片：

1. 选中已调整好尺寸的图片。
2. 双击“格式刷”图标（或按 Ctrl+Shift+C 复制格式）。
3. 依次点击其他图片，自动应用相同尺寸。

技巧：保持图片纵横比

上述VBA代码中设置宽度和高度时会扭曲图片。若要锁定纵横比，可改进代码：

Sub ResizeWithLockAspect()
    Dim shp As InlineShape
    Dim aspRatio As Single
    For Each shp In ActiveDocument.InlineShapes
        If shp.Type = wdInlineShapePicture Then
            aspRatio = shp.Width / shp.Height
            shp.Width = 200  '目标宽度
            shp.Height = 200 / aspRatio   '按比例计算高度
        End If
    Next shp
End Sub

注意事项

• VBA宏仅对嵌入式图片（InlineShape）有效，浮动图片（Shape）需另写代码。
• 调整前建议备份文档。
• 不同版本的Word（2010/2016/365）宏界面相似。

结语

掌握批量调整图片大小的方法，可大幅提升文档处理效率。从手动到自动化，让Word操作更智能。现在就试试吧！