ParagraphFormat.SetListType-Methode (Publisher)

Artikel
10/16/2024

Legt den Listentyp des angegebenen ParagraphFormat -Objekts fest.

Syntax

Ausdruck. SetListType (Value, BulletText)

Ausdruck Eine Variable, die ein ParagraphFormat-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Wert	Erforderlich	PbListType	Stellt den Listentyp des angegebenen ParagraphFormat -Objekts. Dies kann eine der in der Microsoft Publisher-Typbibliothek deklarierten PbListType-Konstanten sein.
BulletText	Optional	String	Eine Zeichenfolge, die den Text des Listenaufzählungszeichens darstellt.

Hinweise

Wenn Value eine Aufzählung ist und der BulletText-Parameter fehlt, wird das erste Aufzählungszeichen aus dem Dialogfeld Aufzählungszeichen und Nummerierung verwendet.

BulletText ist auf ein Zeichen beschränkt.

Ein Laufzeitfehler tritt auf, wenn der BulletText-Parameter angegeben wird und der Value-Parameter nicht auf pbListTypeBullet festgelegt ist.

Beispiel

In diesem Beispiel wird getestet, um festzustellen, ob der Listentyp eine nummerierte Liste, insbesondere PbListTypeArabic ist. Wenn die ListType-Eigenschaft auf pbListTypeArabic festgelegt ist, wird die ListNumberSeparator-Eigenschaft auf pbListSeparatorParenthesis festgelegt. Andernfalls wird die SetListType-Methode aufgerufen und übergibt pbListTypeArabic als Value-Parameter , und dann kann die ListNumberSeparator-Eigenschaft festgelegt werden.

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. In diesem Beispiel wird davon ausgegangen, dass die Veröffentlichung über eine Namenskonvention für TextFrame-Objekte verfügt, die Listen enthalten, die das Wort "list" als Präfix verwenden. In diesem Beispiel wird die geschachtelte Auflistung Iterationen auf einzelnen TextFrame -Objekte in jeder Seite einzelnen Shapes -Auflistung zuzugreifen. Für das ParagraphFormat-Objekt jedes TextFrame-Namens mit dem Präfix "list" sind die Eigenschaften ListType und ListBulletFontSize festgelegt.

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 Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über