1、通过VBA宏可批量修改Word中超链接地址，提升效率；2、按显示文本匹配可精准替换特定超链接；3、也可一键清除所有超链接仅保留文本。
如果您需要在Word文档中批量修改多个超链接的地址，手动逐个更改将非常耗时。通过使用Word宏命令，可以高效地完成对所有超链接地址的替换任务。
本文运行环境：Dell XPS 13，Windows 11
一、使用VBA宏批量替换超链接地址
利用Word内置的VBA编辑器编写宏代码，可以遍历文档中的所有超链接，并根据指定条件修改其地址。这种方法适用于拥有大量超链接且目标地址具有统一替换规则的情况。
1、按下 Alt + F11 打开VBA编辑器。
2、在左侧项目窗口中右键点击当前文档名称，选择“插入” → “模块”。
3、在新建的模块窗口中粘贴以下代码：
Sub ReplaceHyperlinks()
Dim hl As Hyperlink
Dim oldText As String
Dim newText As String
oldText = "https://old-link.com"
newText = "https://new-link.com"
For Each hl In ActiveDocument.Hyperlinks
If InStr(hl.Address, oldText) > 0 Then
hl.Address = Replace(hl.Address, oldText, newText)
End If
Next hl
MsgBox "超链接已批量更新完成！"
End Sub
4、将代码中的 oldText 和 newText 修改为实际需要替换的原始地址和新地址。
5、关闭VBA编辑器，返回Word文档，按下 Alt + F8，选择“ReplaceHyperlinks”，点击“运行”执行宏。
二、按显示文本匹配并修改特定超链接
当只需要修改部分基于特定显示文本的超链接时，可通过判断超链接的显示文本来精准定位并更改其地址。
1、打开VBA编辑器（Alt + F11），插入新模块。
2、输入以下代码：
Sub UpdateHyperlinksByDisplayText()
Dim hl As Hyperlink
Dim searchText As String
Dim replacementUrl As String
searchText = "点击这里访问"
replacementUrl = "https://updated-url.com/page"
For Each hl In ActiveDocument.Hyperlinks
If hl.TextToDisplay = searchText Then
hl.Address = replacementUrl
End If
Next hl
MsgBox "匹配的超链接已更新。"
End Sub
3、修改 searchText 为要查找的超链接显示文字，设置 replacementUrl 为目标新地址。
4、保存后运行该宏，仅符合显示文本条件的超链接会被更新。
三、批量移除或重置所有超链接
在某些情况下，可能需要清除所有超链接但保留其显示文本。此方法通过删除超链接结构实现内容净化。
1、打开VBA编辑器并插入模块。
2、使用以下代码：
Sub RemoveAllHyperlinks()
While ActiveDocument.Hyperlinks.Count > 0
ActiveDocument.Hyperlinks(1).Delete
Wend
MsgBox "所有超链接已删除。"
End Sub
3、运行宏后，文档中所有超链接将被移除，仅保留纯文本内容。
