ParagraphFormat.SetListType, méthode (Publisher)

Article
04/07/2023

Définit le type de liste de l'objet ParagraphFormat spécifié.

Syntaxe

expression. SetListType (Value, BulletText)

Expression Variable qui représente un objet ParagraphFormat .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Valeur	Requis	PbListType	Représente le type de liste de l'objet ParagraphFormat spécifié. Il peut s’agir de l’une des constantes PbListType déclarées dans la bibliothèque de types Microsoft Publisher.
BulletText	Facultatif	String	Chaîne qui représente le texte de la puce de liste.

Remarques

Si La valeur est une liste à puces et que le paramètre BulletText est manquant, la première puce de la boîte de dialogue Puces et numéros est utilisée.

BulletText est limité à un caractère.

Une erreur d’exécution se produit si le paramètre BulletText est fourni et que le paramètre Value n’est pas défini sur pbListTypeBullet.

Exemple

Cet exemple vérifie si le type de liste est une liste numérotée, en particulier la valeur pbListTypeArabic. Si la propriété ListType a la valeur pbListTypeArabic, la propriété ListNumberSeparator est définie sur pbListSeparatorParenthesis. Sinon, la méthode SetListType est appelée et passe pbListTypeArabic comme paramètre Value , puis la propriété ListNumberSeparator peut être définie.

Dim objParaForm As ParagraphFormat 
 
Set objParaForm = ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange.ParagraphFormat 
 
With objParaForm 
 If .ListType = pbListTypeArabic Then 
 .ListNumberSeparator = pbListSeparatorParenthesis 
 Else 
 .SetListType pbListTypeArabic 
 .ListNumberSeparator = pbListSeparatorParenthesis 
 End If 
End With

Cet exemple illustre la configuration d'une structure de document contenant des cadres de texte nommée avec des listes. Cet exemple suppose que la composition a une convention de nommage pour les objets TextFrame contenant des listes qui utilisent le mot « list » comme préfixe. Cet exemple utilise des itérations de collection imbriquées pour accéder à chaque objet TextFrame de chaque collection Shapes de chaque Page. L’objet ParagraphFormat de chaque nom TextFrame avec le préfixe « list » a les propriétés ListType et ListBulletFontSize définies.

Dim objPage As page 
Dim objShp As Shape 
Dim objTxtFrm As TextFrame 
 
'Iterate through all pages of th ePublication 
For Each objPage In ActiveDocument.Pages 
 'Iterate through the Shapes collection of objPage 
 For Each objShp In objPage.Shapes 
 'Find each TextFrame object 
 If objShp.Type = pbTextFrame Then 
 'If the name of the TextFrame begins with "list" 
 If InStr(1, objShp.Name, "list") <> 0 Then 
 Set objTxtFrm = objShp.TextFrame 
 With objTxtFrm 
 With .TextRange 
 With .ParagraphFormat 
 .SetListType pbListTypeBullet, "*" 
 .ListBulletFontSize = 24 
 End With 
 End With 
 End With 
 End If 
 End If 
 Next 
Next

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.

Partager via