word中无法通过查找替换修改宽高属性，因html标签已被解析为图片对象；应使用vba脚本遍历inlineshapes和shapes批量等比缩放。
Word 里用查找替换改 <img alt="插html图片到word要批量改大小咋弄_用查找替换法【汇总】" > 宽高属性根本行不通
直接在 Word 的「查找替换」里搜 width= 或 height= 并不能批量修改 HTML 图片尺寸——因为 Word 插入 HTML 后，会把 <img alt="插html图片到word要批量改大小咋弄_用查找替换法【汇总】" > 标签解析成原生图片对象，原始 HTML 属性（如 width="200"）早已被丢弃或转为内部格式。你看到的只是渲染结果，不是可编辑的 HTML 文本。
所以这条路从底层就不成立，强行试只会浪费时间，还可能误替换正文里的数字。
真正能批量改图尺寸的只有两种路径
取决于你当前文档中图片的插入方式：
- 如果图片是「粘贴 HTML 源码」后由 Word 自动转换的（即没保留原始 HTML），那它们就是普通嵌入图片 → 只能用
Selection.ShapeRange或ActiveDocument.InlineShapes批量操作 - 如果图片是通过「插入 → 对象 → HTML 文档片段」之类方式保留为 HTML 控件（极少见），那得走 OLE 容器路径，但兼容性差、Word 版本稍一升级就失效，不建议碰
绝大多数人属于第一种情况：HTML 已“失真”，只剩图片。这时就得靠 VBA 脚本精准识别并缩放。
立即学习“前端免费学习笔记（深入）”；
VBA 批量等比缩放所有图片（推荐方案）
以下脚本会遍历文档中所有 InlineShape（行内图）和 Shape（浮动图），统一按比例缩放，避免拉伸变形：
Sub ResizeAllPictures()
Dim ils As InlineShape
Dim shp As Shape
Dim scale As Single
scale = 0.7 ' 缩放到原尺寸 70%，按需改这里
<pre class='brush:php;toolbar:false;'>For Each ils In ActiveDocument.InlineShapes
If ils.Type = wdInlineShapePicture Then
ils.ScaleHeight = scale * 100
ils.ScaleWidth = scale * 100
End If
Next ils
For Each shp In ActiveDocument.Shapes
If shp.Type = msoPicture Or shp.Type = msoLinkedPicture Then
shp.ScaleHeight scale, msoFalse
shp.ScaleWidth scale, msoFalse
End If
Next shpEnd Sub
运行前注意：
- 必须启用「开发工具」选项卡，粘贴代码到 VBA 编辑器（
Alt+F11） -
scale = 0.7是等比缩放系数，别填像素值；填0.5就是减半，1.2就是放大 1.2 倍 - Word 365 / 2021 对
msoLinkedPicture支持更稳；旧版可能漏掉某些链接图
为什么不用「设置默认图片格式」？
很多人想点右键→「设置为默认图片格式」来一劳永逸，但这个功能只影响「后续新插入」的图片，对已存在的图片完全无效。而且它不控制宽高像素，只记住上次手动拖拽后的缩放百分比 + 样式（如边框、阴影），跟 HTML 导入场景无关。
如果你的文档还在编辑中、图片还没全插完，可以先调好一张图的大小再设默认，但对已有大批量图片，这招没用。
真正麻烦的其实是混合排版：有些图是粘贴进来的，有些是截图插的，有些是链接更新的——VBA 脚本里那两段循环缺一不可，漏掉 Shapes 就会跳过浮动图，漏掉 InlineShapes 就会跳过段落内图。这点容易忽略，一跑就只改了一半。
