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

VBA宏在Word文件中查找整个URL,vba,ms-word,Vba,Ms Word,您好:我正在尝试在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

您好:我正在尝试在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

请将您的问题包括示例URL和您正在使用的代码。您可以在“查找”中找到有关使用通配符的帮助。Hi Rich:不幸的是,在我获取文件时,超链接已执行了“删除超链接”操作,因此超链接的文本保留。我遇到的一些“http”值示例包括:;和