Msword搜索宏

Question

当我在未指定范围的情况下进行搜索时，搜索开始在活动页面上：

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "house"
    .Replacement.Text = "apartment"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = True
End With
Selection.Find.Execute

如果我使用范围，它总是从范围的开头开始，

ActiveDocument.StoryRanges(wdMainTextStory).select
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "house"
    .Replacement.Text = "apartment"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = True
End With
Selection.Find.Execute

有人知道一种在使用范围时在活动页面中启动搜索的方法吗？

通过Active页面，我的意思是带有光标的页面。

另外，我需要搜索脚注和尾注。这就是使用故事范围的原因，这似乎迫使搜索从文档的开头开始。

Answer 1

例如：

Dim findRange As Range
Set findRange = Selection.Range
With findRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "house"
    .Replacement.Text = "apartment"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = True
    .Execute
End With

请注意，由于您已经设置了.wrap = wdfindContinue它在查找开始时没有区别，因为它会搜索整个文档。