How do I create an odd number list?

[Guest]

If I wanted to number a list of items using only odd numbers; how would I do
that?
For Example: 1-Today
3-Tomorrow
5-Yesterday
7-Help!!

 

[Doug Robbins - Word MVP]

One way to do it would be to select the paragraphs that you want to number
and then run a macro containing the following code:

Dim i As Long
For i = 1 To Selection.Paragraphs.Count
Selection.Paragraphs(i).Range.InsertBefore 2 * i - 1 & vbTab
Next i


--
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

 

[Jay Freedman]

If I wanted to number a list of items using only odd numbers; how would I do
that?
For Example: 1-Today
3-Tomorrow
5-Yesterday
7-Help!!

I don't think this can be done with the automatic numbering feature.
It can be done with a special field.

Type this on an empty line:

=seq a*2-1

Select the characters 'seq a' and press Ctrl+F9 to make it a field.
Then select everything from the = to the 1 and press Ctrl+F9 again. It
should look like this:

{={seq a}*2-1}

Finally, press F9 to update the field, and it should show the number
1. Copy that to the clipboard (or make an AutoText entry from it if
you want to use it in other documents).

Paste a copy of the field at the beginning of each item, and press F9
to update it -- or select al (Ctrl+A) and update (F9).