Steven usa Control de cambios en sus documentos todo el tiempo. Necesita una forma de contar solo las palabras que se han modificado en un documento: las afectadas por el control de cambios.

La respuesta es que puede obtener la información que desea mediante el uso del Panel de revisión. Muestre la pestaña Revisar de la cinta, luego haga clic en la herramienta Panel de revisión (en el grupo Seguimiento). Word muestra el Panel de revisión en pantalla y en la parte superior del panel hay un resumen de las revisiones realizadas en el documento. Muestra estadísticas de los cinco cambios siguientes:

Inserciones Eliminaciones Mueve cambios de formato * Comentarios

Estas estadísticas pueden parecer ajustadas a los requisitos, pero recordarán que dije que brindan «una especie de» la información deseada. Se quedan un poco cortos si lo que realmente quieres es un recuento de palabras cambiadas. Las estadísticas cuentan cambios, no palabras cambiadas. Por ejemplo, si elimina una frase que consta de varias palabras, esa edición cuenta como una sola eliminación en las estadísticas. De manera similar, si agrega una frase a su documento, esa adición cuenta como una sola inserción, incluso si la inserción contiene un párrafo completo.

Si desea que se cambien las palabras reales, lamentablemente no tiene suerte: Word no proporciona ninguna forma de obtener la información deseada. Sin embargo, puede diseñar su propia macro para determinar la información deseada. Aquí tienes un ejemplo:

Sub GetTCStats()

Dim lInsertsWords As Long     Dim lInsertsChar As Long     Dim lDeletesWords As Long     Dim lDeletesChar As Long     Dim sTemp As String     Dim oRevision As Revision          lInsertsWords = 0     lInsertsChar = 0     lDeletesWords = 0     lDeletesChar = 0     For Each oRevision In ActiveDocument.Revisions         Select Case oRevision.Type             Case wdRevisionInsert                 lInsertsChar = lInsertsChar + Len(oRevision.Range.Text)

lInsertsWords = lInsertsWords + oRevision.Range.Words.Count             Case wdRevisionDelete                 lDeletesChar = lDeletesChar + Len(oRevision.Range.Text)

lDeletesWords = lDeletesWords + oRevision.Range.Words.Count         End Select     Next oRevision

sTemp = "Insertions" & vbCrLf     sTemp = sTemp & "    Words: " & lInsertsWords & vbCrLf     sTemp = sTemp & "    Characters: " & lInsertsChar & vbCrLf     sTemp = sTemp & "Deletions" & vbCrLf     sTemp = sTemp & "    Words: " & lDeletesWords & vbCrLf     sTemp = sTemp & "    Characters: " & lDeletesChar & vbCrLf     MsgBox sTemp End Sub

Esta macro recorre cada cambio en el documento actual y suma por separado el recuento de palabras y el recuento de caracteres para las inserciones y eliminaciones. A continuación, las estadísticas se presentan en un cuadro de mensaje. Tenga en cuenta que la macro examina la colección de palabras para cada cambio en el documento.

Debe comprender que el recuento de palabras, como se presenta aquí, es una aproximación. Esto se debe a la forma en que se cuentan las palabras. Por ejemplo, cada signo de puntuación en una adición se cuenta como una palabra separada. Esto significa que una frase como «como se puede ver, esta es una excelente manera» se contabilizaría como diez palabras en lugar de nueve (la coma cuenta como una palabra separada). Además, si la frase que agregó incluye un espacio inicial, lo que suele suceder con las inserciones, entonces se contabilizarían once palabras para la inserción debido a ese espacio.

_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). Esta sugerencia (11484) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365. Puede encontrar una versión de esta sugerencia para interfaz de menú anterior de Word aquí:

link: / word-Counting_Changed_Words [Contando palabras cambiadas].