Seems to work. Thanks.



>Try instead of >oRange.InsertAfter("XYZ")<:
>
>with oDocument.Application.Selection
> .GoTo(0,1,2,"")&&goto where section2 starts
> .Moveleft(1)&& goto the end of Section1
> .InsertAfter("XYZ")
>endwith
>
>>It puts the text into the next section instead of at the end of section 1.
>>
>>Any ideas ?
>>
>>
>>oWord = CreateObject("Word.Application")
>>oWord.visible = .t.
>>oDocument = oWord.Documents.Add("Tap.dot")
>>
>>oRange = oDocument.Sections[1].Range
>>oRange.InsertBefore("ABC"+chr(13))
>>oRange.InsertAfter("XYZ")