如何快速WORD修改超链接
发布网友
发布时间：2022-04-23 10:16
共3个回答
热心网友
时间：2023-10-11 06:43
得用宏。同时按Alt和F11，进入宏界面，点菜单的插入，模块，粘贴以下代码：
Sub Test()
dim i as integer
For i = 1 To ThisDocument.Hyperlinks.Count
ThisDocument.Hyperlinks(i).Address = Replace(ThisDocument.Hyperlinks(i).Address, "8888", "7777")
Next i
End Sub
直接按F5运行此宏，完成。
热心网友
时间：2023-10-11 06:43
这个很简单吧~~~CTRL+H~~~查找内容为8888替换内容为7777
热心网友
时间：2023-10-11 06:44
你用替换就行了，只改文字，不会改变超链接的
