在VBA for Word中，如何在超链接地址上使用Find方法？

Question

我在文档中有700多个链接，我想使用.Find方法使用某个简单的正则表达式扫描超链接地址。 不幸的是，我尝试的所有内容都将查找限制为显示的文本而不是实际的超链接地址。

任何帮助，将不胜感激。 这是代表我现在拥有的代码片段：

Set rng = .Hyperlinks(i).Range
Set fnd = rng.Find

（不幸的是，第一行中设置的范围是显示的文本，而不是超链接地址文本。）

谢谢。

Answer 1

您可以设置FieldCode以使链接可见：

ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes

然后，您可以搜索与文本相同的链接; 这只是我记录的一个例子：

ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
CommandBars("Navigation").Visible = False
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "https://me.you"
    .Replacement.Text = "https://you.me"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With