Einführung "VBA mit Microsoft Office"

Count und For Each

Die Eigenschaft Count gibt zurück, wie viele Elemente eine Auflistung enthält. Die Anzahl Wörter in einem Worddokument zählt man folgendermassen:
intAnzahl = ActiveDocument.Range.Words.Count

Um mit allen Elemente einer Auflistung eine bestimmte Verarbeitung zu machen, gibt es For Each .. In. Next beendet diese Schlaufe (wie bei der normalen For-Schlaufe. Der folgende Makro dreht Fett-Formatierung in einem Worddokument um:

Dim objWord As Range

For Each objWord In ActiveDocument.Range.Words
  objWord.Font.Bold = wdToggle
Next