Hi Borislav,

I just sent you some materials by e-mail. Marcia Akins did a great presentation for us on the exact topic. I hope she will jump into this discussion herself later on.

>Thanks Cetin, I'll try.
>
>>>I create & run MS Word MailMerge, but I don't want the user go back to VFP until he/she closed the Word Window. Untill now I use Cetin's MailMerge Class to find the window of teh MaiMerged Letters & go in a DO WHILE loop. But now some of my users have a MS Office builder in different languages so tha caption of the Form Letter Document vary due to language. So may question is How to know if the user closed the Word Window?
>>>
>>>

>>>myWord = CreateObject("Word.Application")
>>>**** do a Mail merge
>>>**** close all additional Word Windows as Main Document & DataSource
>>>DO WHILE FindWindow(0, "MicroSoft Word - Form Letters") # 0 && But "that caption now is varying :o(((
>>>  DO EVENTS
>>>ENDDO
>>>

>>
>>Boris,
>>Ask caption to word.
>>Side note: FindWindow('OpusApp',0) searches by class instead of caption. Also after setting oWord.Visible = .t., oWord.Activate you could get its handle:
>>gHwndWord = GetForegroundWindow()
>>
>>And yet another piece of code:
>>

>>*...
>>If llToPrinter
>>  oWatcher = CreateObject('myTimer', oWordDocument)
>>Else
>>  oWatcher = CreateObject('myTimer2', oWordDocument)
>>EndIf
>>*...
>>
>>Define Class myTimer As Timer
>> Interval = 1000
>> oWord = .null.
>>
>> Procedure init
>> Lparameters toWord
>> this.oWord = toWord
>> endproc
>>
>>  Procedure Timer
>>    With this.oWord
>>       If .BackgroundPrintingStatus > 0 && Wait printing to finish
>>        Return
>>      Endif
>>      For Each oDoc In .Documents
>>        oDoc.Close(wdDoNotSaveChanges)
>>      Endfor
>>      oDoc = .Null.
>>      .Quit(wdDoNotSaveChanges)
>>    EndWith
>>    this.Enabled = .F.
>>    Clear Events
>>  Endproc
>>Enddefine
>>
>>Define Class myTimer2 As Timer
>> Interval = 1000
>> oWord = .null.
>>
>> Procedure init
>> Lparameters toWord
>> this.oWord = toWord
>> endproc
>>
>>  Procedure Timer
>>    If Type('this.oWord.Visible') = 'L' and this.oWord.Visible
>>        Return
>>    endif
>>    this.Enabled = .F.
>>    Clear Events
>>  Endproc
>>Enddefine
>>

>>Cetin