Klasse StyleSheets (Word VBA)

Eine Auflistung von Stylesheet -Objekten, die die Cascading Stylesheets darstellt, die einem Dokument angefügt sind. Um eine StyleSheets -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim sss as StyleSheets
Set sss = ActiveDocument.StyleSheets

For Each

Hier ist ein Beispiel für die Verarbeitung der StyleSheets -Elemente in einer Sammlung

Dim sst As StyleSheet
For Each sst In ActiveDocument.StyleSheets
	
Next sst

Add

Gibt ein Stylesheet -Objekt zurück, das ein neues Stylesheet darstellt, das einem Webdokument hinzugefügt wurde.

Add (FileName, LinkType, Title, Precedence)

Sub NewStylesheet() 
 ActiveDocument.StyleSheets.Add _ 
 FileName:="c:\WebSite.css", _ 
 Precedence:=wdStyleSheetPrecedenceHighest, _ 
 LinkType:=wdStyleSheetLinkTypeLinked, _ 
 Title:="Test Stylesheet" 
End Sub

Arguments

Hier sind die benannte Argumente :

FileName (String) - Der Pfad und der Dateiname des Cascading Stylesheet.

LinkType (WdStyleSheetLinkType) - Gibt an, ob das Stylesheet als Link hinzugefügt oder in das Webdokument importiert werden soll.

Mögliche Rückgabewerte sind wdStyleSheetLinkTypeImported - Importierte interne Formatvorlage, wdStyleSheetLinkTypeLinked - Verknüpfte externe Formatvorlage.

Title (String) - Der Name des Stylesheets.

Precedence - WdStyleSheetPrecedence

Möglichen Werte sind

Count

Gibt eine lange , die die Anzahl der Stylesheets in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveDocument.StyleSheets.Count

Item

Gibt ein einzelnes Stylesheet -Objekt in einer Auflistung zurück.

Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

Dim sst As StyleSheet
Set sst = ActiveDocument.StyleSheets(Index:=1)