Word bietet ein integriertes Tool, mit dem Sie die Anzahl der Wörter in Ihrem Dokument ermitteln können. Einige Benutzer bevorzugen jedoch eine ständig aktualisierte Anzahl von Wörtern in ihrem Dokument. Auf diese Weise können sie den Wortzähler im Auge behalten und mit dem Schreiben aufhören, wenn sie die gewünschte Anzahl von Wörtern in ihrem Dokument erreicht haben.

Leider bietet Word keine integrierte Anzahl laufender Wörter, die Sie ein- oder ausschalten können. Sie können jedoch ein Makro erstellen, das die erforderlichen Informationen für Sie bereitstellt. Das folgende raffinierte Makro zeigt am Ende der Formatierungssymbolleiste eine ständig aktualisierte Wortanzahl an:

Sub WordCounter()

Set myBar = CommandBars("Formatting")

Set myControls = myBar.Controls     NumButtons = myControls.Count

ButtonLoc = 0     For J = 1 To NumButtons         If myControls(J).Type = msoControlButton Then             ButtonName$ = myControls(J).OnAction             If ButtonName$ = "WordCounter" Then ButtonLoc = J         End If     Next J

If ButtonLoc = 0 Then         ButtonLoc = NumButtons + 1         Set newControl = myControls.Add(Type:=msoControlButton)

newControl.OnAction = "WordCounter"

newControl.Style = msoButtonCaption     End If

Set myRange = ActiveDocument.Content     WdCount = myRange.ReadabilityStatistics(1).Value     With myControls(ButtonLoc)

.Caption = WdCount     End With

Application.OnTime When:=Now + TimeSerial(0, 0, 5), _       Name:="WordCounter"

End Sub

Beachten Sie, dass dieses Makro die Wortanzahl am Ende der Formatierungssymbolleiste beim ersten Ausführen hinzufügt. Die Symbolleistenschaltfläche bleibt von da an dort.

Wenn Sie Ihre Symbolleiste später so ändern, dass sich die Schaltfläche nicht am Ende der Symbolleiste befindet, findet das Makro sie und handelt entsprechend.

Wenn Sie Word zum ersten Mal starten (nachdem Sie dieses Makro ausgeführt haben), müssen Sie auf die Symbolleistenschaltfläche klicken, um das Makro zu starten. Natürlich können Sie ein separates AutoStart-Makro erstellen, das WordCounter beim ersten Start von Word ausführt.

Eine Sache, die Sie über das Makro beachten sollten, ist, dass es alle fünf Sekunden erneut ausgeführt wird.

Wenn dies zu oft vorkommt, können Sie den Wert (5) in der TimeSerial-Funktion gegen Ende des Makros ändern. Abhängig von der Geschwindigkeit Ihres Systems können Sie bei jeder Ausführung des Makros ein leicht störendes Bildschirmflimmern feststellen, aber Sie werden definitiv eine aktualisierte Wortzahl haben. Wenn Sie stattdessen nur die Wortanzahl möchten, wenn Sie auf die Schaltfläche in der Symbolleiste klicken, entfernen Sie einfach die Zeile Application.OnTime am Ende des Makros.

Wenn Sie das Makro entfernen möchten, damit es nicht mehr ausgeführt wird, sollten Sie die folgenden drei einfachen Schritte ausführen:

  1. Beenden Sie Word.

  2. Starten Sie Word neu. Das Makro wird jetzt nicht ausgeführt.

  3. Bearbeiten Sie Ihre Formatierungssymbolleiste, um die WordCounter-Schaltfläche zu entfernen.

_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 beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (1745) gilt für Microsoft Word 97, 2000, 2002 und 2003.