Objet Styles (Word)
Une collection de Style objets qui représentent les styles intégrés et ceux définis par l'utilisateur dans un document.
Utilisez la propriété Styles pour renvoyer la collection Styles. L'exemple suivant supprime tous les styles définis par l'utilisateur dans le document actif.
For Each sty In ActiveDocument.Styles
If sty.BuiltIn = False Then sty.Delete
Next sty
Utilisez la méthode Add pour créer un nouveau style défini par l'utilisateur et l'ajouter à la collection Styles. L'exemple suivant ajoute un nouveau style de caractère nommé « Introduction » et le rend Arial de 12 points, avec la mise en forme gras et italique. L'exemple puis comment appliquer ce nouveau style de caractère à la sélection.
Set myStyle = ActiveDocument.Styles.Add(Name:="Introduction", _
Type:=wdStyleTypeCharacter)
With myStyle.Font
.Bold = True
.Italic = True
.Name = "Arial"
.Size = 12
End With
Selection.Range.Style = "Introduction"
Utilisez Styles (Index), où Index est le nom du style, une constante WdBuiltinStyle ou le numéro d'index, pour renvoyer un seul objet Style. Vous devez respecter l'orthographe espacement et du nom du style, mais pas nécessairement sa casse. L'exemple suivant modifie la police du style défini par l'utilisateur nommé « Color » dans le document actif.
ActiveDocument.Styles("Color").Font.Name = "Arial"
Cet exemple montre comment définir le style prédéfini Heading 1 pour qu'il ne soit pas en caractères gras.
ActiveDocument.Styles(wdStyleHeading1).Font.Bold = False
Le numéro d'index du style représente la position du style dans la liste alphabétique des noms de style. Notez que Styles(1)
c’est le premier style dans la liste alphabétique. L'exemple suivant montre comment afficher le style de base et le nom du premier style de la collection Styles.
MsgBox "Base style= " _
& ActiveDocument.Styles(1).BaseStyle & vbCr _
& "Style name= " & ActiveDocument.Styles(1).NameLocal
L'objet Styles n'est pas disponible à partir de l'objet Template. Toutefois, vous pouvez utiliser OpenAsDocument méthode pour ouvrir un modèle en tant que document afin que vous pouvez modifier les styles du modèle. L'exemple suivant modifie la mise en forme du style Heading 1 dans le modèle attaché au document actif.
Set aDoc = ActiveDocument.AttachedTemplate.OpenAsDocument
With aDoc
.Styles(wdStyleHeading1).Font.Name = "Arial"
.Close SaveChanges:=wdSaveChanges
End With
Utilisez OrganizerCopy méthode pour copier des styles entre modèles et documents. Utilisez UpdateStyles méthode pour mettre à jour les styles du document actif pour faire correspondre les définitions de style du modèle attaché.
Référence du modèle objet Word
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.