Classe ListTemplate - modelo de lista (Word VBA)

A classe ListTemplate representa um único modelo de lista que inclui toda a formatação que define uma lista. O objeto ListTemplate é um membro da coleção ListTemplates . Para usar uma variável de classe ListTemplate, ela primeiro precisa ser instanciada por exemplo

Dim lte as ListTemplate
Set lte = ActiveDocument.ListTemplates(Index:=1)

For Each

Aqui está um exemplo de processamento dos itens ListTemplate em uma coleção.

Dim lte As ListTemplate
For Each lte In ActiveDocument.ListTemplates
	
Next lte

Convert

Converte uma lista de vários níveis em uma lista de único nível ou vice-versa.

Você não pode usar o método Convert em um modelo de lista derivado da coleção ListGalleries.

Convert (Level)

Level: O nível a ser usado para formatar a nova lista. Ao converter uma lista de vários níveis em uma lista de um único nível, esse argumento pode ser um número de 1 a 9. Ao converter uma lista de um único nível em uma lista de vários níveis, 1 é o único valor válido. Se este argumento for omitido, 1 é o valor padrão.

ActiveDocument.ListTemplates(1).Convert

ListLevels

Retorna uma coleção ListLevels que representa todos os níveis do ListTemplateespecificado.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

Set myListTemp = _ 
 ListGalleries(wdOutlineNumberGallery).ListTemplates(1) 
For Each mylevel In myListTemp.ListLevels 
 mylevel.LinkedStyle = "Heading " & mylevel.index 
Next mylevel

Name

Retorna ou define o nome do objeto especificado. String de leitura/gravação.

ActiveDocument.ListTemplates(1).Name =

OutlineNumbered

True se o objeto ListTemplate especificado tiver numerado de tópicos. Boolean de leitura/gravação.

A definição dessa propriedade como false converte o modelo de lista em uma lista de um ú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 .

Selection.Range.ListFormat.ListTemplate.OutlineNumbered = False