Classe List - lista (Word VBA)
A classe List representa um formato de única lista que tenha sido aplicado a parágrafos especificados em um documento. Objeto List é um membro da lista o coleção. Para usar uma variável de classe List, ela primeiro precisa ser instanciada por exemplo
Dim lst as List
Set lst = ActiveDocument.Lists(Index:=1)
For Each
Aqui está um exemplo de processamento dos itens List em uma coleção.
Dim lst As List
For Each lst In ActiveDocument.Lists
Next lst
ApplyListTemplate
Aplica um conjunto de características de formatação de lista ao objeto ListFormat especificado.
ApplyListTemplate (ListTemplate, ContinuePreviousList, DefaultListBehavior)
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
Arguments
O seguinte argumento é necessário
ListTemplate (ListTemplate) - O modelo de lista a ser aplicado.
Optional arguments
Os seguintes argumentos são opcionais
ContinuePreviousList (Boolean) - True para continuar a numeração da lista anterior; False para iniciar uma nova lista.
DefaultListBehavior (WdDefaultListBehavior) - Define um valor que especifica se o Microsoft Word usa nova formatação orientada pela Web para uma melhor exibição de lista. Pode ser uma das seguintes constantes WdDefaultListBehavior : wdWord8ListBehavior (use a formatação compatível com o Microsoft Word 97) ou o wdWord9ListBehavior (use a formatação orientada pela Web). Por motivos de compatibilidade, a constante padrão é wdWord8ListBehavior, mas em novos procedimentos, você deve usar o wdWord9ListBehavior para aproveitar a melhor formatação orientada pela Web com relação às listas de recuo e de vários níveis.
Os valores de retorno possíveis são wdWord10ListBehavior - Usa a formatação compatível com o Microsoft Word 2002, wdWord8ListBehavior - Usa a formatação compatível com o Microsoft Word 97, wdWord9ListBehavior - Usa a formatação orientada pela Web como introduzida no Microsoft Word 2000.
ApplyListTemplateWithLevel
Aplica um conjunto de características de formatação de lista, opcionalmente para um nível especificado.
ApplyListTemplateWithLevel (ListTemplate, ContinuePreviousList, DefaultListBehavior, ApplyLevel)
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
Arguments
O seguinte argumento é necessário
ListTemplate (ListTemplate) - O modelo de lista a ser aplicado.
Optional arguments
Os seguintes argumentos são opcionais
ContinuePreviousList (Boolean) - True para continuar a numeração da lista anterior; False para iniciar uma nova lista.
DefaultListBehavior (WdDefaultListBehavior) - Define um valor que especifica se o Microsoft Word usa nova formatação orientada pela Web para uma melhor exibição de lista. Pode ser uma das seguintes constantes WdDefaultListBehavior : wdWord8ListBehavior (use a formatação compatível com o Microsoft Word 97) ou o wdWord9ListBehavior (use a formatação orientada pela Web). Por motivos de compatibilidade, a constante padrão é wdWord8ListBehavior, mas em novos procedimentos, você deve usar wdWord9ListBehavior para aproveitar melhor formatação orientada pela Web para recuo e lista de vários níveis.
Os valores de retorno possíveis são wdWord10ListBehavior - Usa a formatação compatível com o Microsoft Word 2002, wdWord8ListBehavior - Usa a formatação compatível com o Microsoft Word 97, wdWord9ListBehavior - Usa a formatação orientada pela Web como introduzida no Microsoft Word 2000.
ApplyLevel (Long) - O nível ao qual o modelo de lista deve ser aplicado.
CanContinuePreviousList
Retorna uma constante WdContinue wdContinueDisabled, wdResetListou wdContinueList que indica se a formatação da lista anterior pode ser continuada. Os valores de retorno possíveis são wdContinueDisabled - A formatação não pode continuar da lista anterior, wdContinueList - A formatação da lista anterior não pode ser continuada, wdResetList - A numeração pode ser reiniciada.
Esse método retorna o estado das opções de Continuar lista anterior e reiniciar a numeração na caixa de diálogo marcadores e numeração para um formato de lista especificado. Para alterar as configurações dessas opções, defina o argumento ContinuePreviousList do método ApplyListTemplate.
CanContinuePreviousList (ListTemplate)
ListTemplate: Um modelo de lista que tenha sido aplicado a parágrafos anteriores do documento.
Dim lfTemp As ListFormat
Dim intContinue As Integer
Set lfTemp = Selection.Range.ListFormat
intContinue = lfTemp.CanContinuePreviousList( _
ListTemplate:=lfTemp.ListTemplate)
If intContinue <> wdContinueDisabled Then
lfTemp.ApplyListTemplate _
ListTemplate:=lfTemp.ListTemplate, _
ContinuePreviousList:=True
End If
ConvertNumbersToText
Altera os números de lista e os campos LISTNUM no objeto list especificado.
ConvertNumbersToText (NumberType)
CountNumberedItems
Retorna o número de itens com marcadores ou numerados e campos LISTNUM no objeto list especificado.
CountNumberedItems (NumberType, Level)
Selection.Range.ListFormat.ApplyListTemplate _
ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2)
Msgbox ActiveDocument.CountNumberedItems
Arguments
Optional arguments
Os seguintes argumentos são opcionais
NumberType - WdNumberType
Os valores de retorno possíveis são wdNumberAllNumbers - O valor padrão para todos os outros casos, wdNumberListNum - Valor padrão para campos LISTNUM, wdNumberParagraph - Predefine os números que você pode adicionar aos parágrafos selecionando um modelo na caixa de diálogo Marcadores e numeração.
Level - Byte
ListParagraphs
Retorna uma coleção ListParagraphs que representa todos os parágrafos numerados da lista, do documento ou do intervalo. Somente leitura.
Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.
For Each mypara In ActiveDocument.Lists(2).ListParagraphs
mypara.Range.Underline = wdUnderlineDouble
Next mypara
Range
Retorna um objeto Range que representa a parte de um documento que está contida no objeto especificado.
Dim rngRange As Range
Set rngRange = ActiveDocument.Lists(1).Range
RemoveNumbers
Remove os números ou os marcadores da lista especificada.
RemoveNumbers (NumberType)
NumberType: O tipo do número que será removido.
ActiveDocument.Lists(1).RemoveNumbers
SingleListTemplate
True se a lista inteira usa o mesmo modelo de lista. Boolean somente leitura.
Dim booSingleListTemplate As Boolean
booSingleListTemplate = ActiveDocument.Lists(1).SingleListTemplate
StyleName
Retorna o nome do estilo aplicado à entrada de AutoTexto especificada. Cadeia de caracteressomente leitura.
Set myentry = NormalTemplate.AutoTextEntries.Add(Name:="rsvp", _
Range:=Selection.Range)
MsgBox myentry.StyleName