Results 1 to 9 of 9
  1. #1
    Lounger
    Join Date
    Jan 2003
    Location
    Nelson, South Island, New Zealand
    Posts
    49
    Thanks
    0
    Thanked 1 Time in 1 Post

    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. #2
    Lounger
    Join Date
    Jan 2003
    Location
    Nelson, South Island, New Zealand
    Posts
    49
    Thanks
    0
    Thanked 1 Time in 1 Post

    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. #3
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Los Angeles Area, California, USA
    Posts
    7,453
    Thanks
    0
    Thanked 0 Times in 0 Posts

    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. #4
    Lounger
    Join Date
    Jan 2003
    Location
    Nelson, South Island, New Zealand
    Posts
    49
    Thanks
    0
    Thanked 1 Time in 1 Post

    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. #5
    Plutonium Lounger
    Join Date
    Nov 2001
    Posts
    10,550
    Thanks
    0
    Thanked 7 Times in 7 Posts

    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. #6
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Los Angeles Area, California, USA
    Posts
    7,453
    Thanks
    0
    Thanked 0 Times in 0 Posts

    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. #7
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Los Angeles Area, California, USA
    Posts
    7,453
    Thanks
    0
    Thanked 0 Times in 0 Posts

    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. #8
    Super Moderator WebGenii's Avatar
    Join Date
    Jan 2001
    Location
    Redcliff, Alberta, Canada
    Posts
    4,066
    Thanks
    2
    Thanked 5 Times in 5 Posts

    Re: Word Autonum in reverse order? (Word 2000)

    Thanks for your post Phil
    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
    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 " & 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
    [b]Catharine Richardson (WebGenii)
    WebGenii Home Page
    Moderator: Spreadsheets, Other MS Apps, Presentation Apps, Visual Basic for Apps, Windows Mobile

  9. #9
    Super Moderator WebGenii's Avatar
    Join Date
    Jan 2001
    Location
    Redcliff, Alberta, Canada
    Posts
    4,066
    Thanks
    2
    Thanked 5 Times in 5 Posts

    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.
    Attached Files Attached Files
    [b]Catharine Richardson (WebGenii)
    WebGenii Home Page
    Moderator: Spreadsheets, Other MS Apps, Presentation Apps, Visual Basic for Apps, Windows Mobile

Posting Permissions

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