Método List.ApplyListTemplate (Word)
Aplica um conjunto de características de formatação de lista ao objeto ListFormat especificado.
Sintaxe
expressão. ApplyListTemplate (ListTemplate, ContinuePreviousList, ApplyTo, DefaultListBehavior)
expressão Obrigatório. Uma variável que representa um objeto List.
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 | A parte da lista à qual o modelo de lista deve ser aplicada a. Pode ser uma das seguintes constantes WdListApplyTo : wdListApplyToSelection, wdListApplyToWholeList ou wdListApplyToThisPointForward. |
| DefaultListBehavior | Opcional | Variantes | Define um valor que especifica se o Microsoft Word usa uma nova formatação orientada à Web para melhor exibição de lista. Pode ser uma das seguintes constantes WdDefaultListBehavior : wdWord8ListBehavior (use formatação compatível com o Microsoft Word 97) ou wdWord9ListBehavior (use formatação orientada à Web). Por razões de compatibilidade, a constante padrão é wdWord8ListBehavior, mas em novos procedimentos você deve usar wdWord9ListBehavior para aproveitar a formatação aprimorada orientada à Web em relação a listas recuadas e multinível. |
Exemplo
Este exemplo define a variável myRange como um intervalo no documento ativo e 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
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.