Propriedade ListTemplate.OutlineNumbered (Word)
True se o objeto ListTemplate especificado tiver numerado de tópicos. Boolean de leitura/gravação.
Sintaxe
expression. OutlineNumbered
Expressão Uma expressão que retorna um objeto 'ListTemplate'.
Comentários
A definição dessa propriedade como False converte o modelo de lista em uma lista de único nível que usa a formatação do primeiro nível.
Você não pode definir essa propriedade para um objeto ListTemplate retornado de um objeto ListGallery.
Exemplo
Este exemplo altera a lista de numeração de tópicos selecionada para uma lista numerada de um único nível.
Selection.Range.ListFormat.ListTemplate.OutlineNumbered = False
Este exemplo verifica se a terceira lista em MyDoc.doc é uma lista de numeração de tópicos. Se for, o terceiro modelo de lista de numeração de tópicos será aplicado nela.
Set myltemp = Documents("MyDoc.doc").Lists(3).Range _
.ListFormat.ListTemplate
num = myltemp.OutlineNumbered
If num = True Then ActiveDocument.Lists(3).ApplyListTemplate _
ListTemplate:=ListGalleries(wdOutlineNumberGallery) _
.ListTemplates(3)
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.