vba关闭word文件,确保退出进程
━━━━━━━━━━━━━━━━━━━━━━━━━
   
如果打开Word或者使用VBA来隐藏打开WORD，那么，会在任务管理器中有WORD的进程，如果你继续运行VBA代码的话，会提示副本只读甚至是错误。
这个时候，我们有必要及时关闭该进程。

如下代码为及时关闭的代码。

on Error GoTo ERROR1

Set wApp = CreateObject("word.application")
With wApp
    .documents.Open "c:\" & "文档名称.doc"
    .activedocument.PrintOut
    .Quit
End With
Set wApp = Nothing

ERROR1:
wApp.Application.Quit

注意哦，上面的代码很关键，就是这一句了。wApp.Application.Quit。