如何判断打开Excel嵌入Word文档时WINWORD.EXE是否运行？

Hey there! Let's fix this process detection and cleanup issue for your Excel-embedded Word docs. The core problem is tracking whether Word was already running before you activated the embedded object, so you only quit it if you were the one who launched it. Here's a step-by-step solution:

1. First: A Function to Check if WINWORD.EXE is Running #

We'll use Windows Management Instrumentation (WMI) to query active processes—this is reliable and works without needing extra references:

Function IsWordRunning() As Boolean
    Dim objWMIService As Object
    Dim colProcesses As Object
    
    ' Connect to local WMI service
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    ' Query for WINWORD.EXE processes
    Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'WINWORD.EXE'")
    
    ' Return True if any Word process exists
    IsWordRunning = (colProcesses.Count > 0)
    
    ' Clean up objects
    Set colProcesses = Nothing
    Set objWMIService = Nothing
End Function

2. Updated Code to Handle Embedded Word Docs Properly #

This code tracks the initial state of Word, handles the embedded object, and cleans up correctly without leaving orphaned processes:

Sub ManageEmbeddedWord()
    Dim objWord As Object ' Use late binding to avoid needing Word object library references
    Dim objDoc As Object
    Dim wasWordRunning As Boolean
    Dim oleObjNameOrIndex As Variant ' Replace with your OLE object's name or index (your original "P")
    
    ' Set your target OLE object here (e.g., oleObjNameOrIndex = "WordDoc1" or 1)
    oleObjNameOrIndex = 1
    
    ' Record if Word was already running BEFORE activating the embedded doc
    wasWordRunning = IsWordRunning()
    
    ' Error handling to ensure we clean up objects even if something goes wrong
    On Error GoTo Cleanup
    
    ' Activate the embedded Word object
    ActiveSheet.OLEObjects(oleObjNameOrIndex).Activate
    
    ' Get the active Word application instance
    Set objWord = GetObject(, "Word.Application")
    ' Get the embedded document that's now active
    Set objDoc = objWord.ActiveDocument
    
    ' --- Add your custom operations here ---
    ' Example: Modify the document content
    ' objDoc.Content.Text = "Updated text in embedded Word doc"
    
Cleanup:
    ' First, close the embedded document (save changes if needed)
    If Not objDoc Is Nothing Then
        ' Use 1 for save changes, 0 for no save, -1 for prompt
        objDoc.Close SaveChanges:=1
        Set objDoc = Nothing
    End If
    
    ' Only quit Word if it wasn't running before we started
    If Not wasWordRunning And Not objWord Is Nothing Then
        ' Quit without saving any other open docs (adjust if needed)
        objWord.Quit SaveChanges:=0
        Set objWord = Nothing
    End If
    
    ' Always release the Word object reference to avoid leaks
    If Not objWord Is Nothing Then
        Set objWord = Nothing
    End If
End Sub

Key Notes to Avoid Process Leaks: #

• Track initial state first: Always check if Word is running before activating the embedded object—this tells you whether you're responsible for closing it later.
• Late binding: Using As Object instead of Word.Application means you don't need to add a reference to the Microsoft Word Object Library in your Excel VBA project, making the code more portable.
• Error handling: The On Error GoTo Cleanup ensures that even if your code hits an error mid-operation, you still release all object references and clean up properly.
• Close docs first: Always close the embedded document before quitting Word (if needed) to avoid save prompts and ensure clean shutdown.

内容的提问来源于stack exchange，提问作者Tuberose