Word中批量统一图片尺寸有三种方法：一、用“选择窗格”集中选图后在“图片格式”中设宽8厘米高5厘米；二、运行VBA宏自动调整所有图片（含非嵌入型）为宽8厘米高5厘米；三、用“查找替换”定位全部图片（^g）后再统一设置尺寸。
如果您在Word文档中插入了多张图片，但每张图片尺寸不一致，影响排版效果，则需要批量统一所有图片的尺寸。以下是实现此目标的具体操作步骤：
一、使用“选择窗格”配合“大小”功能批量设置
该方法适用于文档中图片未嵌入文字环绕或已设置为“嵌入型”的情形，通过选择窗格集中选中全部图片后，在“格式”选项卡中统一修改高度与宽度值。
1、点击“开始”选项卡右侧的“选择”按钮，选择“选择窗格”。
2、在右侧弹出的“选择窗格”中，按住Ctrl键并逐个单击所有以“图片”命名的对象（如“图片 1”“图片 2”等）。
3、确认全部图片被选中后，切换至“图片格式”选项卡。
4、在“大小”组中，取消勾选“锁定纵横比”，然后在“高度”框内输入目标数值（例如5厘米8厘米
二、通过VBA宏一次性重设所有图片尺寸
该方法可自动识别文档中所有图片（包括非嵌入型），并强制将其调整为指定宽高，不受文字环绕方式限制，适合处理上百张图片的大文档。
1、按下Alt + F11打开VBA编辑器。
2、在左侧“工程资源管理器”中，右键“Normal”或当前文档名，选择“插入”→“模块”。
3、在新模块窗口中粘贴以下代码：
Sub ResizeAllPictures()
Dim shp As InlineShape
Dim shpO As Shape
For Each shp In ActiveDocument.InlineShapes
If shp.Type = wdInlineShapePicture Then
shp.Width = CentimetersToPoints(8)
shp.Height = CentimetersToPoints(5)
End If
Next shp
For Each shpO In ActiveDocument.Shapes
If shpO.Type = msoPicture Then
shpO.Width = CentimetersToPoints(8)
shpO.Height = CentimetersToPoints(5)
End If
Next shpO
End Sub
4、将代码中的8和5分别替换为您所需的宽度与高度（单位：厘米）。
5、按
三、利用“查找替换”功能定位图片后批量操作
该方法借助Word的高级查找功能，快速选中全部图片对象，再结合“大小”面板进行统一调整，无需编程，兼容性高且不易出错。
1、按Ctrl + H打开“替换”对话框。
2、点击“更多”按钮，展开高级选项。
3、将光标置于“查找内容”框中，点击“特殊格式”→“图形”。
4、此时“查找内容”显示为^g，保持“替换为”为空，点击“全部替换”——此操作不会真正替换，但会选中全部图片。
5、关闭对话框，在“图片格式”选项卡的“大小”组中，输入目标高度5厘米与宽度8厘米，回车应用。
