当前有一个带有超链接文本的 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]
请尝试一下。
Sub Demo()
With ActiveDocument
While .Hyperlinks.Count > 0
.Hyperlinks(1).Range.Text = "[" & .Hyperlinks(1).Address & " " & .Hyperlinks(1).TextToDisplay & "]"
Wend
End With
End Sub