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”，点击“运行”执行宏。
二、按显示文本匹配并修改特定超链接
当只需要修改部分基于特定显示文本的超链接时，可通过判断超链接的显示文本来精准定位并更改其地址。
图改改
在线修改图片文字
455 查看详情
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、运行宏后，文档中所有超链接将被移除，仅保留纯文本内容。
以上就是Word怎么批量修改文档里超链接的地址_Word宏命令批量修改超链接技巧的详细内容，更多请关注创想鸟其它相关文章！
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。
如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 chuangxiangniao@163.com 举报，一经查实，本站将立刻删除。
发布者：程序猿，转转请注明出处：https://www.chuangxiangniao.com/p/255567.html
微信扫一扫 
支付宝扫一扫 
