' 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
"Opinicus" wrote in message
...
{Word 2002 SP3}
Is it possible to automatically number a list in reverse in Word? That is
the first item is (say) "10", the next "9", and so on?
--
Bob
http://www.kanyak.com