Re: Reverse order numbered list

The following is a far superior macro (than my 1999 effort) to
apply/re-apply reverse sequential numbering to a range of paragraphs:

Dim i As Long, Numrange As Range
Set Numrange = Selection.Range
With Numrange
For i = 1 To .Paragraphs.Count
If IsNumeric(.Paragraphs(i).Range.Characters(1)) Then
With .Paragraphs(i).Range
While IsNumeric(.Characters(1))
.Characters(1).Delete
Wend
.Characters(1).Delete
End With
End If
.Paragraphs(i).Range.InsertBefore .Paragraphs.Count - i + 1 & vbTab
Next i
End With


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

"Greg Maxey" <gmaxey@xxxxxxxxxxxxxxxxxxx> wrote in message
news:%23LMoen5LGHA.2580@xxxxxxxxxxxxxxxxxxxxxxx
Here is hoping that anyone that reads my posts will excuse my terrible
spelling. By "small" I meant of course "smart."

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Greg Maxey wrote:
Suzanne,

I am aware of that link, and didn't recommend it as the user seemed to
already have a list that he needed to number in reverse. So select
it and run the macro. Cindy's method is good, yet sort of
impractical. I mean your have to know the high number in advance,
set up the fields and then type the sequence.

Consider:
one
two
three
four
five
six
seven
eight
nine
ten

It is much easier to select that then run my proposed macro than it
is to set up the field codes, save then (I guess as AutoTex) and then
type the list (would you agree?)

The challenge (and I can't figure it out) is to create such a
sequence as my method and Cindy's does quite well and then delete one
of the sequence members and the list update accordingly. I mean
consider the following (in no particular order):

10. Rolling Stones
9. Little Feat
8. Crosby, Stills, Nash and Young
7. The Doors
6. U2
5. Johnny Cash
4 Jewel
3. Brotha Iz
2. Alice Cooper
1. Johnny Love Jazz

Lets delete one of the members (say number 5). Wouldn't it be nice
if the result would be:

9. Rolling Stones
8. Little Feat
7. Crosby, Stills, Nash and Young
6. The Doors
5. U2
4 Jewel
3. Brotha Iz
2. Alice Cooper
1. Johnny Love Jazz

I have been cracking my small skull trying to achieve the desired
result described above. Hoping a small guy or gal will provide.


Suzanne S. Barnhill wrote:
See http://homepage.swissonline.ch/cindymeister/NbrFAQ.htm#RevNbr for
a method that doesn't require VBA.


"Captain Frog" <fayero@xxxxxxxxxxx> wrote in message
news:e35UeC4LGHA.532@xxxxxxxxxxxxxxxxxxxxxxx
Hi All,

Is there a simple method to display a numbered list in reverse
order? Like Dave Letterman's Top 10 List: 10, 9, 8... Any help is
gratefully appreciated.

Regards,
Robert




.

Relevant Pages

  • Re: autonumbering
    ... Hmm, if you want to number text in a single sequence, you can use the macro ... Note that the macro keeps track of the sequence by storing the current value ... reverse the order starting from 1 at the bottom of the sheet and adding ... create a reverse numbering sequence. ...
    (microsoft.public.word.docmanagement)
  • Re: Hunter builds
    ... start over the sequence." ... What happens on third press a few ms ... keep pressing it, it'll fire steady, auto, steady, auto forever. ... To be honest, it's not strictly necessary in THIS macro, because there's ...
    (alt.games.warcraft)
  • Re: How do I set up automatically suceeding numbers in Word?
    ... "Jay Freedman" wrote: ... In the template, insert continuous-type section breaks before and after ... Or, in the macro, insert new code before and after the InsertBefore line ... That will turn off the protection just long enough to insert the sequence ...
    (microsoft.public.word.docmanagement)
  • RE: Macro Hyperlink Issues
    ... US-RMA = Return Material Authorization (worksheet) ... I need to be able to pull up any US-MAS workbook and request the next number ... The home office does not want gaps in our numbering sequence for all of the ... ' Sequence_MAS_Click Macro ...
    (microsoft.public.excel.misc)
  • RE: Macro Hyperlink Issues
    ... How do you change this formula in the workbook? ... ' Sequence_MAS_Click Macro ... Windows("Helitune Inc. Master Sequence Log 2008.xls").Activate ... As you can see from line 1 in my code I have a hyperlink in cells ...
    (microsoft.public.excel.misc)
Loading