Klasse Styles (Word VBA)
Eine Auflistung von Style -Objekten, die die integrierten und benutzerdefinierten Formatvorlagen in einem Dokument darstellen. Um eine Styles -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim stys as Styles
Set stys = ActiveDocument.Styles
For Each
Hier ist ein Beispiel für die Verarbeitung der Styles -Elemente in einer Sammlung
Dim sty As Style
For Each sty In ActiveDocument.Range.Styles
Next sty
Add
Erstellt eine neue benutzerdefinierte Formatvorlage und fügt Sie der Styles -Auflistung hinzu.
Set myStyle = ActiveDocument.Styles.Add(Name:="Introduction", _
Type:=wdStyleTypeCharacter)
With myStyle.Font
.Bold = True
.Italic = True
.Name = "Arial"
.Size = 12
End With
Selection.Range.Style = "Introduction"
Arguments
Ein benanntes Argument
Name (String) - Der neue Formatvorlagenname.
Optional arguments
Das folgendes Argument ist optional
Type (WdStyleType) - Dies kann eine der WdStyleType -Konstanten sein.
Möglichen Werte sind
wdStyleTypeCharacter | Textkörper-Formatvorlage. |
wdStyleTypeLinked | |
wdStyleTypeList | Listenformatvorlage. |
wdStyleTypeParagraph | Absatzformatvorlage. |
wdStyleTypeParagraphOnly | |
wdStyleTypeTable | Tabellenformatvorlage. |
Count
Gibt einen Wert vom Typ Long zurück, der die Anzahl der Formatvorlagen in der Auflistung darstellt.
Dim lngCount As Long
lngCount = ActiveDocument.Styles.Count
Item
Gibt ein einzelnes Style -Objekt in einer Auflistung zurück.
Item (Index)
Index: Das einzelne Objekt zurückgegeben werden soll.
Dim sty As Style
Set sty = ActiveDocument.Styles(Index:=1)