Classe StyleSheet - feuille de style en cascade (Word VBA)

La classe StyleSheet représente une seule feuille de style en cascade attachée à un document Web. Pour utiliser une variable de classe StyleSheet, elle doit d'abord être instanciée, par exemple

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

For Each

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

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

Delete

Supprime la feuille de style en cascade spécifiée.

ActiveDocument.StyleSheets(1).Delete

FullName

Spécifie le nom d'une feuille de style en cascade, y compris le lecteur ou le chemin d'accès au Web.

À l'aide de cette propriété équivaut à utiliser successivement les propriétés Path, PathSeparator et Name.

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

Index

Renvoie un type long qui représente la position d'un élément dans une collection.

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

Move

Déplace l'ordre de priorité d'une feuille de style.

Move (Precedence)

Precedence: Niveau de priorité.

ActiveDocument.StyleSheets(1).Move Precedence:=wdStyleSheetPrecedenceHigher

Name

Renvoie le nom de l'objet spécifié.

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

Path

Renvoie le disque ou le chemin d'accès Web à la feuille de style spécifiée.

Le chemin d'accès n'inclut pas un caractère de fin — par exemple, « C:\MSOffice » ou « https://MyServer ».

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

Title

Cette propriété renvoie ou définit une chaîne représentant le titre d'une feuille de style Web.

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

Renvoie ou définit le type de feuille de style. Les valeurs de retour possibles sont wdStyleSheetLinkTypeImported - Importation de la feuille de style interne, wdStyleSheetLinkTypeLinked - Lien d'une feuille de style externe.

ActiveDocument.StyleSheets(1).Type = wdStyleSheetLinkTypeImported