在Word vba中从查找和替换中提取计数

Sub ExtractCountFromFindAndReplace()
    Dim rng As Range
    Dim findText As String
    Dim replaceText As String
    Dim findCount As Long
    Dim replaceCount As Long
    
    ' 设置要查找和替换的文本
    findText = "要查找的文本"
    replaceText = "要替换的文本"
    
    ' 设置查找范围为整个文档
    Set rng = ActiveDocument.Content
    
    ' 执行查找操作
    With rng.Find
        .Text = findText
        .MatchCase = False
        .Forward = True
        .Wrap = wdFindStop
        .Execute
        findCount = rng.Find.Found
    End With
    
    ' 执行替换操作
    With rng.Find
        .Text = findText
        .Replacement.Text = replaceText
        .Wrap = wdFindStop
        .Execute Replace:=wdReplaceAll
        replaceCount = rng.Find.Replacement.Count
    End With
    
    ' 显示查找和替换的计数结果
    MsgBox "查找计数: " & findCount & vbCrLf & "替换计数: " & replaceCount
End Sub