Méthode Style.LinkToListTemplate (Word)

  • Article

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

Syntaxe

expression. LinkToListTemplate( _ListTemplate_ , _ListLevelNumber_ )

expression Obligatoire. Variable qui représente un objet « Style ».

Parameters

Nom Requis/Facultatif Type de données Description
ListTemplate Obligatoire ListTemplate object Modèle de liste auquel doit le style doit être lié.
ListLevelNumber Facultatif Variant Nombre entier correspondant au niveau de liste auquel le style doit être lié. Si vous ne spécifiez pas cet argument, le niveau du style est utilisé.

Exemple

Cet exemple montre comment créer un modèle de liste, puis lier les styles de titre 1 à 9 aux niveaux 1 à 9. Le nouveau modèle est ensuite appliqué au document. Tous les paragraphes dotés d'un style de titre seront numérotés en fonction du modèle de liste.

Dim ltTemp As ListTemplate 
Dim intLoop As Integer 
 
Set ltTemp = _ 
 ActiveDocument.ListTemplates.Add(OutlineNumbered:=True) 
 
For intLoop = 1 To 9 
 With ltTemp.ListLevels(intLoop) 
 .NumberStyle = wdListNumberStyleArabic 
 .NumberPosition = InchesToPoints(0.25 * (intLoop - 1)) 
 .TextPosition = InchesToPoints(0.25 * intLoop) 
 .NumberFormat = "%" & intLoop & "." 
 End With 
 With ActiveDocument.Styles("Heading " & intLoop) 
 .LinkToListTemplate ListTemplate:=ltTemp 
 End With 
Next intLoop 
 
ActiveDocument.Content.ListFormat.ApplyListTemplate _ 
 ListTemplate:=ltTemp

Voir aussi

Objet de style

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.