Lire en anglais

Partager via


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.

Remarques

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é.

Méthodes

Propriétés

Voir aussi

Référence du modèle objet Word

Assistance et commentaires

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.