Please Note: This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here: Reverse Numbered Lists.

Reverse Numbered Lists

by Allen Wyatt
(last updated November 4, 2013)

3

Word includes a built-in numbered-list feature that you can use to quickly develop your lists. This is great for lists that are in ascending order (1 through 10), but not so great for those you want in descending order (10 through 1).

If you have a need for reverse lists, there is no automatic feature in Word that allows you to create them. One way around this is to simply create your own list numbers and put them in the order desired. The problem with this is that the process is manually intensive. In addition, the regular numbered-list feature of Word can play havoc with your reverse-ordered list if you press Enter at the end of an existing list item.

Another way to handle the situation is to precede each item in your list with a SEQ field to generate the number for the list item. When you are done with the list items, you could then update the fields and sort the paragraphs in descending order. The obvious drawback to this approach is that you need to enter your initial list in reverse order, since the final sort will do the ordering for you. Thus, if you had 10 items, you would enter number 10 first, then number 9, and so on. When you did the sort, the order of the items would be reversed and each item would end up in its final order.

Another drawback to this is that adding items to the list becomes cumbersome, and if you update the fields in your document, the numbers will be thrown off completely. Thus, a more satisfactory approach must be found.

One way is to modify the SEQ field so that it more appropriately shows the intended order of the paragraphs. Using a compound field for the list number can do this, in the following fashion:

{=NP – {SEQ RevList}}

In this instance, the characters NP must be replaced with a number one greater than the number of items in your final list. Thus, if your list consisted of 25 items, then NP would be 26. The SEQ field is used to generate an ascending order of numbers subtracted from NP to give a final reverse-order numbering.

As long as you know the number of paragraphs (items) in your list and you remember to put the field at the beginning of each paragraph, you are in great condition. If you forget either one, your list can be thrown off. To solve this, a macro can come in handy. The following macros (RevList and DoList) will do the trick.

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

    Numparas = Selection.Paragraphs.Count
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    ShowFlag = ActiveWindow.View.ShowFieldCodes
    ActiveWindow.View.ShowFieldCodes = True
    DoList Numparas
    Counter = 1
    While Counter < Numparas
        Selection.Move Unit:=wdParagraph, Count:=1
        DoList Numparas
        Counter = Counter + 1
    Wend
    ActiveWindow.View.ShowFieldCodes = ShowFlag
    ActiveDocument.Select
    ActiveDocument.Fields.Update
End Sub
Private Sub DoList(Cnt As Integer)
    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 RevList"
    With Selection.ParagraphFormat
        .LeftIndent = InchesToPoints(0.5)
        .FirstLineIndent = InchesToPoints(-0.5)
    End With
    Selection.MoveRight Unit:=wdCharacter, Count:=4
    Selection.InsertAfter "." & vbTab
End Sub

To use the macros, simply select the paragraphs to be included in the list, then run RevList, which in turn uses DoList. The proper fields are placed at the beginning of each paragraph (removing any that are there already), and applying a hanging indent to the paragraphs.

If you want to modify the way in which the hanging indent is created, simply change the lines in the DoList macro where the LeftIndent and FirstLineIndent properties are set.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (1759) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Reverse Numbered Lists.

Author Bio

Allen Wyatt

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He  is president of Sharon Parq Associates, a computer and publishing services company. ...

MORE FROM ALLEN

Word 2010 Graphics (Table of Contents)

One way to enhance your documents is with Word's powerful graphics capabilities. Discover how to best utilize graphics and ...

Discover More

Linking to Slides in PowerPoint

If you are preparing a document that references a presentation you created in PowerPoint, you may want to reference in the ...

Discover More

Spellcheck for Two Languages

Are you creating a document that mixes different languages? Word can handle the multi-language scenario, but it may take a ...

Discover More

Comprehensive VBA Guide Visual Basic for Applications (VBA) is the language used for writing macros in all Office programs. This complete guide shows both professionals and novices how to master VBA in order to customize the entire Office suite for their needs. Check out Mastering VBA for Office 2010 today!

More WordTips (menu)

Removing a List

If you have lists in your document, either bulleted or numbered, you may want to change them back to regular text at some ...

Discover More

Randomly Resetting Numbering

Have you ever been frustrated by the automatic numbering feature in Word? You are not alone. Fortunately, there are a few ...

Discover More

Understanding and Creating Lists

There are two types of common lists you can use in a document: bulleted lists and numbered lists. This tip explains the ...

Discover More
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

View most recent newsletter.

Comments

If you would like to add an image to your comment (not an avatar, but an image to help in making the point of your comment), include the characters [{fig}] in your comment text. You’ll be prompted to upload your image when you submit the comment. Maximum image size is 6Mpixels. Images larger than 600px wide or 1000px tall will be reduced. Up to three images may be included in a comment. All images are subject to review. Commenting privileges may be curtailed if inappropriate images are posted.

What is 9 - 2?

2015-05-22 18:40:54

David

Thanks for the tip. It increased the indentation which is an easy fix. I also tried with Excel. Copy & paste the numbered list somewhere in same Word document and remove the numbers from the menu bar. Then copy the text without the numbers into Excel (leave a blank column on the left), type the last item number of list, then next to last. Then use Auto-fill to handle the rest.

Fill in a series of numbers, dates, or other built-in series items. See link https://support.office.com/en-za/article/Fill-data-automatically-in-worksheet-cells-74e31bdd-d993-45da-aa82-35a236c5b5db#bmaboutfillhandle


2015-04-07 06:11:00

Duncan

I gave up with this. A reverse order list is extremely common for most people constructing a publication list, for example. I guess this means doing everything manually - very unsatisfactory.


2014-03-18 15:02:05

Jen

Thanks for trying Allen. Unfortunately, this is a longstanding problem for a common business need which neither Microsoft or Apple has yet to address - despite years of well-documented online complaints and discussion. Another example of a ridiculously complex and time-consuming fix to a software development oversight at the point of origin.


This Site

Got a version of Word that uses the menu interface (Word 97, Word 2000, Word 2002, or Word 2003)? This site is for you! If you use a later version of Word, visit our WordTips site focusing on the ribbon interface.

Newest Tips
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

(Your e-mail address is not shared with anyone, ever.)

View the most recent newsletter.