>>>> 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 >>>>>>>>
>>>#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) >>>>>
>>Line 1 >>Line 2 >>>>
>>10/3/11 SHIM: >> >>Line 1 >>Line 2 >>>>
>#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) >loRange = loDoc.Range() >loRange.InsertParagraphBefore() >loRange.Collapse(wdCollapseEnd) >loRange.MoveEnd(wdCharacter, -1 ) >oWord.Selection.TypeText(lcText) >Thanks! That worked.