Word include una funzionalità di elenchi numerati incorporata che puoi utilizzare per sviluppare rapidamente gli elenchi. Questo è ottimo per gli elenchi che sono in ordine crescente (da 1 a 10), ma non così eccezionale per quelli che si desidera in ordine decrescente (da 10 a 1).

Se hai bisogno di elenchi inversi, non esiste una funzionalità automatica in Word che ti consenta di crearli. Un modo per aggirare questo è semplicemente creare i tuoi numeri di elenco e metterli nell’ordine desiderato. Il problema con questo è che il processo è manualmente intensivo. Inoltre, la normale funzione di elenco numerato di Word può creare scompiglio con la tua lista in ordine inverso se premi Invio alla fine di una voce di elenco esistente.

Un altro modo per gestire la situazione è far precedere ogni elemento nell’elenco con un campo SEQ per generare il numero per l’elemento dell’elenco. Quando hai finito con gli elementi dell’elenco, puoi aggiornare i campi e ordinare i paragrafi in ordine decrescente. L’ovvio svantaggio di questo approccio è che devi inserire la tua lista iniziale in ordine inverso, poiché l’ordinamento finale farà l’ordinamento per te. Quindi, se avessi 10 elementi, dovresti inserire prima il numero 10, poi il numero 9 e così via. Quando hai eseguito l’ordinamento, l’ordine degli articoli sarebbe stato invertito e ogni articolo sarebbe finito nel suo ordine finale.

Un altro svantaggio di questo è che l’aggiunta di elementi all’elenco diventa complicata e se aggiorni i campi nel tuo documento, i numeri verranno eliminati completamente. Pertanto, è necessario trovare un approccio più soddisfacente.

Un modo consiste nel modificare il campo SEQ in modo che mostri in modo più appropriato l’ordine previsto dei paragrafi. L’utilizzo di un campo composto per il numero della lista può farlo, nel modo seguente:

{=NP — {SEQ RevList}}

In questo caso, i caratteri NP devono essere sostituiti con un numero uno maggiore del numero di elementi nell’elenco finale. Quindi, se la tua lista consisteva di 25 elementi, allora NP sarebbe 26. Il campo SEQ è usato per generare un ordine crescente di numeri sottratti da NP per dare una numerazione finale in ordine inverso.

Finché conosci il numero di paragrafi (elementi) nella tua lista e ti ricordi di mettere il campo all’inizio di ogni paragrafo, sei in ottime condizioni. Se dimentichi uno dei due, la tua lista può essere buttata via. Per risolvere questo problema, una macro può tornare utile. Le seguenti macro (RevList e DoList) faranno il trucco.

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

Per utilizzare le macro, è sufficiente selezionare i paragrafi da includere nell’elenco, quindi eseguire RevList, che a sua volta utilizza DoList. I campi corretti vengono inseriti all’inizio di ogni paragrafo (rimuovendo quelli già presenti) e applicando un rientro sporgente ai paragrafi.

Se desideri modificare il modo in cui viene creato il rientro sporgente, modifica semplicemente le righe nella macro DoList in cui sono impostate le proprietà LeftIndent e FirstLineIndent.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (1759) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia della barra multifunzione di Word (Word 2007 e più tardi) qui:

Reverse Numbered Lists.