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 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. |
| Aplicar 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 utiliza uma nova formatação orientada para a Web para uma melhor apresentação de lista. Pode ser uma das seguintes constantes WdDefaultListBehavior: wdWord8ListBehavior (utilize formatação compatível com o Microsoft Word 97) ou wdWord9ListBehavior (utilize formatação orientada para a Web). Por motivos de compatibilidade, a constante predefinida é wdWord8ListBehavior, mas nos novos procedimentos deve utilizar wdWord9ListBehavior para tirar partido de uma formatação orientada para a Web melhorada no que diz respeito a listas de avanço e de múltiplos níveis. |
Exemplo
Este exemplo 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
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.