Sie können die Anzahl der in einem Dokument verfügbaren Stile (beim Erstellen eines VBA-Makros) mithilfe der Count-Eigenschaft mit dem Styles-Objekt bestimmen. Dies erfolgt mit der folgenden Syntax:

x = ActiveDocument.Styles.Count

Dabei ist x die Variable, die Sie dann in anderen VBA-Makrozeilen verwenden können. Beachten Sie, dass diese Funktion angibt, wie viele definiert wurden und nicht, wie viele davon tatsächlich verwendet werden. Dies bedeutet, dass auch integrierte Stile gezählt werden. Wenn Sie integrierte Stile ausschließen möchten, können Sie die Stile auf folgende Weise iterativ zählen:

x = 0 For Each objStyle in ActiveDocument.Styles     If Not objStyle.BuiltIn Then x = x + 1 Next objStyle

_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 (803) 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:

Feststellen, wie viele Stile verfügbar sind.