Geänderte Wörter zählen (Microsoft Word)
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: