Klasse StyleSheet - Cascading Stylesheet (Word VBA)

Die Klasse StyleSheet stellt ein einzelnes Cascading Stylesheet dar, das mit einem Webdokument verbunden ist. Um eine StyleSheet -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

For Each

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

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

Delete

Löscht das angegebene Cascading Stylesheet.

ActiveDocument.StyleSheets(1).Delete

FullName

Gibt den Namen eines Cascading Stylesheets einschließlich Laufwerk- oder Webpfad an.

Die Verwendung dieser Eigenschaft entspricht der Verwendung der Eigenschaften path, PathSeparatorund Name nacheinander.

Sub CSSName() 
 MsgBox ActiveDocument.StyleSheets(1).FullName 
End Sub

Index

Gibt einen Wert vom Typ Long zurück, der die Position eines Elements in einer Auflistung darstellt.

Dim lngIndex As Long
lngIndex = ActiveDocument.StyleSheets(1).Index

Move

Verschiebt die Rangfolge einer Formatvorlage.

Move (Precedence)

Name

Gibt den Namen des angegebenen Objekts zurück.

Dim strName As String
strName = ActiveDocument.StyleSheets(1).Name

Path

Gibt den Datenträger oder den Webpfad zu der angegebenen Stylesheet zurück.

Der Pfad enthält kein nachfolgendes Zeichen, beispielsweise "C:\MSOffice" oder "https://MyServer".

Dim strPath As String
strPath = ActiveDocument.StyleSheets(1).Path

Title

Zurückgeben oder Festlegen einer Zeichenfolge , die den Titel eines Webstylesheets darstellt.

Sub AssignCSSTitle() 
 ActiveDocument.StyleSheets.Item(1).Title = "New Look Stylesheet" 
 ActiveDocument.StyleSheets.Item(2).Title = "Standard Web Stylesheet" 
 ActiveDocument.StyleSheets.Item(3).Title = "Definitions Stylesheets" 
End Sub

Type

Gibt den Typ des Stylesheets zurück oder legt ihn fest. Mögliche Rückgabewerte sind wdStyleSheetLinkTypeImported - Importierte interne Formatvorlage, wdStyleSheetLinkTypeLinked - Verknüpfte externe Formatvorlage.

ActiveDocument.StyleSheets(1).Type = wdStyleSheetLinkTypeImported