Word 2026中批量提取图片Alt文本有三种方法：一、用VBA宏遍历InlineShape和Shape对象导出带编号、类型及位置的完整列表；二、通过导航窗格与选择窗格联动，人工定位并复制各图片“替代文本”对话框中的说明内容；三、利用“检查文档”功能生成含ID、段落号和Alt文本的XML报告，再复制为纯文本。
如果您在Word 2026中处理大量图文混排文档，需快速获取所有嵌入图片的替代文本（Alt Text），但手动逐张查看效率极低，则可借助内置对象模型与自动化操作实现批量提取。以下是执行此任务的具体步骤：
一、使用VBA宏导出全部图片Alt文本
该方法通过调用Word对象模型遍历文档内所有InlineShape和Shape对象，读取其Title或Description属性，并将结果写入新文档或文本文件。适用于含数百张图片的长文档，且支持保留原始图片位置索引。
1、按Alt+F11打开VBA编辑器，点击“插入”→“模块”，粘贴以下代码：
2、Sub ExtractAllAltText()
Dim doc As Document, shp As Shape, ils As InlineShape
Dim i As Long: i = 1
Dim outputDoc As Document
Set doc = ActiveDocument
Set outputDoc = Documents.Add
outputDoc.Content.Text = "Word 2026 图片Alt文本批量提取结果（共" & doc.InlineShapes.Count + doc.Shapes.Count & "个对象）" & vbCr & vbCr
For Each ils In doc.InlineShapes
If Not ils.AlternativeText = "" Then
outputDoc.Content.InsertAfter i & ". 【行内图片】位置：" & ils.Range.Start & "，Alt文本：" & ils.AlternativeText & vbCr
i = i + 1
End If
Next
For Each shp In doc.Shapes
If Not shp.AlternativeText = "" Then
outputDoc.Content.InsertAfter i & ". 【浮动图片】名称：" & shp.Name & "，Alt文本：" & shp.AlternativeText & vbCr
i = i + 1
End If
Next
outputDoc.Activate
End Sub
3、按F5运行宏，新文档将自动生成含编号、类型、位置/名称及Alt文本的完整列表。
二、利用“导航窗格”配合查找功能定位并复制Alt文本
此方式不依赖编程，适用于仅需提取少量关键图片Alt文本的场景。利用Word 2026增强的“选择窗格”与“导航窗格”联动机制，可快速筛选并人工复核每个图形对象的替代文本字段。
1、点击“视图”选项卡，勾选“导航窗格”与“选择窗格”。
2、在导航窗格中点击“图形”类别，所有含Alt文本的图片将高亮显示于页面上。
3、依次单击每张图片，在“格式”选项卡下找到“替代文本”按钮（图标为方框加字母A）”，点击后弹出对话框，其中“说明”栏内容即为当前Alt文本，可直接全选复制。
三、通过“检查文档”功能导出结构化报告
Word 2026的“检查文档”工具在无障碍检测模块中会自动扫描并汇总所有图片的替代文本信息，生成XML格式诊断报告，用户可从中提取纯文本字段。该路径适合需存档审计或对接外部无障碍校验系统的用户。
1、点击“文件”→“信息”→“检查问题”→“检查文档”。
2、在弹出窗口中确保“图像替代文本”复选框被勾选，点击“检查”。
3、检查完成后，在结果列表中找到“替代文本缺失/存在”条目，点击右侧“查看全部”链接，系统将生成含每张图片ID、位置段落号及Alt文本值的表格化摘要页。
4、右键摘要表格，选择“复制为纯文本”，粘贴至记事本即可获得无格式文本流。
