vbscript 检测结论是否掉小号

Posted 2021-05-21

Sub Conclusion()
    With Selection.Find
        .Text = "Conclusion[!s]"
        .ParagraphFormat.OutlineLevel = 1
        .ClearFormatting
        .Replacement.ClearFormatting
        .Wrap = wdFindContinue
        .Font.Bold = 1
        .Replacement.Text = ""
      
        .Execute
        If .Found Then
            Selection.Range.HighlightColorIndex = wdYellow
        End If
    End With
End Sub