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

时间:2015-03-04 12:56:41

标签: vba hyperlink ms-word word-vba

我准备了一个MS Word文件,其中包含大量新闻文章,每个文章后跟一个完整的,长期可点击的超链接(例如http://www.newssite.com/this-is-the-name-of-the-article.html)。

我需要用一个单词替换文件中的所有超链接:" Link",同时保留其网址和点击功能。我可以使用MS Word"更改超链接"这样做的对话,但手工完成需要花费大量的时间。

但是,超链接并不总是格式化为'超链接'样式。 MS Word宏替换是否有任何条件可以按功能查找超链接,而不是按样式或文本查找?

尽管这项任务似乎很常见,但我在网上找不到类似的内容。

1 个答案:

答案 0 :(得分:0)

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

Public Sub ChangeHyperlinksText()

    Dim hlink As Hyperlink

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