Objet TextStyle (Publisher)

Représente un seul style intégré ou défini par l'utilisateur. L'objet TextStyle comprend des attributs de style (police, style de police, l'espacement des paragraphes, etc.) en tant que propriétés de l'objet TextStyle.

L'objet TextStyle est un membre de la TextStyles collection. La collection TextStyles comprend tous les styles dans le document spécifié.

Remarques

Utilisez TextStyles (index), où index est le numéro ou le nom du style de texte, pour renvoyer un seul objet TextStyle . Vous devez respecter l'orthographe espacement et du nom du style, mais pas nécessairement sa casse.

Utilisez la méthode TextStyles.Add pour créer un style.

Pour appliquer un style à une plage, un paragraphe ou plusieurs paragraphes, définissez la propriété ParagraphFormat.TextStyle sur un nom de style défini par l’utilisateur ou intégré.

Exemple

L'exemple suivant affiche le nom du style et le style de base du premier style de la collection TextStyles.

Sub BaseStyleName() 
 With ActiveDocument.TextStyles(1) 
 MsgBox "Style name= " & .Name _ 
 & vbCr & "Base style= " & .BaseStyle 
 End With 
End Sub

L'exemple suivant crée un nouveau style et l'applique au paragraphe à la position du curseur.

Sub ApplyTextStyle() 
 Dim styNew As TextStyle 
 Dim fntStyle As Font 
 
 'Create a new style 
 Set styNew = ActiveDocument.TextStyles.Add(StyleName:="NewStyle") 
 Set fntStyle = styNew.Font 
 
 'Format the Font object 
 With fntStyle 
 .Name = "Tahoma" 
 .Size = 20 
 .Bold = msoTrue 
 End With 
 
 'Apply the Font object formatting to the new style 
 styNew.Font = fntStyle 
 
 'Apply the new style to the selected paragraph 
 Selection.TextRange.ParagraphFormat.TextStyle = "NewStyle" 
End Sub

Méthodes

• Supprimer

Propriétés

• Application
• BaseStyle
• Description
• Font
• Name
• NextParagraphStyle
• ParagraphFormat
• Parent

Voir aussi

• Référence du modèle objet Publisher

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.