Cuando esté trabajando en un documento grande, es posible que desee saber cuántas veces aparece una cadena de texto en particular dentro de una parte del documento.

Una forma de encontrar esta información es crear una macro que examinará un rango de texto seleccionado para ver cuántas instancias contiene.

Considere la siguiente macro:

Sub CountString()

Dim MyDoc As String, txt As String, t As String     MyDoc = ActiveDocument.Range.Text     txt = InputBox("Text to find")

t = Replace(MyDoc, txt, "")

MsgBox (Len(MyDoc) - Len(t)) / Len(txt) & " occurrences of " & txt End Sub

Seleccione el texto que desea analizar y luego ejecute la macro. Asigna el texto seleccionado a la variable MyDoc (por lo que nada en el documento real se ve afectado) y luego le pide que ingrese la cadena de texto que desea encontrar. La función Reemplazar se usa para reemplazar todas las instancias de esa cadena dentro de la variable MyDoc. El texto, después del reemplazo, se asigna a la variable t. La longitud del texto «antes» (MyDoc)

y se compara el texto «después» (t) y se calcula el número de reemplazos.

_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). Este consejo (3788) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Counting_the_Instances_of_a_Text_String [Contando las instancias de una cadena de texto].