Programación de macros de palabras en VBA, después de todos los reemplazos, hay estadísticas de cuántos lugares se han reemplazado. ¿Cómo obtener estas estadísticas?
Sub?test()
Selection.Find.ClearFormatting
Con?Selection.Find .Text?=?" Valoración" .Forward?=?True
¿Fin?Valoración" .Adelante?=?True
Fin?Con
Hacer?Mientras?TrueSelection.Find.ExecuteIf?Selection.Find.Found?Then
SPos= Selection.Start
if?EPos=SPos?then?'¿Crítico, de lo contrario llegará a un callejón sin salida y provocará una salida forzosa?do
else EPos=SPos
endif n?=?n?+?1 ¿De lo contrario salir? ¿Fin? Si
bucle
¿MsgBox?