将超链接文本转换为 Media Wiki 友好语法。删除多余的文字

Question

当前有一个带有超链接文本的 Word 文档。当复制到 MediaWiki 时，它会删除超链接。

Sub Demo()
With ActiveDocument
  While .Hyperlinks.Count > 0
    .Hyperlinks(1).Range.InsertBefore "[" & .Hyperlinks(1).Address & " " & .Hyperlinks(1).TextToDisplay & "]"
    .Hyperlinks(1).Delete
  Wend
End With
End Sub

这个VB宏会将Word超链接变成我需要的内容，但我无法删除第二个文本作为显示。它将把像这样的链接转换成纯文本[https://stackoverflow.com/ Stack Link here] Stack Link here。

我正在寻找快速的代码，它将删除“]”之后的第二个“堆栈链接”。由于 MediaWiki 的正确语法是 [www.yourlinkhere.com ClickableTextHere]

Answer 1

请尝试一下。

Sub Demo()
    With ActiveDocument
        While .Hyperlinks.Count > 0
            .Hyperlinks(1).Range.Text = "[" & .Hyperlinks(1).Address & " " & .Hyperlinks(1).TextToDisplay & "]"
        Wend
    End With
End Sub

微软文档：

Range.Text 属性（Word）