在VBA for Word中，如何在超链接地址上使用“查找”方法

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