Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Number a list in reverse
{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 |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Number a list in reverse
Hi Bob,
You can do this with a bit of field coding: .. at the point where you want the numbering to start, type in your first number (eg '10'). .. select the number and bookmark it, using the name 'ListNum' .. at the point where you want the second number to appear, press Ctrl-F9 twice to create a pair of nested fields - denoted by a set of nested field braces (i.e '{ { } }') .. code these nested fields so that you end up with '{=ListNum-{SEQ RevNum}}' .. copy the nested fields with their coding and paste them in each remaining list position .. when you've finished pasting, select the whole list and press F9 to generate the number sequence If you find you need to expand or contract the list, edit the first number (without deleting the bookmark). Then, if you're adding to the list, copy one of the numbered fields and paste it into the new position. Conversely if you're deleting from the list, delete the corresponding number. If you're just re-arranging the list, you can move the items around with their numbers. Once you've finished adding/deleting/moving, select the list again and press F9 to update the numbers. Cheers -- macropod [MVP - Microsoft Word] "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 | | |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Number a list in reverse
' 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 |
#4
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Number a list in reverse
That's pretty clever. Thanks.
Now if I could just get it to automatically renumber when I add/remove items from the list... -- Bob http://www.kanyak.com "Doug Robbins - Word MVP" wrote in message ... ' 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 |
#5
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Number a list in reverse
Just select the list and run it again,
-- 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 ... That's pretty clever. Thanks. Now if I could just get it to automatically renumber when I add/remove items from the list... -- Bob http://www.kanyak.com "Doug Robbins - Word MVP" wrote in message ... ' 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 |
#6
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Number a list in reverse
"Doug Robbins - Word MVP"
Now if I could just get it to automatically renumber when I add/remove items from the list... Just select the list and run it again, {Slaps self upside the head} Of course! Thanks again. -- Bob http://www.kanyak.com |
#7
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Number a list in reverse
See http://homepage.swissonline.ch/cindy...FAQ.htm#RevNbr
-- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "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 |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to reverse first and last names in list | Microsoft Word Help | |||
How do I number a list out of sequence? | Microsoft Word Help | |||
List Number format style that includes date power field | Microsoft Word Help | |||
how do I circle a number in a list of numbers ? | Microsoft Word Help | |||
How do I insert chapter number with page number in footer? | Microsoft Word Help |