MS Word 宏用一个词替换所有超链接

Question

我准备了一个包含大量新闻文章的 MS Word 文件，每篇文章后面都有一个完整的、长的可点击超链接（例如 http://www.newssite.com/this-is-the-name-of-the-article.html）。

我需要用一个词替换文件中的所有超链接：“Link”，同时保留它们的 url 地址和点击功能。我可以使用 MS Word "change hyperlink" 对话来做到这一点，但手工完成需要花费大量时间。

但是，超链接的格式并不总是 'hyperlink' 样式。 MS Word 宏替换有任何条件可以根据功能而不是样式或文本查找超链接吗？

尽管这个任务看起来很常见，但我在网上找不到类似的东西。

Answer 1

因为您已经创建了超链接。它应该只需要遍历文档超链接集合并更改 'TextToDisplay' 属性。这应该让你开始：

Public Sub ChangeHyperlinksText()

    Dim hlink As Hyperlink

    For Each hlink In ThisDocument.Hyperlinks
        hlink.TextToDisplay = "Link"
    Next hlink
End Sub

MS Word 宏用一个词替换所有超链接

MS Word Macro to replace all hyperlinks with a single word

vba

ms-word

hyperlink