Question

VBA word宏编程，全部替换后有个统计替换了多少个地方，如何获得这个统计值？

Answer 1

Sub test()
Selection.Find.ClearFormatting
With Selection.Find
     .Text = "估价"
     .Forward = True
End With
Do While True
     Selection.Find.Execute
     If Selection.Find.Found Then
        SPos=selection.start
        if EPos=SPos then  '关键，否则会死循环导致死机
         exit do
        else
         EPos=SPos
        endif
         n = n + 1
     Else
         Exit Do
     End If
Loop
MsgBox n
End Sub

Answer 2

Sub test()
Selection.Find.ClearFormatting
With Selection.Find
     .Text = "估价"
     .Forward = True
End With
Do While True
     Selection.Find.Execute
     If Selection.Find.Found Then
         n = n + 1
     Else
         Exit Do
     End If
Loop
MsgBox n
End Sub