可批量提取Word中超链接：先启用开发工具，再用VBA宏生成含显示文字与地址的新文档；辅以通配符查找验证；异常时导出纯文本，用正则提取URL。
如果您在Word文档中插入了大量超链接，但需要将它们全部提取出来并集中展示，手动点击复制会非常耗时。以下是利用宏代码批量提取文档中所有超链接的操作步骤：
一、启用开发工具选项卡
Word默认不显示“开发工具”选项卡，而录制和运行宏必须通过该选项卡操作。需先将其添加到功能区。
1、点击“文件”→“选项”→“自定义功能区”。
2、在右侧“主选项卡”列表中，勾选开发工具复选框。
3、点击“确定”，此时功能区最右侧会出现“开发工具”选项卡。
二、创建并运行超链接提取宏
该宏将遍历当前文档中所有超链接字段，提取其地址与显示文字，并在新文档中以制表符分隔的两列形式列出，便于复制到Excel等表格软件中。
1、切换到“开发工具”选项卡，点击Visual Basic按钮打开VBA编辑器。
2、在左侧工程资源管理器中，右键“Normal”→“插入”→“模块”。
3、在新建模块窗口中，粘贴以下完整代码：
Sub ExtractAllHyperlinks()
Dim doc As Document
Dim newDoc As Document
Dim hl As Hyperlink
Set doc = ActiveDocument
Set newDoc = Documents.Add
newDoc.Content.Text = "显示文字" & vbTab & "超链接地址" & vbCrLf
For Each hl In doc.Hyperlinks
newDoc.Content.InsertAfter hl.TextToDisplay & vbTab & hl.Address & vbCrLf
Next hl
newDoc.Activate
End Sub
4、按F5运行宏，或点击“运行子过程/用户窗体”按钮（绿色三角形）。
5、运行完成后，系统将自动弹出一个新文档，其中第一行为表头，后续每行包含一个超链接的显示文字与对应URL。
三、使用通配符查找法辅助验证
该方法不依赖宏，适用于无法启用VBA环境的场景，可快速定位所有含超链接的段落，辅助人工核对或配合其他工具批量处理。
1、按Ctrl+H打开“查找和替换”对话框。
2、点击“更多”→勾选使用通配符。
3、在“查找内容”框中输入：^d HYPERLINK *（注意末尾有空格）。
4、点击“查找下一处”，Word将逐个高亮定位到超链接域代码位置，可确认是否存在未被宏捕获的嵌套或特殊格式链接。
四、导出为纯文本后用正则提取（备用方案）
当文档含复杂样式或宏运行异常时，可先导出为纯文本，再借助外部文本编辑器（如Notepad++）通过正则表达式匹配超链接结构，实现二次提取。
1、点击“文件”→“另存为”，保存类型选择纯文本（*.txt）。
2、用Notepad++打开该TXT文件，按Ctrl+H调出替换面板。
3、勾选“正则表达式”，在“查找目标”中输入：HYPERLINK\s+"([^"]+)"。
4、在“替换为”中输入：$1\r\n，点击“全部替换”即可提取全部URL地址行。
