Converting Lists to Text

If you have used Word's numbered list feature, you have probably noticed that the numbers at the beginning of each list item cannot be selected. Further, as you delete or add items in your list, the other items in the list are renumbered to compensate for your actions.

In most instances, this is exactly how you expect and want your numbered lists to work. There may be times, however, when you want the lists to be "frozen," meaning that the numbers won't change. In these instances, the automatic numbering feature can seem more of a frustration than a nicety.

There are two ways around this problem. The first, which I refer to as the brute force method, involves a bit of cutting and pasting. All you need to do is follow these general steps:

1. Select the list you want to freeze.
2. Press Ctrl+C to copy the text to the Clipboard. The list should still be selected.
3. Choose Paste Special from the Edit menu or, in Word 2007, click the down-arrow under the Paste tool in the Clipboard group of the ribbon, then choose Paste Special. Word displays the Paste Special dialog box. (Click here to see a related figure.)
4. Choose Unformatted Text as your paste type.
5. Click on OK.

These actions replace the existing dynamic list with the text of itself, and Word automatically converts the automatic numbering to text.

There are, of course, several different drawbacks to this. First of all, you lose any other special formatting you may have in the list items. If you have some words formatted differently than the paragraph defaults (for instance, bold or italic words), these are eliminated and must be manually redone.

An easier approach is to use a macro to do the job for you. VBA includes a special method that removes the drawbacks already noted and does the conversion much cleaner. None of your other formatting, other than the automatic list numbers, is affected. The following is the ListPlain macro:

Sub ListPlain()
    Dim lp As Paragraph
    For Each lp In ActiveDocument.ListParagraphs
        lp.Range.ListFormat.ConvertNumbersToText
    Next lp
End Sub

Notice how short the macro is. It also runs very quickly, and affects all numbering in the entire document. Any numbered lists that rely on Word's automatic numbering are affected, as are any LISTNUM fields.