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.
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: