Word中批量缩小图片有四种方法：一、用“选择窗格”全选图片后在【图片格式】中设统一宽/高；二、运行VBA宏ResizeAllPictures重设所有嵌入图片宽度为6厘米并锁定纵横比；三、用查找替换定位浮动图片（^g）后统一设置大小；四、借助Kutools插件可视化批量调整。
如果您在Word文档中插入了多张图片，且需要统一缩小尺寸以节省页面空间或保持格式一致，则可以通过内置功能或脚本方式批量调整。以下是实现该目标的具体操作步骤：
一、使用Word内置的“选择窗格”配合格式设置批量调整
该方法无需编程，利用Word的图形对象选择与格式同步功能，适用于图片未嵌入文本框或特殊容器中的常规文档。
1、按 Ctrl + A 全选文档内容。
2、在【开始】选项卡中，点击右下角的【选择】按钮，选择【选择窗格】。
3、在右侧“选择窗格”中，按住 Shift 键并逐个单击所有以“图片”命名的对象（可识别为“Picture 1”“Picture 2”等）。
4、关闭选择窗格，切换到【图片格式】选项卡，在【大小】组中取消勾选【锁定纵横比】。
5、将【高度】或【宽度】数值修改为所需尺寸（例如设为 5 厘米），回车确认，所有选中图片将同步缩放。
二、通过VBA宏一键批量重设所有嵌入图片尺寸
该方法可精准控制所有独立图片（非文本框内、非表格单元格内嵌套图片）的高度与宽度，并支持保持原始纵横比。
1、按 Alt + F11 打开VBA编辑器。
2、在左侧项目资源管理器中，双击当前文档对应的 Normal 或 ThisDocument。
3、粘贴以下代码：
Sub ResizeAllPictures()
Dim shp As InlineShape
For Each shp In ActiveDocument.InlineShapes
If shp.Type = wdInlineShapePicture Then
shp.LockAspectRatio = msoTrue
shp.Width = CentimetersToPoints(6)
End If
Next shp
End Sub
4、关闭编辑器，返回Word，按 Alt + F8，选择宏名 ResizeAllPictures，点击【运行】。
三、使用查找替换功能定位并单独调整浮动图片
对于设置为“浮于文字上方”或“衬于文字下方”的图片（即Shape对象），需通过图形对象遍历方式处理，不能被InlineShape覆盖。
1、按 Ctrl + H 打开【查找和替换】对话框。
2、点击【更多】→【特殊格式】→ 选择【图形】，此时查找内容显示为 ^g。
3、留空【替换为】栏，点击【在全部查找结果中进行替换】，Word将高亮所有浮动图片。
4、按 Ctrl + A 全选所有高亮图片，右键选择【大小和位置】。
5、在【大小】选项卡中，输入目标高度值（如 4.5 厘米），勾选【锁定纵横比】，点击【确定】。
四、借助第三方插件“Kutools for Word”快速批量缩图
Kutools提供可视化批量图片操作面板，支持按比例缩放、统一宽高、导出重命名等扩展功能，适合高频图文排版用户。
1、安装Kutools for Word后，在Word顶部菜单栏出现【Kutools】选项卡。
2、点击【Kutools】→【图片】→【批量改变图片大小】。
3、在弹出窗口中选择【按比例缩小】，输入百分比（例如 70%）；或选择【指定尺寸】，设定统一宽度与高度。
4、勾选【应用于当前文档中所有图片】，点击【确定】立即执行。
