Restart Numbering Macro

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
Thu Jun 01 22:41:21 CDT 2006

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" <Sal@discussions.microsoft.com> wrote in message
news:A48B09AD-6728-4D59-941B-031643FB9BAB@microsoft.com...
> 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.

Sal
Sun Jun 04 18:47:01 CDT 2006

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

"Doug Robbins - Word MVP" wrote:

> 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" <Sal@discussions.microsoft.com> wrote in message
> news:A48B09AD-6728-4D59-941B-031643FB9BAB@microsoft.com...
> > 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.
>
>
>