Uno de los beneficios de los campos es que puede insertar información dinámica dentro de su documento. Cuando se actualiza el campo, se reemplaza con cualquier información actual relativa al campo en uso. Por ejemplo, puede utilizar el campo NumWords para insertar el número de palabras en el documento. Cuando se actualiza el campo, se reemplaza por la cantidad de palabras que haya en el documento.

Si desea averiguar la cantidad de palabras en una sección y colocarla dinámicamente en un documento, no tiene suerte. No hay ningún campo que devuelva esta información. Puede averiguarlo manualmente seleccionando el texto en la sección y luego eligiendo la herramienta Word Count, pero eso obviamente no satisface el deseo de tener un valor que pueda insertarse en su documento y actualizarse automáticamente.

Esto significa que deberá confiar en una macro para obtener el recuento de palabras deseado. Si solo desea saber la cantidad de palabras en cada sección de su documento, la siguiente macro puede ser útil.

Sub WordCount()

Dim NumSec As Integer     Dim S As Integer     Dim Summary As String

NumSec = ActiveDocument.Sections.Count     Summary = "Word Count" & vbCrLf

For S = 1 To NumSec         Summary = Summary & "Section " & S & ": " _           & ActiveDocument.Sections(S).Range.Words.Count _           & vbCrLf     Next

Summary = Summary & "Document: " & _       ActiveDocument.Range.Words.Count     MsgBox Summary End Sub

Esto simplemente recorre cada sección, determina el recuento de palabras en esa sección y muestra la información de resumen en un cuadro de mensaje.

Esto no proporciona una forma de insertar dinámicamente la información en el documento, pero proporciona una ilustración de cómo puede encontrar el recuento de palabras de una sola sección.

Una variación de la técnica le permite insertar automáticamente el recuento de palabras para una sección específica en la ubicación de un marcador dentro de su documento. Digamos que tiene un marcador llamado «WordCount» que ha definido. Este marcador especifica el lugar donde desea la cantidad de palabras en la segunda sección de su documento. La siguiente macro determinará el recuento de palabras para la sección especificada y luego insertará el texto en la ubicación del marcador.

Sub InsertWordCount()

Dim oRange As Word.Range     Dim sBookmarkName As String     Dim sTemp As String

sBookmarkName = "WordCount"

With ActiveDocument         sTemp = Format(.Sections(2).Range.Words.Count, "0")

Set oRange = .Bookmarks(sBookmarkName).Range         oRange.Delete         oRange.InsertAfter Text:=sTemp         .Bookmarks.Add Name:=sBookmarkName, Range:=oRange     End With End Sub

La macro se puede llamar fácilmente desde otras macros, como una que se ejecuta cuando se abre, guarda o imprime el documento. De esa manera, el recuento de palabras se actualizaría en todos los momentos normales cuando un campo se actualiza automáticamente.

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 (519) 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-Word_Count_for_a_Section [Recuento de palabras para una sección].