Word proporciona una herramienta incorporada que le permite contar la cantidad de palabras en su documento. Sin embargo, algunas personas prefieren tener un recuento de palabras actualizado constantemente en su documento. De esa manera, pueden vigilar el contador de palabras y dejar de escribir cuando hayan alcanzado el número deseado de palabras en su documento.

Desafortunadamente, Word no proporciona un recuento de palabras en ejecución integrado que pueda activar o desactivar. Sin embargo, puede crear una macro que le proporcionará la información necesaria. La siguiente macro ingeniosa mostrará un recuento de palabras que se actualiza constantemente al final de la barra de herramientas de formato:

Sub WordCounter()

Set myBar = CommandBars("Formatting")

Set myControls = myBar.Controls     NumButtons = myControls.Count

ButtonLoc = 0     For J = 1 To NumButtons         If myControls(J).Type = msoControlButton Then             ButtonName$ = myControls(J).OnAction             If ButtonName$ = "WordCounter" Then ButtonLoc = J         End If     Next J

If ButtonLoc = 0 Then         ButtonLoc = NumButtons + 1         Set newControl = myControls.Add(Type:=msoControlButton)

newControl.OnAction = "WordCounter"

newControl.Style = msoButtonCaption     End If

Set myRange = ActiveDocument.Content     WdCount = myRange.ReadabilityStatistics(1).Value     With myControls(ButtonLoc)

.Caption = WdCount     End With

Application.OnTime When:=Now + TimeSerial(0, 0, 5), _       Name:="WordCounter"

End Sub

Tenga en cuenta que esta macro agrega el recuento de palabras al final de la barra de herramientas de formato cuando se ejecuta por primera vez. El botón de la barra de herramientas permanece ahí a partir de ese momento.

Si posteriormente modifica su barra de herramientas para que el botón no esté al final de la barra de herramientas, la macro la encontrará y actuará en consecuencia.

Cuando inicie Word por primera vez (después de haber ejecutado esta macro), deberá hacer clic en el botón de la barra de herramientas para iniciar la macro. Por supuesto, puede crear una macro AutoStart separada que ejecute WordCounter cuando inicie Word por primera vez.

Una cosa a tener en cuenta sobre la macro es que se repite cada cinco segundos.

Si esto ocurre con demasiada frecuencia, puede cambiar el valor (5) en la función TimeSerial cerca del final de la macro. Dependiendo de la velocidad de su sistema, puede notar un leve parpadeo en la pantalla cada vez que se ejecuta la macro, pero definitivamente tendrá un recuento de palabras actualizado. Si, en cambio, desea el recuento de palabras solo cuando hace clic en el botón en la barra de herramientas, simplemente elimine la línea Application.OnTime cerca del final de la macro.

Si desea eliminar la macro para que no se ejecute más, debe seguir estos tres sencillos pasos:

  1. Salir de Word.

  2. Reinicie Word. La macro ahora no se está ejecutando.

  3. Edite su barra de herramientas de formato para eliminar el botón WordCounter.

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