可通过“选择窗格”定位图片后使用“更改图片”功能替换，或利用VBA宏按文件名批量更新图片，还可借助内容控件预设图像区域实现一键换图，三种方法均能保留原图尺寸与位置。
如果您需要在Word文档中批量替换多张图片，同时保持原有图片的尺寸和位置不变，手动逐个替换不仅耗时且容易导致格式错乱。以下是几种高效实现批量换图并保留原尺寸的方法：
一、使用“选择窗格”与“替换图片”功能
通过Word内置的选择窗格可以快速定位文档中的所有图片对象，结合复制粘贴或直接替换操作，可实现尺寸保留。
1、点击Word顶部菜单栏的“开始”选项卡，然后选择“选择”→“选择窗格”，打开右侧的对象列表。
2、在选择窗格中逐一点击每个图片名称，查看其是否为嵌入型或其他布局方式，建议将所有图片设置为“嵌入型”以外的布局（如“紧密型”或“上下型”）以支持独立调整大小。
3、右键单击原图片，选择“另存为图片”，保存旧图用于比对路径。
4、准备好新图片，确保其文件名与原图一致或按顺序对应。
5、右键点击原图片，选择“更改图片”，从本地选择对应的新图片文件。
6、此操作会自动保持原有图片的大小、位置和环绕方式，无需重新调整。
二、利用VBA宏批量替换图片
对于包含大量图片的文档，使用VBA脚本可实现一键批量替换，大幅提升效率，并精确控制尺寸继承。
1、按下Alt + F11打开VBA编辑器，在左侧项目窗口中插入一个新模块。
2、粘贴以下代码到模块中：
Sub ReplaceImages()
Dim shp As InlineShape
Dim picPath As String
Dim picName As String
For Each shp In ActiveDocument.InlineShapes
If shp.Type = wdInlineShapePicture Then
picName = Split(shp.LinkFormat.SourceFullName, "\")(UBound(Split(shp.LinkFormat.SourceFullName, "\")))
picPath = "C:\NewPics\" & picName ' 修改为你的新图片所在文件夹路径
If Dir(picPath) "" Then
shp.LinkFormat.Break ' 断开原链接
shp.Delete
Selection.InlineShapes.AddPicture FileName:=picPath, LinkToFile:=False, SaveWithDocument:=True
End If
End If
Next shp
End Sub
3、将新图片统一放在指定文件夹中，并确保文件名与原文档中引用的图片名称完全一致。
4、运行宏后，程序将自动查找每张图片并用同名新图替换，由于是逐个替换且在同一位置插入，原始尺寸和排版得以保留。
三、基于“内容控件”预设图片占位符
提前在文档中使用内容控件定义图片插入区域，可在后续批量更新时统一调用外部资源，避免格式偏移。
1、进入“开发工具”选项卡，点击“更多控件”→“Microsoft Image Control”，在文档中绘制图像区域。
2、右键该控件，选择“属性”，设置其初始图片路径为网络或本地地址。
3、当需要更换时，只需修改控件绑定的图片源路径，所有控件将自动加载新图并维持原有显示尺寸。
4、若未启用“开发工具”选项卡，可在“文件”→“选项”→“自定义功能区”中勾选该选项卡。
