[RESOLVED] Testing for an instance of word

[RobDog888]

Welcome to the Forums.

You can test for a running instance of Word by using the GetObject function.

Option Explicit
'Add a reference to MS Word xx.0 Object Library
Private Sub Command1_Click()
    Dim oApp As Word.Application    
    Set oApp = GetObject(, "Word.Application)
    If TypeName(oApp) <> "Nothing" Then
        'A Word instance is running
    Else
        'No Word instances running.
    End If
    '...
    '...
End Sub