查找所有缩进文本

Question

我想查找缩进 8 个空格的文档中的所有文本。下面的代码应该找到这些行并选择该行以供以后处理。但是，代码无条件地查找/选择所有行。出了什么问题？

我必须在每次匹配后重置查找结果吗？怎么做的？

Sub findAndSelectIntendedlines()
    Dim matched As Boolean
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Forward = True
        .Execute findtext:="^p        ", Forward:=True, Format:=False, Wrap:=wdFindStop
        matched = .Found
     End With
    If matched Then
            Selection.MoveDown Unit:=wdLine, Count:=1
            Selection.Find.Parent.Expand Unit:=wdLine
            Selection.Find.Parent.Copy
            'Debug.Print Selection
    Else
         Debug.Print "not matched"
    End If
End Sub

Answer 1

我已经修改了一些用于替换空格的代码。该例程查找 2 个或更多空格。我添加了一些代码并注释掉了几行，以便您测试它是否符合您的要求。

Sub FindAndReplaceEmptySpaces()
    Dim rng As Word.Range
    Set rng = ActiveDocument.Content
    With rng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = " {2,}" 'look for 2 or more
        .Replacement.Text = " " 'replace with 1
        .Forward = True
        .Wrap = Word.WdFindWrap.wdFindStop
        .Format = False
        .MatchWildcards = True
        'The following was added to demo the search
        .Execute
        Do While .found
            rng.MoveEnd Word.WdUnits.wdParagraph, Count:=1
            Debug.Print rng.Text
            rng.Collapse Word.WdCollapseDirection.wdCollapseEnd
            .Execute
        Loop
        'end of demo code
    End With
'The following code is commented out. Remove comments and demo code above
'to return to the automatically removing extra blank spaces
'    rng.Find.Execute Replace:=Word.WdReplace.wdReplaceAll
'    rng.Find.ClearFormatting
'    rng.Find.Replacement.ClearFormatting

End Sub