Steven usa le modifiche alla traccia nei suoi documenti tutto il tempo. Ha bisogno di un modo per contare solo le parole che sono state modificate in un documento, quelle interessate da Revisioni.

La risposta è che puoi ottenere le informazioni desiderate tramite il riquadro di revisione. Visualizzare la scheda Revisione della barra multifunzione, quindi fare clic sullo strumento Riquadro delle revisioni (nel gruppo Rilevamento). Word visualizza il riquadro delle revisioni sullo schermo e nella parte superiore del riquadro c’è un riepilogo delle revisioni apportate nel documento. Mostra le statistiche per le seguenti cinque modifiche:

Inserimenti Eliminazioni Mosse Modifiche alla formattazione * Commenti

Queste statistiche possono sembrare adatte al conto, ma ricorderai che ho detto che forniscono “una sorta di” informazione richiesta. Falliscono un po ‘se quello che vuoi veramente è un conteggio delle parole cambiate. Le statistiche contano i cambiamenti, non le parole cambiate. Ad esempio, se elimini una frase composta da più parole, quella modifica conta come un’unica eliminazione nelle statistiche. Allo stesso modo, se aggiungi una frase al tuo documento, quell’aggiunta conta come un singolo inserimento, anche se l’inserimento conteneva un paragrafo completo.

Se vuoi cambiare le parole effettive, sfortunatamente sei sfortunato: Word non fornisce alcun modo per ottenere le informazioni desiderate. Tuttavia, puoi ideare la tua macro per determinare le informazioni desiderate. Ecco un esempio:

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

Questa macro esegue ogni modifica nel documento corrente e somma separatamente i conteggi delle parole e dei caratteri sia per gli inserimenti che per le eliminazioni. Le statistiche vengono quindi presentate in una finestra di messaggio. Notare che la macro esamina la raccolta Words per ogni modifica nel documento.

Dovresti capire che il conteggio delle parole, come presentato qui, è un’approssimazione. Ciò è dovuto al modo in cui vengono contate le parole. Ad esempio, ogni segno di punteggiatura in un’aggiunta viene conteggiato come una parola separata. Ciò significa che una frase come “come si può vedere, questo è un ottimo modo” verrebbe considerata come dieci parole invece di nove (la virgola conta come una parola separata). Inoltre, se la frase che hai aggiunto includesse uno spazio iniziale, cosa che spesso fanno gli inserimenti, allora ci sarebbero undici parole conteggiate per l’inserimento a causa di quello spazio.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (11484) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365. Puoi trovare una versione di questo suggerimento per vecchia interfaccia del menu di Word qui:

Counting Changed Words.