>>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