Word application is running

I wrote Excel VBA to check whether any instance of Word is already running, but some problems are occurring.

If I open the Word without opening a document, the line If Err.Number = 0 Then wdAppRunning = True returns False.

Open Word via Windows Start

The opened Word instance.

If there is an instance of Word running on a background process, the line also returns False.
If I open Word, and create or open a document, and then run the macro, it returns the expected result (True)

How can I manage the code to identify at least the situation n° 1?

Ps.: the code posted in the link Getting instances of Word and saving documents returns the same situation.

Sub wdAppRunning()
    Dim wdApp As Object
    Dim wdAppRunning As Boolean

    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err.Number = 0 Then wdAppRunning = True

    MsgBox wdAppRunning
    Set wdApp = Nothing

End Sub

asked Jan 26, 2020 at 11:34

Something like this should work.

Option Explicit

Public Function IsWordRunning() As Boolean
    IsWordRunning = GetObject("winmgmts:\.rootcimv2").ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'WINWORD.EXE'").Count > 0
End Function

Public Sub Example()
    Debug.Print IsWordRunning()
End Sub

A quick bonus, this could be extended for an Executable name if you like.

Public Function IsProcessRunning(ExecutableName As String) As Boolean
    IsProcessRunning = GetObject("winmgmts:\.rootcimv2").ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & ExecutableName & "'").Count > 0
End Function

Example Usage

Public Sub Example()
    Debug.Print IsProcessRunning("WINWORD.EXE")
End Sub

Make sure the name you specify in IsProcessRunning() is the name as it appears in Task Manager.

answered Jan 27, 2020 at 17:29

Ryan WildryRyan Wildry

5,5921 gold badge16 silver badges35 bronze badges

Alternatively you can try with

Public Function Is_Word_Running() As Boolean

   Dim WMG As Object, Proc As Object

    Is_Word_Running = False
    Set WMG = GetObject("winmgmts:")
    For Each Proc In WMG.InstancesOf("win32_process")
        If UCase(Trim(Proc.Name)) = "WINWORD.EXE" Then
            Is_Word_Running = True
            Exit For
        End If
    Next Proc
    Set WMG = Nothing

End Function

answered Jan 27, 2020 at 13:43

Zer0KelvinZer0Kelvin

3142 silver badges7 bronze badges

Try this

    Public Function Is_Word_Running() As Boolean

       Dim Wrd As Object

       On Error Resume Next
       Set Wrd = GetObject(, "Word.Application")
       On Error GoTo 0
       Is_Word_Running = Not Wrd Is Nothing

    End Function

answered Jan 26, 2020 at 14:11

Zer0KelvinZer0Kelvin

3142 silver badges7 bronze badges

Источник

Return to VBA Code Examples

This code will check if an Office App is Running. If the App is not running then it opens the App.

Check if Microsoft Word Application is Open

Sub Check_If_App_Is_Open()

'Check if Microsoft Word is Running
wApp = "Word.Application"

If IsAppRunning(wApp) = True Then
 MsgBox "Word is Running"
Else
 MsgBox "Word is Not Running"
 'Create a new instance
 Set oApp = CreateObject(, wApp)
End If

End Sub

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro – A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Learn More!

<<Return to VBA Examples

VBA Code Examples Add-in

Easily access all of the code examples found on our site.

Simply navigate to the menu, click, and the code will be inserted directly into your module. .xlam add-in.

(No installation required!)

Free Download

Источник

I have a Winforms application that launches Word to automate and edit documents. I would like the code to work.

I would like to check if Word (WINWORD.EX) is already running.

if Word is running then

use the existing session of Word

Else

Create a new instance of Word

End if

Im using the following code

The results are

If Word is running

Returns true and the code continues

If Word is not running

An exception error displays

Operation unavailable (Exception from HRESULT:0x800401E3 (MK_E_UNAVAILABLE))

In the function IsWordRunning

On line

Dim wordObj As Object = Marshal.GetActiveObject("Word.Application")

Code is…

Dim objWordApp As Word.Application

‘ check if Word running
If IsWordRunning() = True Then

   MsgBox("Winword.exe is running")

   objWordApp = CType(Marshal.GetActiveObject("Word.Application"), Word.Application)

