1

我正在使用 VBA 宏在 Microsoft Word 中执行样式搜索。我的目标是为文档中找到的每种样式执行一次特定操作。

该宏在至少有两个段落的文档上正常工作，但宏不会在一个只有一个段落的文档中正确警告样式。奇怪的是，当我输入一个新的段落标记时，找到了样式，即使我没有在文档中添加任何新的文本或样式，只是一个额外的空白段落标记。有谁知道我的宏有什么问题以及如何解决这个问题？谢谢参观。

Sub AlertAllStylesInDoc()
    Dim Ind As Integer
    Dim numberOfDocumentStyles As Integer
    Dim styl As String
    Dim StyleFound As Boolean

    numberOfDocumentStyles = ActiveDocument.styles.count

    For Ind = 1 To numberOfDocumentStyles
        styl = ActiveDocument.styles(Ind).NameLocal
        With ActiveDocument.Content.Find
            .ClearFormatting
            .text = ""
            .Forward = True
            .Format = True
            .Style = styl
            Do
                StyleFound = .Execute
                If StyleFound = True Then
                    ' actual code does more than alert, but keeping it simple here'
                    MsgBox styl
                    GoTo NextStyle
                Else
                    Exit Do
                End If
            Loop
        End With

    NextStyle:
        Next

End Sub
4

1 回答 1

1

我不明白为什么ActiveDocument.Content不起作用，但用它替换ActiveDocument.Range(0,0)似乎可以解决问题（在 Word 2016 中测试）。

With ActiveDocument.Range(0, 0).Find

于 2016-07-20T21:12:24.897 回答