Método List.ApplyListTemplate (Word)

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

Sintaxe

mais simples. 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.
Aplicar-se a	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	Variant	Define um valor que especifica se o Microsoft Word usa a nova formatação orientada para a Web para melhor exibição da lista. Pode ser uma das seguintes constantes WdDefaultListBehavior: wdWord8ListBehavior (usar formatação compatível com o Microsoft Word 97) ou wdWord9ListBehavior (usar formatação orientada para a Web). Por motivos de compatibilidade, a constante padrão é wdWord8ListBehavior, mas em novos procedimentos você deve usar wdWord9ListBehavior para aproveitar a formatação orientada para a Web aprimorada em relação ao recuo e listas de vários níveis.

Exemplo

Este exemplo 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

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.