Steven verwendet ständig Änderungen in seinen Dokumenten. Er muss nur die Wörter zählen können, die in einem Dokument geändert wurden – diejenigen, die von Änderungen verfolgen betroffen sind.

Wenn Sie eine ältere Version von Word (vor Word 2003) verwenden, gibt es eine Möglichkeit, dies zu tun. Wenn Sie im Feld Suchen Strg + N drücken, findet Word nur „neue“ Wörter …​ d. H. Verfolgte Änderungen. Sie können diese „Wörter“ dann durch sich selbst ersetzen (verwenden Sie ^ & im Feld Ersetzen durch) und eine Anzahl der Ersetzungen abrufen.

Wenn Sie Word 2003 verwenden, ist diese Funktion aufgrund der Änderungen in der Art und Weise, wie Word Änderungen verfolgt und anzeigt, nicht mehr vorhanden. In diesem Fall müssen Sie ein Makro verwenden, um die gewünschten Informationen anzuzeigen. Das folgende Beispiel zeigt ein Makro, das Sie verwenden können:

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

Dieses Makro durchläuft jede Änderung im aktuellen Dokument und summiert die Wort- und Zeichenanzahl für Einfügungen und Löschungen separat. Die Statistiken werden dann in einem Meldungsfeld angezeigt. Beachten Sie, dass das Makro die Words-Auflistung für jede Änderung im Dokument überprüft.

Sie sollten verstehen, dass die hier dargestellte Wortzahl eine Annäherung ist. Dies liegt an der Art und Weise, wie Wörter gezählt werden. Beispielsweise wird jedes Interpunktionszeichen in einem Zusatz als separates Wort gezählt. Dies bedeutet, dass eine Phrase wie „Wie man sehen kann, ist dies eine großartige Möglichkeit“ als zehn statt neun Wörter gewertet wird (das Komma zählt als separates Wort). Wenn die von Ihnen hinzugefügte Phrase ein führendes Leerzeichen enthält – was bei Einfügungen häufig der Fall ist -, werden aufgrund dieses Leerzeichens elf Wörter für die Einfügung gezählt.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1095) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier: