ListFormat.ApplyListTemplate (Word)
Aplica un conjunto de características de formato de lista al objeto ListFormat especificado.
ApplyListTemplate (ListTemplate, ContinuePreviousList, ApplyTo, 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 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) - La parte de la lista que se pueden aplicar a la plantilla de lista.
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.