ParagraphFormat. SetListType-Methode (Publisher)ParagraphFormat.SetListType method (Publisher)

Legt den Listentyp des angegebenen ParagraphFormat -Objekts fest.Sets the list type of the specified ParagraphFormat object.

SyntaxSyntax

Ausdruck. **** SetListType (Wert, BulletText)expression.SetListType (Value, BulletText)

Ausdruck Eine Variable, die ein ParagraphFormat -Objekt darstellt.expression A variable that represents a ParagraphFormat object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
ValueValue ErforderlichRequired PbListTypePbListType Stellt den Listentyp des angegebenen ParagraphFormat -Objekts.Represents the list type of the specified ParagraphFormat object. Dies kann eine der in der Microsoft Publisher-Typbibliothek deklarierten pbListType -Konstanten sein.Can be one of the PbListType constants declared in the Microsoft Publisher type library.
BulletTextBulletText OptionalOptional StringString Eine Zeichenfolge, die den Text des Listen Aufzählungszeichens darstellt.A string that represents the text of the list bullet.

BemerkungenRemarks

Wenn value eine Aufzählungsliste ist und der BulletText -Parameter fehlt, wird das erste Aufzählungszeichen im Dialogfeld Nummerierung und Aufzählungszeichen verwendet.If Value is a bulleted list and the BulletText parameter is missing, the first bullet from the Bullets and Numbering dialog box is used.

BulletText ist auf ein Zeichen limitiert.BulletText is limited to one character.

Ein Laufzeitfehler tritt auf, wenn der BulletText -Parameter bereitgestellt wird und der value -Parameter nicht auf pbListTypeBullet festgelegtfestgelegt ist.A run-time error occurs if the BulletText parameter is provided and the Value parameter is not set to pbListTypeBullet.

BeispielExample

In diesem Beispiel wird getestet, um festzustellen, ob der Listentyp eine nummerierte Liste, insbesondere PbListTypeArabic ist.This example tests to see if the list type is a numbered list, specifically pbListTypeArabic. Wenn die ListType -Eigenschaft auf pbListTypeArabicfestgelegt ist, wird die ListNumberSeparator -Eigenschaft auf pblistseparatorparenthesis festgelegtfestgelegt.If the ListType property is set to pbListTypeArabic, the ListNumberSeparator property is set to pbListSeparatorParenthesis. Andernfalls wird die **** SetListType-Methode aufgerufen, und pbListTypeArabic wird als Wert Parameter übergeben, und dann kann die ListNumberSeparator -Eigenschaft festgelegt werden.Otherwise, the SetListType method is called and passes pbListTypeArabic as the Value parameter, and then the ListNumberSeparator property can be set.

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 
 

In diesem Beispiel wird veranschaulicht, wie eine geordnete Dokumentstruktur mit benannten Textrahmen mit Listen konfiguriert werden kann.This example demonstrates how an organized document structure containing named text frames with lists can be configured. In diesem Beispiel wird davon ausgegangen, dass die Publikation eine Benennungskonvention für TextFrame-Objekte mit Listen enthält, die das Wort "List" als Präfix verwenden.This example assumes that the publication has a naming convention for TextFrame objects containing lists that use the word "list" as a prefix. In diesem Beispiel wird die geschachtelte Auflistung Iterationen auf einzelnen TextFrame -Objekte in jeder Seite einzelnen Shapes -Auflistung zuzugreifen.This example uses nested collection iterations to access each of the TextFrame objects in each Shapes collection of each Page. Für das ParagraphFormat -Objekt **** jedes TextFrame-namens mit dem Präfix "List" sind die Eigenschaften ListType und ListBulletFontSize festgelegt.The ParagraphFormat object of each TextFrame name with the prefix "list" has the ListType and ListBulletFontSize properties set.

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 
 

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.