Método ListFormat.ApplyListTemplate (Word)

Aplica um conjunto de características de formatação de lista ao objeto ListFormat especificado.

Sintaxe

expression. ApplyListTemplate( _ListTemplate_ , _ContinuePreviousList_ , _ApplyTo_ , _DefaultListBehavior_ )

expressão Obrigatório. 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	A parte da lista à qual o modelo de lista deve ser aplicada a. Pode ser uma das seguintes constantes WdListApplyTo: wdListSelection, wdListWholeList ou wdListThisPointForward.
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, que você deve usar wdWord9ListBehavior para aproveitar melhor orientada pela Web formatação em relação ao recuo e vários níveis de lista.

Exemplo

Este exemplo define a variável myRange com 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

Confira também

Objeto ListFormat

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.