Método ParagraphFormat.SetListType (Publisher)

Define o tipo de lista do objeto ParagraphFormat especificado.

Sintaxe

expressão. SetListType (Valor, BulletText)

Expressão Uma variável que representa um objeto ParagraphFormat .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Valor	Obrigatório	PbListType	Representa o tipo de lista do objeto ParagraphFormat especificado. Pode ser uma das constantes PbListType declaradas na biblioteca de tipos do Microsoft Publisher.
BulletText	Opcional	String	Uma cadeia de caracteres que representa o texto da bala de lista.

Comentários

Se Value for uma lista com marcadores e o parâmetro BulletText estiver ausente, a primeira bala da caixa de diálogo Balas e Numeração será usada.

BulletText é limitado a um caractere.

Um erro de tempo de execução ocorre se o parâmetro BulletText for fornecido e o parâmetro Value não estiver definido como pbListTypeBullet.

Exemplo

Este exemplo testa para ver se o tipo de lista é uma lista numerada, especificamente pbListTypeArabic. Se a propriedade ListType estiver definida como pbListTypeArabic, a propriedade ListNumberSeparator será definida como pbListSeparatorParenthesis. Caso contrário, o método SetListType é chamado e passa pbListTypeArabic como o parâmetro Value e, em seguida, a propriedade ListNumberSeparator pode ser definida.

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 
 

Este exemplo demonstra como uma estrutura de documento organizada contendo quadros de texto nomeados com listas pode ser configurada. Este exemplo pressupõe que a publicação tenha uma convenção de nomenclatura para objetos TextFrame contendo listas que usam a palavra "lista" como prefixo. Este exemplo usa iterações de coleções aninhadas para acessar cada um dos objetos TextFrame em cada conjunto de formas de cada página. O objeto ParagraphFormat de cada nome TextFrame com o prefixo "list" tem as propriedades ListType e ListBulletFontSize definidas.

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 
 

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.