vbscript 检测是否有子表

Posted 2021-05-21

Sub checkSubcitation()
Dim aimT    As String
'首先做一个拆分figure 子图的功能，2-7， 3a,d类似这种
Selection.HomeKey wdStory
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .MatchWildcards = True
        .Font.Bold = True
        .Text = "Figure " + "[0-9]{1,}[a-zA-Z]"
        .Wrap = wdFindStop
        .Replacement.Text = ""
        Do
            .Execute
            If .Found Then
                Selection.Range.HighlightColorIndex = wdYellow
                Selection.comments.Add Selection.Range, "Sub caption is not allowed"
            Else
                Exit Do
            End If
            Selection.MoveRight wdWord, 1
        Loop
    End With
End Sub