批量修改Word图片大小

在撰写论文、制作报告或整理文档时，常常需要插入大量图片。然而，这些图片尺寸不一，影响整体排版美观。本文将介绍几种高效方法，帮助你在 Microsoft Word 中批量修改所有图片的大小，节省时间，提升专业度。

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

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

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

Sub ResizeAllImages()
    Dim shp As Shape
    Dim ilshp As InlineShape
    Dim height As Single, width As Single
    
    ' 设置目标尺寸（单位：磅，1英寸=72磅）
    height = 300 ' 高度
    width = 400  ' 宽度

    For Each shp In ActiveDocument.Shapes
        shp.LockAspectRatio = msoFalse
        shp.Height = height
        shp.Width = width
    Next shp

    For Each ilshp In ActiveDocument.InlineShapes
        ilshp.LockAspectRatio = msoFalse
        ilshp.Height = height
        ilshp.Width = width
    Next ilshp
End Sub
    

修改 height 和 width 为你需要的尺寸（单位为磅），然后按 F5 运行即可。

方法二：手动全选 + 统一设置（适用于少量图片）

1. 按住 Ctrl 键，依次点击每张图片进行多选。
2. 右键任一选中图片 → “大小和位置”。
3. 取消勾选“锁定纵横比”，输入统一高度/宽度。
4. 点击“关闭”应用设置。

注意：此方法在图片较多时效率较低，且容易漏选。

方法三：使用第三方工具预处理图片

在插入 Word 前，先用图像批量处理软件（如 IrfanView、XnConvert）统一图片尺寸，再导入文档，可从根本上避免格式混乱。

常见问题

• 为什么图片变形了？ 因为未保持宽高比。若需等比缩放，请保留 LockAspectRatio = msoTrue 并只设置高度或宽度其一。
• 嵌入式图片和浮动图片有区别吗？ 有。上述 VBA 脚本同时处理了两种类型（InlineShape 和 Shape）。