Skip to: Site menu | Main content

Login

Name: 
Password:
Remember me?
Register

Check if word is running

written by Mark Rowlinson - Last updated Sep 2005

The followin function will return a boolean value indicating whether an instance of Word is running: 

 
Function WordIsRunning() As Boolean 
    On Error Resume Next 
    Dim wdApp As Object 
    Set wdApp=GetObject(,"Word.application") 
    WordIsRunning=Not wdApp Is Nothing 
End Function