detecting active Word 1

[pietersj]

I can create a new instance from the Word.application object, but how can I detect if the Word-application is already active ?

 

[Chance1234]

save as macro autoexec On Error GoTo bye
Instances = 0
apps = AppCount() - 1
Dim winnames$(apps)
AppGetNames winnames$()
For i = 0 To apps
If InStr(1, winnames$(i), "Microsoft Word&quot Then
Instances = Instances + 1
End If
If Instances > 1 Then
MsgBox " There is currently another instance of Word For Windows running. "
' This instance will Close. ", 16
'AppClose()
i = apps
End If
Next
bye:

 

[JoaoTL]

Hi, try this function

http://www.mvps.org/access/modules/mdl0038.htm

Best Regards

---
JoaoTL
NOSPAM_mail@jtl.co.pt

http://www.jtl.co.pt

http://www.jtl.co.pt/Access/eng/FAQE.htm

 

[pietersj]

But how can i retrieve the active word.application object ??

 

[JoaoTL]

Hi, that linked function in

http://www.mvps.org/access/modules/mdl0038.htm

tell you WHO IS WORKING WITH THE DOC FILE, if anyone is working with the Document, WORD is Open. Best Regards

---
JoaoTL
NOSPAM_mail@jtl.co.pt

http://www.jtl.co.pt

http://www.jtl.co.pt/Access/eng/FAQE.htm

 

[pietersj]

Thanks for that,
but I need also the currently active "word.application" object.
So my own application can use this object to create a new doc - from a specified template - and fill in the docfields. All that stuff works fine with me, but i just need to know how i can reuse the active word.application object

 

[dsi]

You can use the GetObject method to attach to the current instance of Word. NOTE: If the user is running Outlook with Word as the default e-mail editor, you may find that winword.exe is running in the background (task manager) and will be detected as "Running" in the sample below. Unfortunatly, I have had trouble accessing and controlling this instance of Word from VB and found it easier to start a new instance for my program.

    Dim hApp As Object

    On Error Resume Next
    Set hApp = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
        MsgBox &quot;Word is Not Running&quot;
    Else
        MsgBox &quot;Word is Running&quot;
    End If

Hope this helps!