我利用下面代码可以关闭Opera浏览器进程，有些进程怎么关闭不了？？我想关闭WINWORD进程，请教还有什么方法？？？？
    winHwnd = FindWindow(vbNullString, "Opera") '找到窗口Opera浏览器
    Debug.Print winHwnd

    If winHwnd <> 0 Then
    RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) '关闭窗口

你这个方法是 发 关闭消息 给程序，然后程序再自己关闭
-------------------
1、使用 API 函数结束进程。自己百度

-------------------
2、使用 taskkill 命令结束进程

shell "taskkill /F /IM " & 进程名

如 Opera 浏览器 进程
shell "taskkill /F /IM " & "Opera.exe"

winword
shell "taskkill /F /IM " & "winword.exe"

3Q,我试试！！

你好！！你提供的方法可以实现！非常感谢。我想实现：如有发现某个其他word文档已经打开，将其进程关闭，只打开我指定word文档进行相关操作。
另外又出现新的问题：利用taskkill 关闭winword.exe后，删除word母版文件后，在“11中 Set doc1 = Documents.Open(outfilepath)这句”出现“远程服务器不存在，462”错误，哪里出问题了呢？能否一看？？先谢谢！！
下面是代码：
Dim wordobj As Word.Application
Dim txfilepath As String
Dim outfilepath As String
Dim outputname As String
Dim L As Long
Dim H As Long
Dim H1 As Long
Private Sub Command1_Click()

11
    Set wordobj = New Word.Application

    txfilepath = "E:\图形Word\5f\m1.docx"
    outfilepath = "E:\图形Word\ff\m15.docx"
    FileCopy txfilepath, outfilepath
    L = Text1.Text
    H = Text2.Text
    H1 = Text4.Text
    outputname = "E:\程序开发\图形Word\ff\图.pdf"
    Set doc1 = Documents.Open(outfilepath)
    doc1.Activate
    If Documents.Count < 1 Then
        MsgBox "无文件打开"
    End If
    wordobj.Visible = False
    On Error GoTo ErrHandler
ErrHandler:
   If Err <> 0 Then
      Err.Clear
'##############当发现已经打开了某个其他word文档后修改文本框会报错，需要删除word母版文件###############
    If Dir("C:\Users\knight\AppData\Roaming\Microsoft\Templates\Normal.dot", vbDirectory) <> "" Then
        MsgBox "文件存在"
        Kill "C:\Users\knight\AppData\Roaming\Microsoft\Templates\Normal.dot"
    Else
        MsgBox "文件不存在"
    End If
'
    If Dir("C:\Users\knight\AppData\Roaming\Microsoft\Templates\Normal.dotm", vbDirectory) <> "" Then
      MsgBox "文件存在"
      Shell "taskkill /F /IM " & "winword.exe"
      Kill "C:\Users\knight\AppData\Roaming\Microsoft\Templates\Normal.dotm"
      GoTo 11
    Else
        MsgBox "文件不存在"
       GoTo 11
    End If
   End If
'########################################################
'##################打开指定word文档对指定文本框进行修改#############
    wordobj.ActiveDocument.Shapes("Text Box 22").Select
    wordobj.Selection.ShapeRange.TextFrame.TextRange.Select
    wordobj.Selection.Collapse
    wordobj.Selection.MoveRight Unit:=wdCharacter, Count:=15
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeText Text:=H1
    wordobj.Selection.ShapeRange.TextFrame.TextRange.Select
    wordobj.Selection.Collapse
    wordobj.Selection.ShapeRange.Select
    wordobj.Selection.Collapse
    wordobj.Selection.EscapeKey
    wordobj.Selection.EscapeKey
''''''
    wordobj.ActiveDocument.Shapes("Text Box 24").Select
    wordobj.Selection.ShapeRange.TextFrame.TextRange.Select
    wordobj.Selection.Collapse
    wordobj.Selection.MoveRight Unit:=wdCharacter, Count:=15
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeText Text:=H
    wordobj.Selection.ShapeRange.TextFrame.TextRange.Select
    wordobj.Selection.Collapse
    wordobj.Selection.ShapeRange.Select
    wordobj.Selection.Collapse
    wordobj.Selection.EscapeKey
    wordobj.Selection.EscapeKey
''''''
    wordobj.ActiveDocument.Shapes("Text Box 23").Select
    wordobj.Selection.ShapeRange.TextFrame.TextRange.Select
    wordobj.Selection.Collapse
    wordobj.Selection.MoveRight Unit:=wdCharacter, Count:=15
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeBackspace
    wordobj.Selection.TypeText Text:=L
    wordobj.Selection.ShapeRange.TextFrame.TextRange.Select
    wordobj.Selection.Collapse
    wordobj.Selection.ShapeRange.Select
    wordobj.Selection.Collapse
    wordobj.Selection.EscapeKey
    wordobj.Selection.EscapeKey

'#################另存为PDF格式###############
    wordobj.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        outputname, ExportFormat:=wdExportFormatPDF, _
        OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
        wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
        IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
        wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
        True, UseISO19005_1:=False
    wordobj.ActiveWindow.Close
    wordobj.Application.Quit
    Set wordobj = Nothing
'    MsgBox "打印完成"
End Sub

Set doc1 = Documents.Open(outfilepath)

这个 Documents 是什么对象？

是 wordobj  引出的对象吗？没看到你代码里的关联。
    Set wordobj = New Word.Application


如果在执行程序时，如执行完上面这句后，你去结束了 word 进程，然后再执行 与  word 有关的操作时，就会报错误。

是wordobj对象，打开outfilepath = "E:\图形Word\ff\m15.docx"这个word文档。
那么怎么办才能解决关闭word进程后，再次打开word文档不报错呢？
或者提供某种方法，已存在打开的word文档也没关系，不用关闭进程，自动识别你要打开的word文档，然后进行编辑“文本框”文字的操作？？请教了！！！我做了一周了，一直没能实现。

你关闭了 winword 进程后，然后再重新打开   这个对象吗？
是wordobj对象，打开outfilepath = "E:\图形Word\ff\m15.docx"这个word文档。

或者说，你为什么要 在程序执行的 过程中要强行来结束一次 winword 对象？

你完全可以 整个程序执行过程中，只创建一个 winword 对象，然后使用不同的
Document 对象来区分各个 文档。 Document 对象是允许存在多个的。
Document 对象用完了，关闭就是了。不要去强行结束 winword 进程。再说，WINword 也能关闭的。都应该有对象的关闭命令。