# Thread: Word Autonum in reverse order? (Word 2000)

1. ## Word Autonum in reverse order? (Word 2000)

Does anyone know how to create numbered bullets into a table so that if row 1 has a number (eg "407") in it, when you "add row" to the beginning of the table, the new row 1 will contain the next sequential number ie "408". Can anyone help with this? And I can't put the data into Excel, unfortunately. Must be in Word.

2. ## Re: Word Autonum in reverse order? (Word 2000)

Hi Phil,
Thanks - I have had a quick play & can't get it to work (don't know enough) but will research it and try your solution again when I have learned some more. Thank you again & have a great day

3. ## Re: Word Autonum in reverse order? (Word 2000)

I'm not sure if this is versatile enough for you. You could use a compound field, such as

{=OneMoreThanLastNumber - {SEQ A}}

where the brackets are inserted using Ctr+F9, not typed. You could make this into an autotext entry so it could be entered easily & then updated. This will give you a reverse numbered list. However, if you didn't know how many items would be in your list, you'd have to modify it frequently (which you could do with find & replace).

You could also set up a semiautomatic numbering sequence using a combination of formula, SET and SEQ fields.
Example:
{ SET HighNumber 11 }{ = HighNumber - { SEQ A } }
{ = HighNumber - { SEQ A} }
{ = HighNumber - { SEQ A} }
Display:
10
9
8
Then you'd only have to change the number in the SET field & update the list.

4. ## Re: Word Autonum in reverse order? (Word 2000)

Hi Phil,
Thanks so much your time and effort in providing such detailed instructions. Brilliant. I really appreciate it!
And your instructions worked perfectly... except the numbers showed from the top in ascending order, not descending. I thought perhaps that it was because I had worked from the bottom up, but when I tried from the top down, the numbers still appeared (on F9 "update fields") in ascending date order. Any ideas what I could have done wrongly when you have a minute?

Thanks again & I hope you have a good week

5. ## Re: Word Autonum in reverse order? (Word 2000)

(Since Phil isn't online at the moment)

If you follow Phil's detailed instructions in <post#=291583>post 291583</post#>, but replace Lines 3 and 4 with the following to use the field codes that he gave you in <post#=291564>post 291564</post#>

3. Type Control F9, move the cursor inside the { } brackets and type F9 Again so it reads { { } }
4. Fill in the field codes so it looks like { = HighNumber - { SEQ A} }

StuartR

6. ## Re: Word Autonum in reverse order? (Word 2000)

Thanks for catching that, Stuart. I've noted the corrections in my post. <img src=/S/smile.gif border=0 alt=smile width=15 height=15>

7. ## Re: Word Autonum in reverse order? (Word 2000)

<P ID="edit" class=small>(Edited by Phil Rabichow on 07-Sep-03 19:02. to make the corrections that Stuart noted)</P>Let's suppose you have 407 rows.
Try this:
1. Press Ctrl+F9. You will see two curly brackets { }.
2. Type in between them so they look like {SET HighNumber 408 }
3. Type Control F9, move the cursor inside the { } brackets and type F9 Again so it reads { { } }
4. Fill in the field codes so it looks like { = HighNumber - { SEQ A} }
5. Select the nested field { = HighNumber - { SEQ A} } & press Alt+F3. You've created an autotext entry. Name it rn, for example, for reverse numbering.
6. Where you want the second number to appear, type "rn" (no quotes) & press F3.
7. Repeat step 6 for each place you want the number.
8. Press Ctrl+A to select the whole document.
9. Press F9 to update all the fields.

You should now have reverse numbering. If the number of rows increases to say 500, do this:
1. First go to Tools/Options/View tab & make sure that Field shading says "Always". This will make it easier to see your fields. The grey won't print, but you'll be able to see it.
2. Press Alt+F9 to see the field codes.
3. Change the {SET HighNumber 408} to {SET HighNumber 501} (always 1 more than the number of rows).
4. Repeat steps 8 & 9 above.
Hope this is clear. <img src=/S/smile.gif border=0 alt=smile width=15 height=15>

8. ## Re: Word Autonum in reverse order? (Word 2000)

Here is some code that others might find useful
Someone sent me a couple of macros that create a reverse bulleted list using sequence fields. Their problem was that multiple lists in the same document were continuous.
I added an input box so the user can give each list a unique name used by the SEQ field.

Sub RevList()
Dim ShowFlag As Boolean
Dim Numparas As Integer
Dim Counter As Integer
Dim stListName As String

stListName = InputBox("Give the List a Unique Name", _
"Each List needs its' own name", "ReverseList1")
Numparas = Selection.Paragraphs.Count
Selection.MoveLeft Unit:=wdCharacter, Count:=1
ShowFlag = ActiveWindow.View.ShowFieldCodes
ActiveWindow.View.ShowFieldCodes = True
DoList Numparas, stListName
Counter = 1
While Counter < Numparas
Selection.Move Unit:=wdParagraph, Count:=1
DoList Numparas, stListName
Counter = Counter + 1
Wend
ActiveWindow.View.ShowFieldCodes = ShowFlag
ActiveDocument.Select
ActiveDocument.Fields.Update
End Sub

Private Sub DoList(Cnt As Integer, stListName As String)
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
PreserveFormatting:=False
Selection.TypeText Text:="=" & Cnt + 1 & "-"
PreserveFormatting:=False
Selection.TypeText Text:="SEQ " & stListName
With Selection.ParagraphFormat
.LeftIndent = InchesToPoints(0.5)
.FirstLineIndent = InchesToPoints(-0.5)
End With
Selection.MoveRight Unit:=wdCharacter, Count:=4
Selection.InsertAfter "." & vbTab
End Sub

9. ## Re: Word Autonum in reverse order? (Word 2000)

I have had some user feedback and so here is an update:

You can now create a reverse numbered list (multiple lists in the same doc), remove a reverse numbered list and renumber a list.

#### Posting Permissions

• You may not post new threads
• You may not post replies
• You may not post attachments
• You may not edit your posts
•