Restart Numbering Macro

[Sal]

Hi there,

I have a number of restart numbering macros that I record and I find when
these are run on other machines, I get a run time error. The numbering has a
style associated with it and so should pick up the correct Outline level
associated with the style.

I think I have something missng from my code. Any suggestions welcome.

 

[Doug Robbins - Word MVP]

Your code is missing.

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

 

[Sal]

Oh yes that might help!!!

Here it is....

Sub RestartNumb()
'
' RestartNumb Macro
'
With ListGalleries(wdOutlineNumberGallery).ListTemplates(4).ListLevels(1)
.NumberFormat = "%1."
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(1)
.TabPosition = CentimetersToPoints(1)
.ResetOnHigher = 0
.StartAt = 1
With .Font
.Size = 11
.Name = "Arial Mäori"
End With
.LinkedStyle = "List Number"
End With

ListGalleries(wdOutlineNumberGallery).ListTemplates(4).Name = ""
Selection.Range.ListFormat.ApplyListTemplate
ListTemplate:=ListGalleries( _
wdOutlineNumberGallery).ListTemplates(4),
ContinuePreviousList:=False, _
ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
wdWord10ListBehavior
End Sub

Thanks