Incluir texto de cuadro de texto en recuentos de palabras (Microsoft Word)
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.