Méthode ListFormat.ApplyOutlineNumberDefault (Word)
Ajoute le schéma de numérotation de type plan par défaut aux paragraphes contenus dans la plage de l'objet ListFormat spécifié.
Syntaxe
expression. ApplyOutlineNumberDefault
( _DefaultListBehavior_
)
expression Obligatoire. Variable qui représente un objet « ListFormat ».
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
DefaultListBehavior | Facultatif | Variant | Définit une valeur qui indique si Microsoft Word utilise un nouveau format Web pour un meilleur affichage de liste. Peut être l'une des constantes suivantes : wdWord8ListBehavior (utilisez la mise en forme compatible avec Microsoft Word 97) ou wdWord9ListBehavior (utilisation orientée Web la mise en forme). Pour des raisons de compatibilité, la constante par défaut est wdWord8ListBehavior mais pour les nouvelles procédures, que vous devez utiliser wdWord9ListBehavior pour tirer parti des orientée Web mise en forme améliorée par rapport à la mise en retrait et multiniveau répertorie. |
Remarques
Si les paragraphes se présentent déjà sous la forme d'une liste numérotée de type plan, cette méthode supprime les numéros ainsi que la mise en forme. Cette méthode ne supprime pas les styles de titre prédéfinis déjà appliqués aux paragraphes.
Exemple
Cet exemple montre comment appliquer une numérotation de type plan aux paragraphes contenus dans la sélection. Si cette dernière se présente déjà sous la forme d'une liste numérotée de type plan, les numéros et la mise en forme sont supprimés.
Selection.Range.ListFormat.ApplyOutlineNumberDefault
Cet exemple montre comment définir la variable myRange de sorte qu'elle prenne en compte les paragraphes 3 à 6 du document actif, puis comment vérifier si la plage se présente sous forme de liste. Si tel n'est pas le cas, la mise en forme de liste numérotée de type plan par défaut est appliquée.
Set myDoc = ActiveDocument
Set myRange = myDoc.Range( _
Start:= myDoc.Paragraphs(3).Range.Start, _
End:=myDoc.Paragraphs(6).Range.End)
If myRange.ListFormat.ListType = wdListNoNumbering Then
myRange.ListFormat.ApplyOutlineNumberDefault
End If
Voir aussi
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.