vbscript 检测四位数有逗号，超过四位数无逗号的情况

Posted

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了vbscript 检测四位数有逗号，超过四位数无逗号的情况相关的知识，希望对你有一定的参考价值。

Sub fourFiveDigit()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "<[0-9],[0-9]{3}>"
        .MatchWildcards = True
        .Replacement.Text = ""
        .Replacement.highlight = True
        .Execute Replace:=wdReplaceAll
        
    End With
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "<[0-9]{4,}>"
        .MatchWildcards = True
        .Replacement.Text = ""
        .Replacement.highlight = True
        .Execute Replace:=wdReplaceAll
        
    End With
End Sub

以上是关于vbscript 检测四位数有逗号，超过四位数无逗号的情况的主要内容，如果未能解决你的问题，请参考以下文章