Word批量调整图片大小

在撰写论文、制作报告或整理资料时，经常需要在Word文档中插入大量图片。但不同来源的图片尺寸不一，手动一张张调整非常耗时。本文将介绍几种高效方法，帮助你快速批量统一Word文档中所有图片的大小。

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

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

1. 打开你的Word文档，按 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 = msoTrue
        If shp.Height > shp.Width Then
            shp.Height = height
        Else
            shp.Width = width
        End If
    Next shp

    For Each ilshp In ActiveDocument.InlineShapes
        ilshp.LockAspectRatio = msoTrue
        If ilshp.Height > ilshp.Width Then
            ilshp.Height = height
        Else
            ilshp.Width = width
        End If
    Next ilshp
End Sub
    

3. 关闭编辑器，回到Word，按 Alt + F8，选择 ResizeAllImages 并运行。
4. 所有图片将按设定比例统一缩放。

方法二：复制到新文档并统一格式（无宏环境）

• 选中所有图片（可按住 Ctrl 逐个点击，或使用“选择窗格”批量选中）。
• 右键 → “设置图片格式”，在“大小”选项中取消“锁定纵横比”（如需严格尺寸），然后输入统一高度/宽度。
• 注意：此方法对嵌入型图片有效，对浮动型图片需切换为“嵌入型”后再操作。

注意事项

• 建议先备份原文档，防止操作失误。
• 若图片原始分辨率过低，放大后可能模糊，请优先保证源图质量。
• 部分Word版本（如WPS）对VBA支持有限，建议使用Microsoft Word官方版本。