Classe StyleSheets (Word VBA)

Collection d’objets StyleSheet qui représente les feuilles de style en cascade attachées à un document. Pour utiliser une variable de classe StyleSheets, elle doit d'abord être instanciée, par exemple

Dim sss as StyleSheets
Set sss = ActiveDocument.StyleSheets

For Each

Voici un exemple de traitement des éléments StyleSheets dans une collection

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

Add

Renvoie un objet StyleSheet qui représente une nouvelle feuille de style ajoutée à un document Web.

Add (FileName, LinkType, Title, Precedence)

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

Arguments

Les arguments nommés :

FileName (String) - Chemin et nom de fichier de la feuille de style en cascade.

LinkType (WdStyleSheetLinkType) - Indique si la feuille de style doit être ajoutée en tant que lien ou importée dans le document Web.

Les valeurs de retour possibles sont wdStyleSheetLinkTypeImported - Importation de la feuille de style interne, wdStyleSheetLinkTypeLinked - Lien d'une feuille de style externe.

Title (String) - Nom de la feuille de style.

Precedence (WdStyleSheetPrecedence) - Indique le niveau d’importance par rapport aux autres feuilles de style en cascade attachées au document Web.

Valeurs possibles sont

Count

Renvoie un type long qui représente le nombre de feuilles de style dans la collection.

Dim lngCount As Long
lngCount = ActiveDocument.StyleSheets.Count

Item

Renvoie un objet StyleSheet spécifique appartenant à une collection.

Item (Index)

Index: Objet spécifique qui doit être renvoyé.

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