Word tiene esta ingeniosa herramienta que cuenta la cantidad de palabras en su documento por usted. El único problema es que no cuenta todas las palabras. Por ejemplo, si su documento contiene cuadros de texto, la herramienta de recuento de palabras no incluirá ningún texto en los cuadros de palabras en el recuento general de palabras del documento. Esto puede ser un problema real, especialmente si está utilizando cuadros de texto para implementar un elemento de documento especial, como las barras laterales.

Sin embargo, hay una forma de solucionar el problema. Puede contar todas las palabras en la parte principal de su documento como lo haría normalmente, y luego anote ese número. Luego mueva el punto de inserción a un cuadro de texto.

Si ejecuta la herramienta de recuento de palabras, Word devuelve el número de palabras en ese cuadro de texto. Si selecciona varios cuadros de texto antes de ejecutar la herramienta de recuento de palabras, Word devuelve el recuento de todas las palabras en todos los cuadros de texto que seleccionó. Si está utilizando cuadros de texto vinculados, no es necesario que los seleccione todos, pero debe mover el punto de inserción al último cuadro de texto de la serie. Cuando sume el recuento de palabras en el documento principal, más el recuento de palabras para cualquier cuadro de texto, tendrá el recuento de palabras para todo el documento.

Si usa mucho los cuadros de texto, el proceso anterior puede resultar bastante molesto. Si lo prefiere, puede crear una macro que automatizará el proceso por usted. La siguiente macro determina el recuento de palabras en el documento principal y le agrega el recuento de palabras para cada cuadro de texto del documento. El resultado es un recuento total de palabras, como se describe anteriormente.

Sub TxtBxCount()

Dim i As Integer     Dim TxtWrds As Range     Dim TxtWrdsStats As Long     Dim ToTxtWrds As Long     Dim Lngwords As Long     Dim ToWords As Long

Lngwords = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)

For s = 1 To ActiveDocument.Shapes.Count         Set TxtWrds = ActiveDocument.Shapes(s).TextFrame.TextRange         TxtWrdsStats = TxtWrds.ComputeStatistics(Statistic:=wdStatisticWords)

ToTxtWrds = ToTxtWrds + TxtWrdsStats     Next     ToWords = Lngwords + ToTxtWrds     MsgBox ("The document has " & Format(ToWords, "##,##0") & " words.")

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). Este consejo (1658) se aplica a Microsoft Word 97, 2000, 2002 y 2003.