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
expressão. ApplyListTemplateWithLevel( _ListTemplate_ , _ContinuePreviousList_ , _ApplyTo_ , _DefaultListBehavior_ , _ApplyLevel_ )
Expressão Uma variável que representa um objeto 'ListFormat'.
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. |
| Applyto | Opcional | Variant | Uma das constantes WdListApplyTo que especificam a parte da lista à qual o modelo de lista será aplicado. |
| 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. |
| ApplyLevel | Opcional | Variant | O nível ao qual o modelo de lista deve ser aplicado. |
Exemplo
O exemplo a seguir define a variável myRange como 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.