excel 批量修改或设置超链接?
发布网友
发布时间：2022-04-23 09:03
共1个回答
热心网友
时间：2023-05-03 12:15
建一个宏，粘贴如下代码后执行
Sub 修改超链接()
On Error Resume Next
Dim I As Integer
Dim oldAdr As String
Dim newAddr As String
oldAdr = InputBox("请输入要替换的文件夹路径：")
newAdr = InputBox("请输替换后的文件夹路径：")
For I = 1 To ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(I).Address = Replace(ActiveDocument.Hyperlinks(I).Address, oldAdr, newAdr)
Next I
End Sub追问已经用其它办法解决了,但还是谢谢你.
