用于在 Word 文件中查找整个 URL 的 VBA 宏

问题描述

您好：我正在尝试在 Word 文件中查找整个 URL。大多数情况下，它们以 http 开头，但结尾并不总是 .html。我试过使用正则表达式（我熟悉的东西），但它们似乎在 VBA 中不起作用。非常感谢任何帮助。

解决方法

试试这个作为起点，然后根据您的需要进行修改。

Sub FixHyperlinks()
    Dim doc As Word.Document
    Dim lnk As Word.Hyperlink
    Set doc = ActiveDocument
    For Each lnk In doc.Content.Hyperlinks
        Debug.Print lnk.Address
    Next
End Sub