microsoft.public.word.vba.general

On 4 =D0=BC=D0=B0=D1=80, 10:07, avkokin wrote:
> On 3 =C3=8D=C3=81=C3=92, 12:23, avkokin wrote:
>
>
>
> > Hello. There is short story with dialogues. These dialogues has
> > formated of list marked (the dash). I need to format these dialogues
> > into other style (Normal) and insert before each dialogues the dash,
> > as is it was previously with list. I wrote the code, but it replace
> > not all entries. That code:
> > Sub listChange()
> > 'Change list format on Normal text with the dash
> > Dim List1 As Style
> > Dim List2 As Style
> > Set List1 =3D ActiveDocument.Styles("MarkList")
> > Set List2 =3D ActiveDocument.Styles("Normal")
> > With Selection.Find
> > .ClearFormatting
> > .Style =3D List1
> > .Replacement.ClearFormatting
> > .Replacement.Style =3D List2
> > .Text =3D ""
> > .Replacement.Text =3D "^+^s^&"
> > .Forward =3D True
> > .Wrap =3D wdFindContinue
> > .Format =3D True
> > .Execute Replace:=3DwdReplaceAll
> > End With
> > End Sub
> > And here (http://rapidshare.com/files/96671459/list.doc.html) you can
> > download the file with sample dialogues.
> > Thank you very much.
>
> Hello. After use of this macro it change only first entry of list but
> it skipped next entries of list. You can download this file also from
> here (http://www.box.net/shared/2blerch8gc). Thank you very much.

Hello there. I decided my question with help of the cycle. I added:
For Each List1 In ActiveDocument.Styles
Selection.Find.Execute Replace:=3DwdReplaceOne
Next List1
Thank you. But I not understand, why my early code is not working.