Sie wussten wahrscheinlich bereits, dass Word eine Möglichkeit bietet, die Anzahl der Wörter in einer Auswahl oder in Ihrem gesamten Dokument zu bestimmen. Word verfügt über eigene interne Algorithmen, um die richtige Anzahl zu ermitteln. Dies ist großartig, wenn Sie die tatsächliche Anzahl der Wörter kennen müssen.

Vor den Tagen der tatsächlichen Wortzählung haben die Schreibkräfte jedoch die Anzahl der durchschnittlichen Wörter in einem Dokument ermittelt. Dazu wurde die Anzahl der eingegebenen Zeichen ermittelt und diese Zahl durch fünf geteilt. Für einige Zwecke müssen Sie möglicherweise noch die Anzahl der Wörter mithilfe dieses altmodischen Ansatzes ermitteln. Dies kann mit einem einfachen Makro wie folgt erfolgen:

Sub WordCount()

Dim Title As String     Dim WordCount As Integer     Dim Message As String

Title = "WordCount"

WordCount = Int((Len(Selection) / 5) + 0.5)

Message = LTrim(Str(WordCount)) + " word"

If WordCount <> 1 Then Message = Message + "s"

MsgBox Message, vbOKOnly, Title End Sub

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

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

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

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (757) 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:

Wörter auf altmodische Weise zählen.