>Hi All:
>
>In the following snippet:
>
>

>		loDoc = .oWord.documents.OPEN(tcDocument)
>		
>		lcText = gc_sdate8 + ' ' + alltrim(gc_userid) + ':' + chr(13) + chr(13)
>
>		loRange = loDoc.Range()
>		loRange.InsertBefore(lcText)
>		
>		.oWord.VISIBLE = .T.
>
>		.oword.WINDOWSTATE = wdWindowStateMinimize
>		.oword.WINDOWSTATE = wdWindowStateMaximize && this automatically makes the window activated
>

>
>Ths cursor is positioned BEFORE the inserted text. How do I position it AFTER the inserted text?
>
>Thanks,
>
>Yossi


Something like this?

#define wdCollapseEnd 0 
#define wdCharacter   1
oWord = CREATEOBJECT([Word.Application])

loDoc = oWord.documents.OPEN(GETFILE())
oWord.VISIBLE = .T.
lcText = gc_sdate8 + ' ' + alltrim(gc_userid) + ':' + chr(13) + chr(13)
loRange = loDoc.Range()
loRange.Collapse(wdCollapseEnd)
loRange.MoveEnd(wdCharacter, -1 )
oWord.Selection.TypeText(lcText)