Tamar:

Please see my post in VFP7 - More Automtation Woes with VFP7 SP1 :(


>>>Try this:
>>>*---------------------
>>>lcfile1="c:\encrypting.doc"
>>>lcfile2="c:\If Operating Systems were beers.doc"
>>>wdStory=6
>>>wdSectionBreakNextPage=2
>>>
>>>oWord = CREATEOBJECT("word.application")
>>>with oWord
>>> .Documents.open(lcfile1)
>>> .Selection.EndKey(wdStory)
>>> .Selection.InsertBreak(wdSectionBreakNextPage)
>>> .Selection.InsertFile(lcfile2,"", .f.,.f.,.f.)
>>>endwith
>
>You should be able to speed this up a little by using the Range object instead of the Selection object. (In general, you should use Range wherever possible rather than Selection.)
>
>WITH oWord
> .Documents.Open(lcFile1)
> oRange = .ActiveDocument.Range()
>ENDWITH
>
>WITH oRange
> .Collapse(wdCollapseEnd)
> .InsertBreak( wdSectionBreakNextPage )
> .Collapse(wdCollapseEnd)
> .InsertFile(lcFile2, "", .f., .f., .f.)
>ENDWITH
>
>Warning: untested code, just a translation of Yuri's code.
>
>Tamar