Reset number via menu button

[Mark]

Hi there
I'm trying to set up a simple menu button which restarts the numbering in a
list without destroying the current style.

I have a bit of code which restarts the number list (see below) but
unfortunately also applies a style at the same time. Whenever I try to remove
the parts which apply a template it stops working - anyone got any Ideas?

Sub ResetNumbering()
Selection.Range.ListFormat.ApplyListTemplate
ListTemplate:=ListGalleries( _
wdOutlineNumberGallery).ListTemplates(7),
ContinuePreviousList:=False, _
ApplyTo:=wdListApplyToWholeList,
DefaultListBehavior:=wdWord9ListBehavior
End Sub

 

[Word Heretic]

G'day "Mark" <[email protected]>,

Very close mate.

With Selection.Range.ListFormat
.ApplyListTemplate .ListTemplate,False
End With


Steve Hudson - Word Heretic

steve from wordheretic.com (Email replies require payment)
Without prejudice


Mark reckoned: