wordvba使用Find方法统计当前word中seq域代码的数量

可以使用以下VBA代码来统计当前Word文档中seq域代码的数量：

Sub CountSeqFields()
    Dim doc As Document
    Set doc = ActiveDocument
    
    Dim count As Integer
    count = 0
    
    With doc.Range.Find
        .ClearFormatting
        .MatchWildcards = True
        .Text = "SEQ *"
        .Forward = True
        .Wrap = wdFindStop
        Do While .Execute
            count = count + 1
        Loop
    End With
    
    MsgBox "Number of SEQ fields: " & count
End Sub

这段代码首先定义了一个Document对象表示当前打开的文档。然后定义了一个整数变量count用于统计seq域代码的数量。接着使用Word的Find方法查找所有以"SEQ "开头的文本，即seq域代码。最后，在循环中每次找到一个seq域代码时，就将count加1。最后弹出一个消息框，显示统计结果。