可批量修改Word图片尺寸：一、用“选择窗格”多选后统一设高宽；二、用VBA宏遍历InlineShapes设精确厘米值；三、用“查找替换”配合^g通配符批量应用图片格式。
如果您在Word文档中插入了多张图片，但每张图片尺寸不一致，影响排版效果，则需要批量修改图片大小以实现统一。以下是几种可行的操作方法：
一、使用“选择窗格”配合格式设置
该方法适用于文档中图片未嵌入文字环绕复杂布局、且需保持原始纵横比的场景。通过选择窗格可一次性选中全部图片对象，再统一应用高度或宽度约束。
1、点击【开始】选项卡，在右侧找到并点击【选择】→【选择窗格】。
2、在右侧弹出的“选择窗格”中，按住Ctrl键逐个单击所有以“图片”命名的对象（如“图片 1”“图片 2”等），或直接点击顶部的“全选”按钮（若可用）。
3、关闭选择窗格，此时所有被选中的图片处于多选状态；右键任意一张选中图片，选择【设置图片格式】。
4、在右侧打开的“设置图片格式”面板中，切换至【大小与属性】→【大小】，取消勾选锁定纵横比（如需强制统一宽高值），然后在【高度】框中输入目标数值（如“5厘米”），回车确认。
5、若需保留原始比例，仅调整高度，则勾选锁定纵横比后再输入高度值，宽度将自动同步缩放。
二、利用VBA宏一键重设所有图片尺寸
该方法适用于含大量图片（数十张以上）且需精确控制尺寸参数的文档，可跳过手动选择环节，直接遍历全部InlineShape和Shape对象进行赋值。
1、按下Alt + F11打开VBA编辑器。
2、在左侧“工程资源管理器”中，右键当前文档名（如Normal.dotm或文档名.docx），选择【插入】→【模块】。
3、在新模块空白窗口中粘贴以下代码：
Sub ResizeAllPictures()
Dim i As Long
For i = 1 To ActiveDocument.InlineShapes.Count
With ActiveDocument.InlineShapes(i)
.Width = CentimetersToPoints(6)
.Height = CentimetersToPoints(4)
End With
Next i
End Sub
4、将代码中CentimetersToPoints(6)和CentimetersToPoints(4)分别替换为您所需的宽度与高度（单位：厘米）。
5、将光标置于代码内任意位置，按F5运行宏，所有嵌入式图片将立即按设定尺寸更新。
三、通过“查找和替换”功能定位并批量操作
该方法利用Word对图片的内部标记识别能力，结合通配符查找，适用于图文混排中图片被文字环绕但未转为浮动对象的情形，可触发批量格式重置。
1、按下Ctrl + H打开“查找和替换”对话框，点击左下角【更多】展开高级选项。
2、勾选使用通配符，在【查找内容】框中输入：^g（代表任意图形对象）。
3、将插入点置于【替换为】框中，点击【特殊格式】→【图形】，此时框中出现“^g”；再点击【格式】→【图片】。
4、在弹出的“查找图片格式”对话框中，点击【默认】按钮清除已有格式限制，然后点击【确定】返回主界面。
5、再次点击【格式】→【图片】，这次在“替换图片格式”中设置目标高度为“绝对值”5.2厘米，宽度设为“自动”，勾选锁定纵横比，点击【确定】。
6、点击【全部替换】，Word将遍历全文档所有图片并应用该尺寸规则。
