Numbering Lists

  • Thread starter Thread starter kayla_6_kayla
  • Start date Start date
kayla_6_kayla said:
Can lists be auto numbered in reverse?
Click to expand...

Word does not have in-built provision but see
http://homepage.swissonline.ch/cindymeister/NbrFAQ.htm#RevNbr for a
workaround

If you use the first method from the linked page, the two elements
{ SET HighNr 11 }
{ = HighNr - { SEQ RevNrList } }
can each be saved as autotext entries which are then easy to apply.
All you have to do is insert the number in the SET field to represent the
number from which you wish to descend.
SEQ fields (most fields in fact) do not update automatically
whether ascending or descending, but that's a minor obstacle. Simply add an
update macro to a toolbar (there's a sample macro that will work at
http://www.gmayor.com/installing_macro.htm) and click that whenever you
change the order of the numbered paragraphs.


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
It can be done by running a macro when you select the paragraphs to which
you want to apply the numbering

' Macro created 12/02/2006 by Doug Robbins to apply/re-apply reverse
sequential numbering
Dim i As Long, Numrange As Range
Set Numrange = Selection.Range
With Numrange
For i = 1 To .Paragraphs.Count
If IsNumeric(.Paragraphs(i).Range.Characters(1)) Then
With .Paragraphs(i).Range
While IsNumeric(.Characters(1))
.Characters(1).Delete
Wend
.Characters(1).Delete
End With
End If
.Paragraphs(i).Range.InsertBefore .Paragraphs.Count - i + 1 & vbTab
Next i
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
 
Back
Top