可通过VBA宏一键批量设置Word中所有图片为统一尺寸：启用开发工具→插入模块粘贴代码→修改宽高参数→运行宏→保存为.docm格式。
如果您在Word文档中插入了大量图片，但每张图片尺寸不一，手动逐个调整既耗时又容易出错，则可以通过VBA宏脚本实现一键批量设置所有图片为统一尺寸。以下是具体操作步骤：
一、启用开发工具并打开VBA编辑器
Word默认不显示“开发工具”选项卡，需先启用该功能，才能访问VBA编辑器以编写和运行宏代码。
1、点击“文件”→“选项”→“自定义功能区”。
2、在右侧“主选项卡”列表中，勾选开发工具复选框。
3、点击“确定”保存设置，此时顶部菜单栏将出现“开发工具”选项卡。
4、切换到“开发工具”选项卡，点击Visual Basic按钮，打开VBA编辑器窗口。
二、插入新模块并粘贴宏代码
VBA编辑器中需新建一个标准模块，用于存放可执行的宏脚本；代码将遍历当前文档中所有内嵌图片（即InlineShape）与浮动图形（即Shape），分别设置其高度与宽度为目标值。
1、在VBA编辑器左侧“工程资源管理器”中，右键点击当前文档项目（如Normal或Document1）。
2、选择“插入”→“模块”，新建一个空白模块。
3、在右侧代码窗口中，粘贴以下完整VBA代码：
Sub SetAllPicturesToUniformSize()
Dim ils As InlineShape
Dim shp As Shape
Dim targetWidth As Single, targetHeight As Single
targetWidth = CentimetersToPoints(8)
targetHeight = CentimetersToPoints(6)
For Each ils In ActiveDocument.InlineShapes
If ils.Type = wdInlineShapePicture Then
ils.Width = targetWidth
ils.Height = targetHeight
End If
Next ils
For Each shp In ActiveDocument.Shapes
If shp.Type = msoPicture Or shp.Type = msoLinkedPicture Then
shp.Width = targetWidth
shp.Height = targetHeight
End If
Next shp
MsgBox "已完成：所有图片已设为8厘米宽 × 6厘米高"
End Sub
三、修改目标尺寸参数
上述代码中预设尺寸为8厘米宽、6厘米高，若需适配其他规格，仅需更改代码中对应两行数值即可，无需调整逻辑结构。
1、定位到代码中targetWidth = CentimetersToPoints(8)这一行。
2、将括号内的数字8替换为您需要的宽度值（单位：厘米）。
3、定位到下一行targetHeight = CentimetersToPoints(6)。
4、将括号内的数字6替换为您需要的高度值（单位：厘米）。
四、运行宏完成批量设置
宏代码保存后，可通过开发工具选项卡直接运行，立即对当前文档全部图片应用设定尺寸，包括嵌入式图片和环绕排版的浮动图片。
1、关闭VBA编辑器，返回Word主界面。
2、切换至“开发工具”选项卡，点击宏按钮。
3、在弹出对话框中选择宏名SetAllPicturesToUniformSize。
4、点击运行按钮，等待执行完成提示框出现。
5、确认提示框内容后点击“确定”，文档中所有符合条件的图片即已更新为指定尺寸。
五、保存启用宏的文档格式
含VBA宏的Word文档必须保存为启用宏的格式，否则下次打开时宏将不可用，且系统可能自动禁用已保存的代码。
1、点击“文件”→“另存为”，选择保存位置。
2、在“保存类型”下拉菜单中，选择Word启用宏的文档 (*.docm)。
3、输入文件名，点击“保存”。
4、关闭并重新打开该.docm文件，宏仍将保留在文档内，可重复调用。
