microsoft.public.word.vba.general

On 3 =CD=C1=D2, 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.