Else

    MsgBox("Winword.exe NOT running")

    objWordApp = New Microsoft.Office.Interop.Word.Application

End If



Public Function IsWordRunning() As Boolean
   Dim wordObj As Object = Marshal.GetActiveObject("Word.Application")
   Return Not wordObj Is Nothing
End Function

Источник

we have an application that runs MS Word (hidden) to print documents.

If one of the printers has a problem, then Word hangs while waiting for the spooler to return the ‘queued’ message.

We have found that if we make Word visible (by using VBA in Excel with GetObject andoWordApp.visible=true for
example) then the process continues printing the other documents with no problem.

We would like to make this more automatic by having a VBScript check for Word in running processes, if it finds it, make it visible, wait for a few seconds, hide it, and quit…

But I have a problem that the VBScript GetObject function
instantiates Word if it’s not already running.

how should I check that word is running using VBScript without creating an instance of it?

here is the code I have in my VBScript file:

dim oWord, WScriptShell

set oWord = getobject("", "Word.Application")
set WScriptShell = CreateObject("WScript.Shell")

if isobject(oWord)  then 'and oWord.Documents.count>0
    wscript.echo("Word is running")
    oWord.visible=true
    WScript.Sleep 1000
    oWord.visible=false
else
    wscript.echo("Word not running")
end if

so what should I use to check if word is running without creating an instance of it?

Edited by

Friday, February 21, 2014 11:45 AM

Источник

VBForums
Visual Basic
Visual Basic 6 and Earlier
Determine if WinWord.Exe is running

Jan 7th, 2015, 01:16 PM

#1

Thread Starter

New Member

Determine if WinWord.Exe is running

Hello,
Newbee here and somewhat inexperienced with VBScript so here goes…

I have a need to make sure that there aren’t any word applications running when I run a script. Sometimes, Word will not have a file open but it will be there in the taskbar (application is running but no file). Therefore, I need to kill this word application so I can open one with the script.

Guy Thomas was kind enough to provide this sub-routine to kill the running processes. It works quite well.

But, in my script, I’m posting a message box that notifies the user that the system is going to close all Word applications. This requires and OK or Cancel response from the user.

I’d like to prevent this message from popping-up if there aren’t any word processes running. My problem is that I don’t know how to determine that there is at least one instance running. If I can do that, then I can put an IF statement and control when the user prompt pops up.

So, how would I illicit a response from the system as to whether or not there are any WinWord.Exe processes running?

Public Sub Word_Grim_Reaper()
‘ ProcessKillLocal.vbs
‘ Sample VBScript to kill a program
‘ Author Guy Thomas http://computerperformance.co.uk/
‘ Version 2.7 — December 2010
‘ ———————— ——————————-‘

Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = «.»
strProcessKill = «‘WinWord.Exe'»

Set objWMIService = GetObject(«winmgmts:» _
& «{impersonationLevel=impersonate}!\» _
& strComputer & «rootcimv2»)

