作者：乔山办公网日期：
返回目录：word文档
Application.ScreenUpdating = False 关闭屏幕更新，程序开始时候用
Application.ScreenUpdating = True 打开屏幕更新，结束时候用
dim DocP$
DocP$="C\~$Doc1.docx"
If Dir(DocP, vbHidden) = "" Then
MsgBox "未打开度回"
Else
MsgBox "已打开"
End If
路径自己修改答
1 遍历已经打开的word对象的文件名，如果跟你要打开的一致，那就是已经打开了。2 打开新文件，监控打开新文件时word的提示，如果有文件已打开的提示，那也是已经打开了。
假如WORD文档放在百D盘里，名为ABC.docx。下面代码能打开并度关专闭。
With CreateObject("word.application")
.Visible = True
.documents.Open "D:\ABC.docx"
MsgBox "Word文档已打开，点击“确定”后将关属闭"
.Quit
End With