Méthode ListFormat.ApplyBulletDefault (Word)

  • Article

Ajoute des puces et la mise en forme aux paragraphes contenus dans la plage de l'objet ListFormat spécifié.

Syntaxe

expression. ApplyBulletDefault( _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 contiennent déjà des puces, cette méthode les supprime ainsi que la mise en forme.

Exemple

Cet exemple montre comment ajouter des puces et une mise en forme aux paragraphes de la sélection. Si cette dernière contient déjà des puces, les puces et la mise en forme sont supprimées.

Selection.Range.ListFormat.ApplyBulletDefault

Cet exemple montre comment ajouter (ou supprimer) une puce et une mise en forme au deuxième paragraphe du fichier MyDoc.doc.

Documents("MyDoc.doc").Paragraphs(2).Range.ListFormat _ 
 .ApplyBulletDefault

Cet exemple montre comment affecter à la variable myRange une plage qui comprend les paragraphes 3 à 6 du document actif, puis vérifier si cette plage se présente sous forme de liste. Si tel n'est pas le cas, des puces par défaut sont ajoutées.

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.ApplyBulletDefault 
End If

Voir aussi

Objet ListFormat

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.