Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Aplica um conjunto de características de formatação de lista, opcionalmente para um nível especificado.
Sintaxe
expression.
ApplyListTemplateWithLevel( _ListTemplate_ , _ContinuePreviousList_ , _DefaultListBehavior_ , _ApplyLevel_ )
expressão Uma variável que representa um objeto "Lista".
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| ListTemplate | Obrigatório | ListTemplate | O modelo de lista a ser aplicado. |
| ContinuePreviousList | Opcional | Variant | True para continuar a numeração da lista anterior; False para iniciar uma nova lista. |
| DefaultListBehavior | Opcional | Variant | Define um valor que especifica se o Microsoft Word usa nova formatação orientada pela Web para uma melhor exibição de lista. Pode ser uma das seguintes constantes WdDefaultListBehavior: wdWord8ListBehavior (usar formatação compatível com o Microsoft Word 97) ou wdWord9ListBehavior (usar orientada pela Web formatação). Por motivos de compatibilidade, a constante padrão é wdWord8ListBehavior, mas em novos procedimentos, você deve usar wdWord9ListBehavior para aproveitar melhor formatação orientada pela Web para recuo e lista de vários níveis. |
| AplicarNível | Opcional | Variant | O nível ao qual o modelo de lista deve ser aplicado. |
Exemplo
O exemplo seguinte define a variável myRange para um intervalo no documento ativo e, em seguida, verifica se o intervalo tem formatação de lista. Se nenhuma formatação de lista tiver sido aplicada, o quarto modelo de lista de tópicos numerados será aplicado ao intervalo.
Set myDoc = ActiveDocument
Set myRange = myDoc.Range( _
Start:= myDoc.Paragraphs(3).Range.Start, _
End:=myDoc.Paragraphs(6).Range.End)
If myRange.ListFormat.ListType = wdListNoNumbering Then
myRange.ListFormat.ApplyListTemplate _
ListTemplate:=ListGalleries(wdOutlineNumberGallery) _
.ListTemplates(4)
End If
Confira também
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.