Word进程的问题

Question

实现的功能：在VB调用Word之前，先查找系统进程中有无Word进程，如果有，关闭其进程，并将Word保存到指定目录；如果没有，直接打开我所指定的Word。
　　难点：如何查找系统进程中有无Word，并如何将其关闭和保存到指定目录。
　　先谢了！

Answer 1

用Word对象来操作，GetObject来获得运行的Word

Answer 2

查询wmi的win32_process,看有没有叫winword.exe的进程。

Answer 3

Dim wObj as Word.Application
Set wObj = GetObject(, "Word.Application")

Answer 4

引用Word(工程/引用/Microsoft Wors X.0 Object Library)Private Sub Command1_Click()
    Dim doc As Object
    Dim word As word.Document
    
    On Error Resume Next
    If Tasks.Exists("Microsoft Word") Then
        Set doc = GetObject(, "Word.Application")
    End If
    If Err.Number = 429 Then
        Set doc = CreateObject("Word.Application")
    '    Set word = doc.Documents.Open("指定的Word路径及文件名")
    Else
        Set word = doc.Documents(1)
        word.SaveAs "c:\temp.doc"  '保存到指定位置（c:\temp.doc）
        word.Close
        doc.Quit
    End If
    
    Set doc = Nothing
Exit Sub

Answer 5

引用Word(工程/引用/Microsoft Wors X.0 Object Library)Private Sub Command1_Click()
    Dim doc As Object
    Dim word As word.Document
    
    On Error Resume Next
    If Tasks.Exists("Microsoft Word") Then
        Set doc = GetObject(, "Word.Application")
    End If
    If Err.Number = 429 Then
        Set doc = CreateObject("Word.Application")
        Set word = doc.Documents.Open("指定的Word路径及文件名")
    Else
        Set word = doc.Documents(1)
        word.SaveAs "c:\temp.doc"  '保存到指定位置（c:\temp.doc）
        word.Close
        doc.Quit
    End If    
    Set doc = Nothing
Exit Sub