Word中统一图片尺寸有四种方法：一、用“选择窗格”多选后设宽高；二、用VBA宏遍历全文档图片批量重设；三、用“查找替换”定位内联图片再统一调整；四、用Kutools插件一键设置指定尺寸。
如果您在Word文档中插入了多张图片，但每张图片尺寸不一致，影响排版效果，则需要对图片进行批量尺寸调整。以下是实现Word图片一键统一尺寸的多种方法：
一、使用Word内置的“选择窗格”配合格式设置
该方法利用Word的选择功能批量选中所有图片对象，再通过“图片格式”选项卡统一设置高度与宽度，适用于同一页面或连续区域内的图片。
1、按住Ctrl键，依次单击文档中所有需调整的图片，完成多选；
2、右键任意一张被选中的图片，在弹出菜单中选择“大小和位置”；
3、在“布局”对话框中切换到“大小”选项卡；
4、取消勾选“锁定纵横比”（否则无法独立设定宽高）；
5、在“高度”框中输入目标数值（如5厘米），在“宽度”框中输入目标数值（如8厘米）；
6、点击“确定”，所有选中图片同步应用该尺寸。
二、通过VBA宏实现全文档图片尺寸批量重设
该方法可遍历当前文档全部嵌入式图片（包括内联型与浮动型），自动将其统一设置为指定宽高，无需手动选择，适合含大量图片的长文档。
1、按下Alt + F11打开VBA编辑器；
2、在左侧“工程资源管理器”中右键“Normal”或当前文档名，选择“插入” → “模块”；
3、在右侧代码窗口粘贴以下VBA代码：
Sub ResizeAllPictures()
Dim shp As Shape
Dim ilshp As InlineShape
For Each shp In ActiveDocument.Shapes
If shp.Type = msoPicture Then
shp.Height = CentimetersToPoints(5)
shp.Width = CentimetersToPoints(8)
End If
Next shp
For Each ilshp In ActiveDocument.InlineShapes
If ilshp.Type = wdInlineShapePicture Then
ilshp.Height = CentimetersToPoints(5)
ilshp.Width = CentimetersToPoints(8)
End If
Next ilshp
MsgBox "已完成所有图片尺寸重设！"
End Sub
4、将代码中的5和8替换为您需要的厘米数值；
5、按F5运行宏，所有图片立即按设定值缩放。
三、借助“查找和替换”功能定位并批量修改内联图片
此方法仅适用于全部为内联型（InlineShape）的图片，通过通配符查找快速选中全部内联图片，再统一设置尺寸，操作轻量且无需编程。
1、将光标置于文档任意位置，按下Ctrl + H打开“查找和替换”对话框；
2、点击“更多”按钮展开选项，勾选“使用通配符”；
3、在“查找内容”框中输入^g（代表图形对象，Word中专指内联图片）；
4、确保“替换为”框为空，点击“查找全部”，此时所有内联图片被高亮列出；
5、按Ctrl + A全选查找结果，关闭对话框；
6、右键任一高亮图片，选择“大小和位置”，按前述方法设置统一宽高并确认。
四、利用第三方插件“Kutools for Word”一键执行
Kutools for Word提供“调整图片大小”专用功能，支持按比例缩放、固定尺寸、适配段落宽度等多种模式，界面直观且兼容性强。
1、安装并启用Kutools for Word插件后，在Word顶部菜单栏出现“Kutools”选项卡；
2、点击“图片” → “调整图片大小”；
3、在弹出面板中选择“按指定大小”选项；
4、分别输入目标宽度和高度（单位可选厘米、英寸、磅等）；
5、取消勾选“保持纵横比”以允许非等比变形；
6、点击“确定”，插件自动处理当前文档全部图片。
