microsoft.public.word.vba.general

On Mar 20, 11:33=A0am, petecjr
wrote:
> I have been using this subroutine to reformat and consecutively number ite=
ms
> from multiple cut and pastes from one doc to another inWord2003. However i=
nWord2007each new section begins back at 1. I have tried everything I can
> think of and nothing works. Please help. Time is crucial! Thanks.
>
> Sub Example ()
> Set mylist =3D ActiveDocument.ListTemplates.Add
> =A0 =A0 With mylist.ListLevels(1)
> =A0 =A0 =A0 =A0 .NumberFormat =3D "%1."
> =A0 =A0 =A0 =A0 .TrailingCharacter =3D wdTrailingTab
> =A0 =A0 =A0 =A0 .NumberStyle =3D wdListNumberStyleArabic
> =A0 =A0 =A0 =A0 .NumberPosition =3D InchesToPoints(0)
> =A0 =A0 =A0 =A0 .Alignment =3D wdListLevelAlignLeft
> =A0 =A0 =A0 =A0 .TextPosition =3D InchesToPoints(0.25)
> =A0 =A0 =A0 =A0 .TabPosition =3D InchesToPoints(0.25)
> =A0 =A0 =A0 =A0 .ResetOnHigher =3D False
> =A0 =A0 End With
> =A0 =A0 =A0Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=3Dmy=
list, _
> =A0 =A0 =A0 ContinuePreviousList:=3DTrue, ApplyTo:=3DwdListApplyToWholeLis=
t
> end sub

Pete -

If a Ctrl-Q on a selection of the pasted, macro-automated paragraphs
fixes it/them up as designed in 2003, then add a loop to 'reset'
paragraph attributes on all #'d paragraphs:

Dim objPara as Paragraph
For each objPara in ActiveDocument.ListParagraphs
objPara.Reset
Next

Sherry