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