ListFormat.ApplyListTemplateWithLevel (Word)
Aplica un conjunto de características de formato de listas; opcionalmente para un nivel especificado.
ApplyListTemplateWithLevel (ListTemplate, ContinuePreviousList, ApplyTo, 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 argumento con nombre
ListTemplate (ListTemplate) - Plantilla de lista que se va a aplicar.
Optional arguments
Los siguientes argumentos son opcionales
ContinuePreviousList (Boolean) - True para continuar la numeración de la lista anterior; False para iniciar una nueva lista.
ApplyTo (WdListApplyTo) - Una de las constantes WdListApplyTo que especifica la parte de la lista a la que se aplicará la plantilla de listas.
Posibles valores de retorno son wdListApplyToSelection - Selección, wdListApplyToThisPointForward - Desde el punto de inserción del cursor hasta el final de la lista, wdListApplyToWholeList - Toda la lista.
DefaultListBehavior (WdDefaultListBehavior) - Establece un valor que especifica si Microsoft Word utiliza el formato orientado al Web es nueva para una mejor presentación de lista.
Posibles valores de retorno son wdWord10ListBehavior - Utilizar formato compatible con Microsoft Word 2002, wdWord8ListBehavior - Utilizar formato compatible con Microsoft Word 97, wdWord9ListBehavior - Utilizar el formato orientado al Web que incorpora Microsoft Word 2000.
ApplyLevel (Long) - Nivel al que se aplica la plantilla de lista.