[Word] Word 2003 Question: Can Outline Numbering Start With
Number 10 and go down to Number 1 - Descending Order Needed, if possible
McKinnon, Bonnie F
BMCKINNON at MCCARTHY.CA
Tue Mar 16 17:16:01 CDT 2010
Pieter,
Thanks you were right. I ran it on Outline Numbering paragraphs and it ran reverse numbering beside my automatic numbering and then I just changed all the paragraphs to Body Text so that no Automatic Numbering preceded it that worked fine as well so thanks again.
Bonnie
-----Original Message-----
From: word-bounces at dcomp.com [mailto:word-bounces at dcomp.com] On Behalf Of Pieter Janssens
Sent: Tuesday, March 16, 2010 2:18 PM
To: DailyWordTips
Subject: Re: [Word] Word 2003 Question: Can Outline Numbering Start With Number 10 and go down to Number 1 - Descending Order Needed, if possible
hi Bonnie,
the macro works fine without any modifications and might even be the
easiest method. just select all the paragraphs you want reversed
numbered and then run the ReverseNumberingList macro.
only thing you may need to modify and which Phil mentioned are the
widths of the indents (modify the number inside InchesToPoints(0.5) to
adjust).
greetings, pieter.
On 16/03/2010 20:39, McKinnon, Bonnie F wrote:
> Phil,
>
> Wow, thanks, this is a great help but we don't usually use Sequential Numbering in our documents, just Firmwide Outline Numbering (automatic numbering) in all Word documents as we have a numbering button that assigns 3 difference numbering schemes in every document and so most users don't know about or how Sequential Numbering works, especially the lawyers. Even I only understand the basics but can get buy because I have done a little bit of it here and there. However, we do get a lot of Sequentially Numbered client documents so I guess it would be possible to work it in to a document and leave some instructions about how it works, etc.
>
> I tried out Method 3 as it seemed the easiest to understand or explain and so I could use this but I guess I was hoping for some kind of Automatic Outline Numbering scheme that gave a descending order option or something like that.
>
> I did try Allen's "ReverseNumberingList" but it did not work as I thought it would so did not find it as useful. Did you try it out. It gives quite odd numbering with negative numbers instead of just reverse numbering - or at least that is what I got.
>
> Thanks again for your help. - Bonnie
>
>
>
>
> -----Original Message-----
> From: word-bounces at dcomp.com [mailto:word-bounces at dcomp.com] On Behalf Of Phil Rabichow
> Sent: Monday, March 15, 2010 6:23 PM
> To: DailyWordTips
> Subject: Re: [Word] Word 2003 Question: Can Outline Numbering Start With Number 10 and go down to Number 1 - Descending Order Needed, if possible
>
> Hi Bonnie:
> Here's a couple of other ways, including a macro from Allen's tips:
> ------------------
> Numbering: Reverse Numbering Lists
> Method 1: Formula& SEQ Field
> 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:
>
> {=HighNr+1 - {SEQ RevList}}
>
> In this instance, the characters HighNr 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 HighNr would be 26. The SEQ field is
> used to generate an ascending order of numbers which are subtracted from
> HighNr 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. See Macro:
> Reverse Numbering List.
>
> Method 2: Semi-Automatic SEQ Fields with SET Fields
> Word has no provision for numbering in reverse order. But you can set
> up a semiautomatic numbering sequence using a combination of formula,
> SET and SEQ fields.
> Example:
> { SET HighNr 11 }{ = HighNr - { SEQ RevNrList } }
> { = HighNr - { SEQ RevNrList } }
> { = HighNr - { SEQ RevNrList } }
> Display:
> 10
> 9
> 8
> Method 3: Using 2 SEQ Fields& Switches
> In the first row, enter this field code:
>
> {SEQ RevNbr \r n}
>
> where n is the starting (highest) number.
>
> In all the subsequent rows, enter this field code:
>
> { ={SEQ RevNbr} - {=2*{SEQ Second} }}
>
> Macro: ReverseNumberingList
>
> 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
>
> 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.
>
> --
> Phil
>
> McKinnon, Bonnie F wrote:
>> I was asked this question the other day and said no, it was not
>> possible but I thought I would check it out after all in case it was
>> possible to do a descending order outline numbering scheme.
>>
>> Please advise - thanks - Bonnie
>> ===========================================================
>> This e-mail may contain information that is privileged, confidential and/or exempt from disclosure.
>> No waiver whatsoever is intended by sending this e-mail which is intended only for the named recipient(s).
>> Unauthorized use, dissemination or copying is prohibited. If you receive this email in error, please notify
>> the sender and destroy all copies of this e-mail. Our privacy policy is available at www.mccarthy.ca .
>>
>> ------------------------------------------------------------------------
>>
>> _______________________________________________
>> Word mailing list
>> Word at dcomp.com
>> http://lists.dcomp.com/mailman/listinfo/word
>>
> _______________________________________________
> Word mailing list
> Word at dcomp.com
> http://lists.dcomp.com/mailman/listinfo/word
> _______________________________________________
> Word mailing list
> Word at dcomp.com
> http://lists.dcomp.com/mailman/listinfo/word
_______________________________________________
Word mailing list
Word at dcomp.com
http://lists.dcomp.com/mailman/listinfo/word
More information about the Word
mailing list