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.

Die Antwort ist, dass Sie die gewünschten Informationen über das Überprüfungsfenster abrufen können. Zeigen Sie die Registerkarte Überprüfen des Menübands an und klicken Sie dann auf das Werkzeug Überprüfungsbereich (in der Gruppe Nachverfolgung). Word zeigt den Überprüfungsbereich auf dem Bildschirm an. Oben im Bereich befindet sich eine Zusammenfassung der im Dokument vorgenommenen Änderungen. Es werden Statistiken für die folgenden fünf Änderungen angezeigt:

Einfügungen Löschungen Verschiebt Formatierungsänderungen * Kommentare

Diese Statistiken scheinen in die Rechnung zu passen, aber Sie werden sich daran erinnern, dass ich gesagt habe, dass sie die gewünschten Informationen „irgendwie“ liefern. Sie fallen etwas zu kurz, wenn Sie wirklich eine Anzahl geänderter Wörter wollen. Die Statistik zählt Änderungen, nicht geänderte Wörter. Wenn Sie beispielsweise eine Phrase löschen, die aus mehreren Wörtern besteht, zählt diese Bearbeitung nur als eine einzige Löschung in der Statistik. Wenn Sie Ihrem Dokument eine Phrase hinzufügen, gilt diese Hinzufügung als einzelne Einfügung, selbst wenn die Einfügung einen vollständigen Absatz enthielt.

Wenn Sie möchten, dass die tatsächlichen Wörter geändert werden, haben Sie leider kein Glück – Word bietet keine Möglichkeit, die gewünschten Informationen zu erhalten. Sie können jedoch ein eigenes Makro erstellen, um die gewünschten Informationen zu ermitteln. Hier ist ein Beispiel:

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 (11484) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier: