Inhaltsverzeichnis
Wörter in Auswahl zählen
Dieses Wort-VBA-Makro zählt die Anzahl der Wörter in der Auswahl. Wenn keine Auswahl getroffen wird, wird die Anzahl der Wörter im gesamten Dokument gezählt.
Sub WordCount() 'zählt das gesamte Dokument, dann Wortanzahl für die Auswahl (wenn etwas ausgewählt ist) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics(wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics(wdStatgCharacters) Das gesamte Dokument enthält: " & vbCrLf & nWordsCount & " Wörter und" & vbCrLf & _ nCharCount & " Zeichen ohne Leerzeichen", , "Word Count" 'zeigt jetzt die Wortanzahl für den ausgewählten Text Wenn Selection.Words.Count >= 1 And Selection.Type wdSelectionIP Then nWordsCount = Selection.Range.ComputeStatistics(wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics(wdStatisticCharacters) MsgBox "Ausgewählter Text enthält: " & vbCrLf & nWordsCount & " Wörter und" & "_nLf &Characters Leerzeichen", , "Wortzählung (Auswahl)" End If End Sub