Classe List - liste (Word VBA)

La classe List représente un format de liste donné qui a été appliqué aux paragraphes spécifiés dans un document. Pour utiliser une variable de classe List, elle doit d'abord être instanciée, par exemple


Dim lst as List
Set lst = ActiveDocument.Lists(Index:=1)

For Each

Voici un exemple de traitement des éléments List dans une collection


Dim lst As List
For Each lst In ActiveDocument.Lists
	
Next lst

ApplyListTemplate

Applique un ensemble de caractéristiques de mise en forme de liste à l'objet ListFormat spécifié.

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

Un argument nommé

ListTemplate (ListTemplate) - Modèle de liste à appliquer.

Optional arguments

Les arguments suivants sont facultatifs

ContinuePreviousList (Boolean) - True pour poursuivre la numérotation à partir de la liste précédente ; False pour commencer une nouvelle liste.

DefaultListBehavior (WdDefaultListBehavior) - Définit une valeur qui spécifie si Microsoft Word utilise une nouvelle mise en forme orientée Web pour un meilleur affichage de liste.

Les valeurs de retour possibles sont wdWord10ListBehavior - Utilise la mise en forme compatible avec Microsoft Word 2002, wdWord8ListBehavior - Utilise la mise en forme compatible avec Microsoft Word 97, wdWord9ListBehavior - Utilise la mise en forme Web présentée dans Microsoft Word 2000.

ApplyListTemplateWithLevel

Applique un ensemble de caractéristiques de mise en forme de liste, éventuellement pour un niveau spécifié.

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

Un argument nommé

ListTemplate (ListTemplate) - Modèle de liste à appliquer.

Optional arguments

Les arguments suivants sont facultatifs

ContinuePreviousList (Boolean) - True pour poursuivre la numérotation à partir de la liste précédente ; False pour commencer une nouvelle liste.

DefaultListBehavior (WdDefaultListBehavior) - Définit une valeur qui indique si Microsoft Word utilise un nouveau format Web pour un meilleur affichage de liste.

ApplyLevel (Long) - Niveau auquel le modèle de liste doit être appliqué.

CanContinuePreviousList

Renvoie une constante WdContinue (wdContinueDisabled, wdResetListou wdContinueList) qui indique si la mise en forme de la liste précédente peut être poursuivie ou non. Les valeurs de retour possibles sont wdContinueDisabled - La mise en forme de la liste précédente ne peut pas être conservée, wdContinueList - La mise en forme de la liste précédente peut être conservée, wdResetList - La numérotation peut être relancée.

Cette méthode renvoie l'état des options Continuer la liste précédente et recommencer la numérotation dans la boîte de dialogue Puces et numéros pour un format de liste spécifié.

CanContinuePreviousList (ListTemplate)

ListTemplate: Modèle de liste appliqué aux paragraphes précédents du document.


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

Modifie les numéros de liste et les champs LISTNUM dans l’objet de liste spécifié.

ConvertNumbersToText (NumberType)

CountNumberedItems

Renvoie le nombre d’éléments à puces ou numérotés et de champs LISTNUM contenus dans l’objet List spécifié.

CountNumberedItems (NumberType, Level)


Selection.Range.ListFormat.ApplyListTemplate _ 
    ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2) 
Msgbox ActiveDocument.CountNumberedItems

Arguments

Optional arguments

Les arguments suivants sont facultatifs

NumberType - WdNumberType

Les valeurs de retour possibles sont wdNumberAllNumbers - Valeur par défaut dans tous les autres cas, wdNumberListNum - Valeur par défaut des champs LISTNUM, wdNumberParagraph - Définissez les numéros que vous pourrez aujouter aux paragraphes en sélectionnant un modèle dans la boîte de dialogue Puces et numéros.

Level - Byte

ListParagraphs

Renvoie une collection ListParagraphs qui représente tous les paragraphes numérotés contenus dans la liste, le document ou la plage.

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.


For Each mypara In ActiveDocument.Lists(2).ListParagraphs 
 mypara.Range.Underline = wdUnderlineDouble 
Next mypara

Range

Renvoie un objet Range qui représente la partie d'un document contenue dans l'objet spécifié.


Dim rngRange As Range
Set rngRange = ActiveDocument.Lists(1).Range

RemoveNumbers

Supprime des numéros ou des puces de la liste spécifiée.

RemoveNumbers (NumberType)

SingleListTemplate

True si la liste entière utilise le même modèle de liste.


Dim booSingleListTemplate As Boolean
booSingleListTemplate = ActiveDocument.Lists(1).SingleListTemplate

StyleName

Renvoie le nom du style appliqué à l'insertion automatique spécifiée.


Set myentry = NormalTemplate.AutoTextEntries.Add(Name:="rsvp", _ 
 Range:=Selection.Range) 
MsgBox myentry.StyleName