重复的超链接，并更改格式和重复的 URL

Question

我正在寻找一种摆脱困境的方法：
https://www.google.com

到
https://www.google.com ^镜子

每个超链接的 URL 镜像部分都是固定的 (https://mirror.something.com/)

这适用于 Word 文档中的每个链接（包括尾注/脚注），但不包括地址中带有特定字符串的某些超链接。

比如说
https://www.bing.com 包含 bing.com，应保持不变。

Answer 1

例如：

Sub Demo()
Application.ScreenUpdating = False
Dim Stry As Range, h As Long, Rng As Range
Dim StrLnk As String, StrTxt As String
For Each Stry In ActiveDocument.StoryRanges
  For h = Stry.Hyperlinks.Count To 1 Step -1
    StrLnk = Stry.Hyperlinks(h).Address
    StrTxt = LCase(Split(StrLnk, ".")(1))
    Select Case StrTxt
      Case "bing"
      Case "something": h = h - 1
      Case Else
        Set Rng = Stry.Hyperlinks(h).Range
        With Rng
          .Characters.Last.Next.InsertBefore " "
          .End = .End + 1
          .Collapse wdCollapseEnd
          .Hyperlinks.Add .Duplicate, "https://mirror.something.com/" & StrLnk, , , "Mirror"
          .End = .End + 1
          .End = .Fields(1).Result.End
          .Font.Superscript = True
        End With
    End Select
  Next
Next
Application.ScreenUpdating = True
End Sub

PS：StackOverflow 不是免费的编码服务。您通常应该表明您自己投入了一些编码工作。