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

Comentários

Se Value for uma lista com marcas e o parâmetro BulletText estiver em falta, será utilizada a primeira marca de lista da caixa de diálogo Marcas e Numeração .

BulletText está limitado a um caráter.

Ocorre um erro de tempo de execução 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 está definida como pbListSeparatorParenthesis. Caso contrário, o método SetListType é chamado e transmite 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 tem uma convenção de nomenclatura para objetos TextFrame que contêm listas que utilizam 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.