Set colProcess = objWMIService.ExecQuery _
(«Select * from Win32_Process Where Name = » & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next

End Sub

Thank you
Jan 7th, 2015, 02:01 PM

#2
Re: Determine if WinWord.Exe is running
Hey,

VScript <> VB6

Regardless, if you just need a script to close a task just Shell window’s taskkill command line.
e.g close notepad.exe on a local machine
Code:

taskkill /im notepad.exe
for more info and parameters: http://technet.microsoft.com/en-us/l…/bb491009.aspx

a small search to figure out if a process is running via VB, got me to this thread:
http://www.vbforums.com/showthread.p…unning-Process
you cna find at least 3 different ways to do so in that thread alone.
Jan 7th, 2015, 02:05 PM

#3

Re: Determine if WinWord.Exe is running

I think you mean elicit not «illicit» above.

Not only isn’t this a scripter’s forum, what you are trying to do is frought with woes. Office applications are not meant to be run unattended from any script, service, etc. See Considerations for server-side Automation of Office which also applies to any kind of batch activity such as a scheduled task.
Jan 7th, 2015, 02:19 PM

#4

Thread Starter

New Member

Re: Determine if WinWord.Exe is running

Yes, elicit is the word I was looking for, thank you.

I’m sorry about the misuse of the VB Forum. For some reason, I assumed that VB and VB Script were so closely related that I could get some help on this forum for the problems I’m experiencing. I came across this forum because of other posts that dealt with problems similar to mine. Apparently, I can get some help.

Stum, the link you found matches what I was looking for and it even looks like VnTalk (the creator of that thread) has the same code that I’m using.

I think the code:

If colProcesses.Count Then
isRunning = True
Else
isRunning = False
End If

Thank you!

Originally Posted by stum
Jan 9th, 2015, 05:20 AM

#5
Re: Determine if WinWord.Exe is running
For future searches, if anyone still needs to enumerate through running processes and find out if one process is currently running:
Code:

Dim Process As Object For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process") If Process.Caption = "WINWORD.EXE" Then Msgbox ("Word is Running !") End If Next
credit on this snippet goes to dee-u *
Jan 9th, 2015, 01:08 PM

#6
Re: Determine if WinWord.Exe is running
VBScript:
Code:

msgbox wordIsRunning function wordIsRunning dim wdApp on error resume next set wdApp = GetObject(, "Word.Application") wordIsRunning = (err.Number = 0) set wdApp = nothing end function

VBForums
Visual Basic
Visual Basic 6 and Earlier
Determine if WinWord.Exe is running

Posting Permissions

You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
[VIDEO] code is On
HTML code is Off

Forum Rules

Click Here to Expand Forum to Full Width

Источник

Norton

Hi All,

I have a COM+ application which will get data from database and then export
as word file.

eg.
Set oWordApp = CreateObject(«Word.Application»)
oWordApp.Documents.Open Filename:=DocumentPath, ReadOnly:=False

For every COM+ operation, the program will create a word instance and then
write data, and the performance is poor.
Is there any method in VB to detect if a Word Application is running, and
use that application instead of create a new one?

Thx all of you!

Regards,
Norotn

Richard Myers

Want to reply to this thread or ask your own question?

You’ll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Источник

Using MS Access 2003. I open a Word document, but need to know how to determine if MS Word is closed before closing a MS Access form. The Word application object is ‘wo’. I get the run-time error as mentioned below.

Private Sub cmdbCloseCC_Click()
On Error GoTo PROC_ERR
Dim wn As String
wn = «Word.Application»
If Me.IsAppRunning(wn) = True Then
wo.Quit
Set wo = Nothing
End If

DoCmd.Close acForm, «frmCC_Status»
Application.Quit
PROC_EXIT:
Exit Sub
PROC_ERR:
MsgBox Err.Description
Resume PROC_EXIT
End Sub
___________________________________________

Function IsAppRunning(ByVal appName) As Boolean
Dim oApp As Object
On Error Resume Next

Set oApp = GetObject(, appName) ‘Error here — Run-time error ‘429’: ActiveX component can’t create object
Debug.Print oApp
If Not oApp Is Nothing Then
Set oApp = Nothing
IsAppRunning = True
End If
End Function

Источник

Check if Microsoft Word Application is Open

VBA Coding Made Easy

VBA Code Examples Add-in

Determine if WinWord.Exe is running

Re: Determine if WinWord.Exe is running

Re: Determine if WinWord.Exe is running

Re: Determine if WinWord.Exe is running

Re: Determine if WinWord.Exe is running

Re: Determine if WinWord.Exe is running

Posting Permissions

Norton

Advertisements

Richard Myers

Similar topics

Check if Microsoft Word Application is Open

VBA Coding Made Easy

VBA Code Examples Add-in

Re: Determine if WinWord.Exe is running

Re: Determine if WinWord.Exe is running

Re: Determine if WinWord.Exe is running

Re: Determine if WinWord.Exe is running

Re: Determine if WinWord.Exe is running

<img decoding="async" onError="javascript: wp_broken_images = window.wp_broken_images || function(){}; wp_broken_images(this);" onerror="this.src='https://wordexcele.ru/wp-content/uploads/2023/09/111.png'" src="https://www.vbforums.com/images/buttons/collapse_40b.png" alt /> Posting Permissions

Norton

Advertisements

Richard Myers

Similar topics

Posting Permissions