Microsoft Word ?

[cj92713696]

How does one determine if a Word document is currently running? I want to write a program that appends a document to Word if it is running or in the event it is not running, open Word and add a document.

Thanks,
CJ

 

[dsi]

Here you go!

Sub StartWord()
    Dim wdApp As Word.Application
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err.Number <> 0 Then     'Not Running - Start New
        Set wdApp = CreateObject(&quot;Word.Application&quot;)
        Err.Clear
    End If
    On Error GoTo 0
    wdApp.Visible = True
    wdApp.WindowState = wdWindowStateMaximize
    wdApp.Documents.Add
End Sub

 

[cj92713696]

Thanks a lot!

That worked great! I really appreciate it!

CJ