Einer der Vorteile von Feldern besteht darin, dass Sie dynamische Informationen in Ihr Dokument einfügen können. Wenn das Feld aktualisiert wird, wird es durch die aktuellen Informationen zu dem verwendeten Feld ersetzt. Sie können beispielsweise das Feld NumWords verwenden, um die Anzahl der Wörter in das Dokument einzufügen. Wenn das Feld aktualisiert wird, wird es durch die Anzahl der Wörter ersetzt, die sich dann im Dokument befinden.

Wenn Sie die Anzahl der Wörter in einem Abschnitt herausfinden und dynamisch in ein Dokument einfügen möchten, haben Sie kein Glück. Es gibt kein Feld, das diese Informationen zurückgibt. Sie können dies manuell herausfinden, indem Sie den Text im Abschnitt auswählen und dann das Wortzählwerkzeug auswählen. Dies entspricht jedoch offensichtlich nicht dem Wunsch nach einem Wert, der in Ihr Dokument eingefügt und automatisch aktualisiert werden kann.

Dies bedeutet, dass Sie sich auf ein Makro verlassen müssen, um die gewünschte Wortzahl zu erhalten. Wenn Sie nur die Anzahl der Wörter in jedem Abschnitt Ihres Dokuments wissen möchten, kann das folgende Makro hilfreich sein.

Sub WordCount()

Dim NumSec As Integer     Dim S As Integer     Dim Summary As String

NumSec = ActiveDocument.Sections.Count     Summary = "Word Count" & vbCrLf

For S = 1 To NumSec         Summary = Summary & "Section " & S & ": " _           & ActiveDocument.Sections(S).Range.Words.Count _           & vbCrLf     Next

Summary = Summary & "Document: " & _       ActiveDocument.Range.Words.Count     MsgBox Summary End Sub

Dies geht einfach durch jeden Abschnitt, bestimmt die Wortanzahl in diesem Abschnitt und zeigt die Zusammenfassungsinformationen in einem Meldungsfeld an.

Dies bietet keine Möglichkeit, die Informationen dynamisch in das Dokument einzufügen, zeigt jedoch, wie Sie die Wortanzahl eines einzelnen Abschnitts ermitteln können.

Mit einer Variation der Technik können Sie die Wortanzahl für einen bestimmten Abschnitt automatisch an der Stelle eines Lesezeichens in Ihrem Dokument einfügen. Angenommen, Sie haben ein Lesezeichen mit dem Namen „WordCount“, das Sie definiert haben. Dieses Lesezeichen gibt die Stelle an, an der die Anzahl der Wörter im zweiten Abschnitt Ihres Dokuments angegeben werden soll. Das folgende Makro ermittelt die Wortanzahl für den angegebenen Abschnitt und fügt den Text an der Stelle des Lesezeichens ein.

Sub InsertWordCount()

Dim oRange As Word.Range     Dim sBookmarkName As String     Dim sTemp As String

sBookmarkName = "WordCount"

With ActiveDocument         sTemp = Format(.Sections(2).Range.Words.Count, "0")

Set oRange = .Bookmarks(sBookmarkName).Range         oRange.Delete         oRange.InsertAfter Text:=sTemp         .Bookmarks.Add Name:=sBookmarkName, Range:=oRange     End With End Sub

Das Makro kann leicht von anderen Makros aufgerufen werden, z. B. von einem Makro, das ausgeführt wird, wenn das Dokument geöffnet, gespeichert oder gedruckt wird. Auf diese Weise wird die Wortanzahl zu allen normalen Zeiten aktualisiert, wenn ein Feld automatisch aktualisiert wird.

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

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

Wortanzahl für einen Abschnitt.