Nota
O acesso a esta página requer autorização. Podes tentar iniciar sessão ou mudar de diretório.
O acesso a esta página requer autorização. Podes tentar mudar de diretório.
Uma coleção de objetos ListTemplate num documento, galeria de listas ou modelo.
Comentários
Utilize a propriedade ListTemplates com um objeto Documento, ListGallery ou Modelo para devolver uma coleção ListTemplates . Com um objeto ListGallery, a coleção ListTemplates é os sete formatos de lista para listas com marcas, listas numeradas e listas numeradas hierárquicas.
O exemplo a seguir exibe uma mensagem com o status de nível (único ou vários níveis) para cada modelo de lista no documento ativo.
For Each lt In ActiveDocument.ListTemplates
MsgBox "This is a multiple-level list template - " _
& lt.OutlineNumbered
Next lt
Use o método Add para adicionar um modelo de lista à coleção no modelo ou documento especificado. O exemplo a seguir adiciona um novo modelo de lista ao documento ativo e aplica à seleção.
Set myLT = ActiveDocument.ListTemplates.Add
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=myLT
Utilize ListTemplates (Índice), em que Índice é o nome de um modelo de lista ou um número de índice, para devolver um único modelo de lista num documento ou modelo. O exemplo seguinte define uma variável de objeto igual a um modelo de lista com o nome "ListBullets" no documento ativo e, em seguida, formata a seleção como o primeiro nível desse modelo de lista.
Set mylt = ActiveDocument.ListTemplates("ListBullets")
Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:=mylt, ApplyLevel:=1
Utilize ListTemplates (Índice), em que Índice é um número de 1 a 7, para devolver um único modelo de lista numa galeria de listas. O exemplo seguinte define uma variável de objeto igual ao primeiro modelo de lista na galeria de listas de marcas e, em seguida, aplica esse modelo de lista à seleção.
Set mylt = ListGalleries(wdBulletGallery).ListTemplates(1)
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=mylt
Observação
Algumas propriedades e métodos ( Converter e Adicionar, por exemplo) não funcionarão com os modelos de lista numa galeria de listas. Pode modificar esses modelos de lista, mas não pode alterar o tipo de galeria de lista (wdBulletGallery, wdNumberGallery ou wdOutlineNumberGallery).
Para ver se um modelo de lista numa galeria de listas contém a formatação incorporada no Word, utilize a propriedade Modificado com o objeto ListGallery. Para repor a formatação para o formato de lista original, utilize o método Reset para o objeto ListGallery .
Após ter retornado um objeto ListTemplate, use ListLevels (Index), onde Index é um número de 1 a 9, para retornar um único objeto ListLevel. Com um objeto ListLevel, você tem acesso a todas as propriedades de formatação para o nível de lista especificado, como Alignment, Font, NumberFormat, NumberPosition, NumberStyle e TrailingCharacter.
Use o método Convert para converter um modelo de lista de vários níveis em um modelo de nível único.
Confira também
Referência do modelo de objeto do Word
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.