Classe Style (Word VBA)

La classe Style représente un style donné prédéfini ou défini par l’utilisateur.

Les procédures principales de la classe Style sont Delete et Styles.Add

Set

Pour utiliser une variable de classe Style, elle doit d'abord être instanciée, par exemple

Dim sty as Style
Set sty = Application.ActiveDocument.Range.Paragraphs

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Style : EmailAuthor.Style, EmailOptions.ComposeStyle, EmailOptions.PlainTextStyle, EmailOptions.ReplyStyle, Envelope.AddressStyle, Envelope.ReturnAddressStyle, Find.Style, HeadingStyle.Style, Paragraph.Style, ParagraphFormat.Style, Paragraphs.Style, Range.Style, Replacement.Style, Revision.Style, Selection.Style, Styles.Add, Styles.Item, Table.Style et Document.Styles

For Each

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

Dim strMessage As String 
Dim sty As Style  
strMessage = "Styles in use:" & vbCr 
 For Each sty In ActiveDocument.Styles 
 If sty.InUse = True Then 
 With docActive 
 .Content.Find 
 .ClearFormatting 
 .Text = "" 
 .Style = sty 
 .Execute Format:=True 
 If .Found = True Then 
 strMessage = strMessage & sty.Name & vbCr 
 End If 
 End With 
 End If 
Next sty  
MsgBox strMessage

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Format with its procedures BaseStyle, Borders, Font, LinkStyle, NextParagraphStyle, NoSpaceBetweenParagraphsOfSameStyle, ParagraphFormat et QuickStyle

Méthodes

Les méthodes principales de la classe Style sont

Delete - Supprime le style spécifié.

ActiveDocument.Range.Paragraphs.Style.Delete

Styles.Add - Crée un nouveau style défini par l’utilisateur et l’ajoute à la collection styles .

Dim strName As String: strName =  
Dim sty As Style
Set sty = ActiveDocument.Styles.Add(Name:=strName)

Autre Méthodes

LinkToListTemplate - Lie le style précisé à un modèle de liste afin que la mise en forme du style puisse être appliquée aux listes.

ActiveDocument.Range.Paragraphs.Style.LinkToListTemplate ListTemplate:=

Propriétés

AutomaticallyUpdate True si le style est redéfini automatiquement en fonction de la sélection.

ActiveDocument.Range.Paragraphs.Style.AutomaticallyUpdate = True

BuiltIn Prend la valeur True si l’objet spécifié est l’un des styles intégrés ou l’un des intitulés de légende intégrés dans Word.

Dim booBuiltIn As Boolean
booBuiltIn = ActiveDocument.Range.Paragraphs.Style.BuiltIn

Description Renvoie la description du style spécifié.

Dim strDescription As String
strDescription = ActiveDocument.Range.Paragraphs.Style.Description

Frame Renvoie un objet Frame qui représente la mise en forme de cadre pour le style spécifié.

Dim frmFrame As Frame
Set frmFrame = ActiveDocument.Range.Paragraphs.Style.Frame

InUse True si le style spécifié est un style prédéfini qui a été modifié ou appliqué dans le document ou un nouveau style qui a été créé dans le document.

Dim booInUse As Boolean
booInUse = ActiveDocument.Range.Paragraphs.Style.InUse

LanguageID Cette propriété renvoie ou définit une constante WdLanguageID qui représente la langue de la plage spécifiée.

ActiveDocument.Range.Paragraphs.Style.LanguageID = wdAfrikaans

LanguageIDFarEast Renvoie ou définit une langue d'Asie orientale pour l'objet spécifié.

ActiveDocument.Range.Paragraphs.Style.LanguageIDFarEast = wdAfrikaans

Linked Renvoie une valeur de type Boolean qui indique si un style est un style lié pouvant être utilisé pour la mise en forme des paragraphes et des caractères.

Dim booLinked As Boolean
booLinked = ActiveDocument.Range.Paragraphs.Style.Linked

ListLevelNumber Renvoie le niveau de liste du style spécifié.

Dim lngListLevelNumber As Long
lngListLevelNumber = ActiveDocument.Range.Paragraphs.Style.ListLevelNumber

ListTemplate Renvoie un objet ListTemplate qui représente la mise en forme de liste pour l’objet style spécifié.

Dim lteListTemplate As ListTemplate
Set lteListTemplate = ActiveDocument.Range.Paragraphs.Style.ListTemplate

Locked True si un style ne peut pas être modifié ou modifié.

ActiveDocument.Range.Paragraphs.Style.Locked = True

NameLocal Renvoie le nom d'un style prédéfini dans la langue de l'utilisateur.

ActiveDocument.Range.Paragraphs.Style.NameLocal =

NoProofing Cette propriété a la valeur True si le vérificateur d'orthographe et de grammaire ignore le texte mis en forme avec ce style.

ActiveDocument.Range.Paragraphs.Style.NoProofing =

Parent Renvoie un Object qui représente l'objet parent de l'objet Style spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Paragraphs.Style.Parent

Priority Cette propriété renvoie ou définit un type long qui représente la priorité pour le tri des styles dans le volet Office styles .

ActiveDocument.Range.Paragraphs.Style.Priority =

Shading Renvoie un objet Shading qui représente la mise en forme de la trame de fond pour l'objet spécifié.

Dim shdShading As Shading
Set shdShading = ActiveDocument.Range.Paragraphs.Style.Shading

Table Renvoie un objet TableStyle qui représente les propriétés qui peuvent être appliquées à un tableau à l'aide d'un style de tableau.

Dim tblstyTable As TableStyle
Set tblstyTable = ActiveDocument.Range.Paragraphs.Style.Table

Type Renvoie le type de style.

Dim wstType As WdStyleType
wstType = ActiveDocument.Range.Paragraphs.Style.Type

UnhideWhenUsed True si le style spécifié est rendu visible sous la forme d'un style recommandé dans les Styles et dans le volet Office StylesWord après que qu'elle est utilisée dans le document.

ActiveDocument.Range.Paragraphs.Style.UnhideWhenUsed = True

Visibility True si le style spécifié est visible sous la forme d'un style recommandé dans la galerie de Styles et dans le volet Office Styles.

ActiveDocument.Range.Paragraphs.Style.Visibility = True

Styles.Count Renvoie un type long qui représente le nombre de styles dans la collection.

Dim lngCount As Long
lngCount = ActiveDocument.Styles.Count

Styles.Parent Renvoie un type de données Object qui représente l'objet parent de l'objet Styles spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Styles.Parent