Méthode ParagraphFormat.SetListType (Publisher)

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 .

Paramètres

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érotation 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 est définie sur pbListTypeArabic, la propriété ListNumberSeparator est définie sur pbListSeparatorParenthesis. Dans le cas contraire, la méthode SetListType est appelée et transmet pbListTypeArabic en tant que 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 publication a une convention d’affectation de noms pour les objets TextFrame contenant des listes qui utilisent le mot « liste » 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. Les propriétés ListType et ListFontSize sont définies pour l’objet ParagraphFormat de chaque nom TextFrame avec le préfixe « list ».

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.