Word verfügt über dieses nützliche Tool, mit dem Sie die Anzahl der Wörter in Ihrem Dokument zählen können. Das einzige Problem ist, dass nicht alle Wörter gezählt werden. Wenn Ihr Dokument beispielsweise Textfelder enthält, enthält das Wortzählwerkzeug keinen Text in den Wortfeldern in der Gesamtwortzahl für das Dokument. Dies kann ein echtes Problem sein, insbesondere wenn Sie Textfelder verwenden, um ein spezielles Dokumentelement wie Seitenleisten zu implementieren.

Es gibt jedoch einen Weg, um das Problem zu umgehen. Sie können alle Wörter im Hauptteil Ihres Dokuments wie gewohnt zählen und diese Zahl dann notieren. Verschieben Sie dann die Einfügemarke in ein Textfeld.

Wenn Sie das Wortzählwerkzeug ausführen, gibt Word die Anzahl der Wörter in diesem Textfeld zurück. Wenn Sie mehrere Textfelder auswählen, bevor Sie das Wortzählwerkzeug ausführen, gibt Word die Anzahl aller Wörter in allen ausgewählten Textfeldern zurück. Wenn Sie verknüpfte Textfelder verwenden, müssen Sie nicht alle auswählen, sondern die Einfügemarke in das letzte Textfeld der Reihe verschieben. Wenn Sie die Wortanzahl im Hauptdokument plus die Wortanzahl für Textfelder addieren, erhalten Sie die Wortanzahl für das gesamte Dokument.

Wenn Sie häufig Textfelder verwenden, kann der oben beschriebene Vorgang ziemlich lästig werden. Wenn Sie möchten, können Sie ein Makro erstellen, das den Prozess für Sie automatisiert. Das folgende Makro bestimmt die Wortanzahl im Hauptdokument und fügt die Wortanzahl für jedes Textfeld im Dokument hinzu. Das Ergebnis ist eine Gesamtwortzahl, wie oben beschrieben.

Sub TxtBxCount()

Dim i As Integer     Dim TxtWrds As Range     Dim TxtWrdsStats As Long     Dim ToTxtWrds As Long     Dim Lngwords As Long     Dim ToWords As Long

Lngwords = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)

For s = 1 To ActiveDocument.Shapes.Count         Set TxtWrds = ActiveDocument.Shapes(s).TextFrame.TextRange         TxtWrdsStats = TxtWrds.ComputeStatistics(Statistic:=wdStatisticWords)

ToTxtWrds = ToTxtWrds + TxtWrdsStats     Next     ToWords = Lngwords + ToTxtWrds     MsgBox ("The document has " & Format(ToWords, "##,##0") & " words.")

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