Question

我正在使用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

Answer 1

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

With ActiveDocument.Range(0, 0).Find

Microsoft Word VBA宏 - 一个段落查找替换样式

1 个答案: