Styles and Set Numbering Value problem

[Earthman]

Running MS Office Pro 2007 with Windows XP Pro.

I have styles defined for numbered lists. These styles have simple
characteristics, like indent, space before, etc. - nothing special.

I want the numbered lists to appear throughout the document, with each
starting at the number 1. When I try to start a new list using the Set
Numbering Value dialog, I get a message saying "Changing the number format
for this list updates the style "NumList" and reapplies the style to each
paragraph. Do you want to continue?" If I select no, the starting number is
not changed. If I select Yes, the starting number is changed, but so is the
style, and every instance where the style is used - just like the dialog
says.

Is there a way to set the numbering value without affecting the style?

Thanks...

 

[Suzanne S. Barnhill]

If you right-click in a numbered item, do you get the Restart List option?

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org

 

[RGGVTP]

First create this macro:

Sub Last()
'
' #Step.Last Macro
' Macro recorded 10/18/2007 by Ray Graham
'
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"LISTNUM \l 1 \s 0", PreserveFormatting:=False
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection.Font
.Name = "Arial"
.Size = 11
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorWhite
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
End Sub

And then:

1.1 IMPLEMENT THE AUTOMATIC RESTART NUMBERING FUNCTIONALITY
1. Click the Microsoft Office Button , and then click Word Options .
2. In the Word Options dialog box, click Customize
3. In the Choose commands from list, click Macros.
4. In the Choose commands from Macros list, click
TemplateProject.NewMacros.LastSeq… and then click Add.
The macro is copied to the Customize Quick Access Toolbar
5. Click TemplateProject.NewMacros.LastSeq…, and then click Modify .
The Modify Button dialog box appears

6. Click an icon (e.g., or ) and then in Display name type a name.
7. Click OK and then click OK.
The icon appears in the Quick Access Toolbar.

1.2 USE THE AUTOMATIC RESTART NUMBERING FUNCTION
To use the automatic Restart Numbering:
• At the end of the last step in any numbered sequence, click the button
that was added to the Quick Access Toolbar in the last procedure.
The next numbered sequence will automatically start with the number 1. Even
if using Copy and Paste functions to share these steps between documents, the
numbering will remain correct and you will not have to Restart Numbering at
the beginning of each numbered sequence.
*********************************

 

[Stefan Blom]

What is the purpose of the With Selection.Font ... End With block statement?