Marc está buscando la forma más rápida y eficaz, dentro de una macro, de determinar el número de veces que aparece una cadena de texto en particular en un documento. Desafortunadamente, no hay forma de hacer esto con uno o dos comandos simples; en su lugar, debe «recorrer» un documento mediante la función Buscar y reemplazar de Word.

Primero, haga una copia temporal de su documento para que no corra el riesgo de estropear su documento original. Luego use una variable en su macro para contar la cantidad de veces que se reemplaza el texto deseado e incremente la variable cada vez que ocurra un reemplazo. En el siguiente ejemplo, el número de veces terminará en la variable Reemplazos.

A continuación, puede usar el valor o convertir el valor en una cadena para mostrarlo.

Sub CountReplacements     Dim Replacements As Integer

Replacements = 0     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = InputBox("Enter the text you want to find:")

.Replacement.Text = InputBox("Enter the replacement text:")

.Forward = True         .Wrap = wdFindContinue         .Format = False         .Execute Replace:=wdReplaceOne

Do Until Not .Found             .Execute Replace:=wdReplaceOne             Replacements = Replacements + 1             Selection.MoveRight Unit:=wdCharacter, Count:=1         Loop

If Replacements <> 0 Then             MsgBox _               "" & .Text & " has been replaced " & _               CStr(Replacements) & " times with " & _               .Replacement.Text         Else             MsgBox .Text & " was not found in the document/selection."

End If     End With End Sub

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Esta sugerencia (11941) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365. Puede encontrar una versión de esta sugerencia para interfaz de menú anterior de Word aquí:

link: / word-Occurrences_of_a_Text_String_within_a_Document [Apariciones de una cadena de texto dentro de un documento].