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.