Word incluye una función de lista numerada incorporada que puede utilizar para desarrollar rápidamente sus listas. Esto es excelente para las listas que están en orden ascendente (del 1 al 10), pero no tanto para las que desea en orden descendente (del 10 al 1).

Si necesita listas inversas, no existe una función automática en Word que le permita crearlas. Una forma de evitar esto es simplemente crear sus propios números de lista y ponerlos en el orden deseado. El problema con esto es que el proceso es intensivo manualmente. Además, la función de lista numerada normal de Word puede causar estragos en su lista ordenada en reversa si presiona Entrar al final de un elemento de lista existente.

Otra forma de manejar la situación es anteponer a cada elemento de la lista un campo SEQ para generar el número del elemento de la lista. Cuando haya terminado con los elementos de la lista, puede actualizar los campos y ordenar los párrafos en orden descendente. El inconveniente obvio de este enfoque es que debe ingresar su lista inicial en orden inverso, ya que la clasificación final hará el pedido por usted. Por lo tanto, si tuviera 10 elementos, primero ingresaría el número 10, luego el número 9, y así sucesivamente. Cuando hizo la clasificación, el orden de los elementos se invirtió y cada elemento terminaría en su orden final.

Otro inconveniente de esto es que agregar elementos a la lista se vuelve engorroso, y si actualiza los campos en su documento, los números se descartarán por completo. Por tanto, se debe encontrar un enfoque más satisfactorio.

Una forma es modificar el campo SEQ para que muestre más apropiadamente el orden previsto de los párrafos. El uso de un campo compuesto para el número de lista puede hacer esto, de la siguiente manera:

{=NP — {SEQ RevList}}

En este caso, los caracteres NP deben reemplazarse con un número uno mayor que el número de elementos en su lista final. Por lo tanto, si su lista consta de 25 elementos, entonces NP sería 26. El campo SEQ se utiliza para generar un orden ascendente de números restados de NP para dar una numeración final en orden inverso.

Siempre que sepa la cantidad de párrafos (elementos) en su lista y recuerde poner el campo al principio de cada párrafo, está en excelentes condiciones. Si olvida cualquiera de los dos, su lista puede desecharse. Para solucionar esto, una macro puede resultar útil. Las siguientes macros (RevList y DoList) harán el truco.

Sub RevList()

Dim ShowFlag As Boolean     Dim Numparas As Integer     Dim Counter As Integer

Numparas = Selection.Paragraphs.Count     Selection.MoveLeft Unit:=wdCharacter, Count:=1     ShowFlag = ActiveWindow.View.ShowFieldCodes     ActiveWindow.View.ShowFieldCodes = True     DoList Numparas     Counter = 1     While Counter < Numparas         Selection.Move Unit:=wdParagraph, Count:=1         DoList Numparas         Counter = Counter + 1     Wend     ActiveWindow.View.ShowFieldCodes = ShowFlag     ActiveDocument.Select     ActiveDocument.Fields.Update End Sub
Private Sub DoList(Cnt As Integer)

Selection.Extend     Selection.MoveRight Unit:=wdCharacter, Count:=1     If InStr(Selection.Text, "SEQ") > 0 Then         Selection.MoveRight Unit:=wdCharacter, Count:=2         Selection.Delete Unit:=wdCharacter, Count:=1     Else         Selection.Collapse Direction:=wdCollapseStart     End If     Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _         PreserveFormatting:=False     Selection.TypeText Text:="=" & Cnt + 1 & "-"

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _         PreserveFormatting:=False     Selection.TypeText Text:="SEQ RevList"

With Selection.ParagraphFormat         .LeftIndent = InchesToPoints(0.5)

.FirstLineIndent = InchesToPoints(-0.5)

End With     Selection.MoveRight Unit:=wdCharacter, Count:=4     Selection.InsertAfter "." & vbTab End Sub

Para usar las macros, simplemente seleccione los párrafos que se incluirán en la lista, luego ejecute RevList, que a su vez usa DoList. Los campos adecuados se colocan al principio de cada párrafo (eliminando los que ya están allí) y aplicando una sangría francesa a los párrafos.

Si desea modificar la forma en que se crea la sangría francesa, simplemente cambie las líneas en la macro DoList donde se establecen las propiedades LeftIndent y FirstLineIndent.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (1759) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Reverse_Numbered_Lists [Listas numeradas inversas].