Lise está trabajando con 50 documentos pequeños, muchos de menos de una página. Todos están en archivos separados (no maestros ni subdocumentos). Le gustaría saber el recuento total de palabras en todos los archivos y se pregunta si existe una manera fácil de obtener el recuento.

Una opción es utilizar un complemento de terceros que pueda calcular el recuento de palabras por usted. Aquí tienes tres sugerencias que quizás quieras revisar:

WordCounter: http://www.editorium.com/counter.htm FineCount: http://www.tilti.com/software-for-translators/finecount/?id=2_finecountv2 Total Assistant: http://www.surefiresoftware.com/totalassistant/

Por supuesto, si prefiere «rodar por su cuenta» en lugar de confiar en la solución de otra persona, puede crear una macro relativamente simple que recorra cada archivo en una carpeta y calcule un recuento total de palabras.

Sub GetWordCount()

Dim docname As String     Dim NumWords As Long     Dim NumFiles As Integer     Dim PathName As String

PathName = "c:\mypath\"



NumWords = 0     docname = Dir(PathName & ".doc")

While docname <> ""

NumFiles = NumFiles + 1         Documents.Open FileName:=PathName & docname, Visible:=False         Documents(docname).Activate

NumWords = NumWords + ActiveDocument.BuiltInDocumentProperties("Number of words").Value

Documents(docname).Close savechanges:=False         docname = Dir     Wend

MsgBox ("There are " & NumWords & " words in " & NumFiles & " documents.")

End Sub

Para utilizar la macro, asegúrese de cambiar la variable PathName para que refleje la ruta a la carpeta que contiene los documentos que desea contar. (La designación de la ruta debe terminar en una barra invertida). Cuando ejecuta la macro, muestra el recuento de palabras en un cuadro de mensaje.

_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 (5595) 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_Counts_for_a_Group_of_Documents [Word Counts para un grupo de documentos].