Word怎么批量修改文档里超链接的地址_Word宏命令批量修改超链接技巧

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

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

Sub RemoveAllHyperlinks()
    While ActiveDocument.Hyperlinks.Count > 0
        ActiveDocument.Hyperlinks(1).Delete
    Wend
    MsgBox "所有超链接已删除。"
End Sub