如何判断已有的WORD文件已打开

黄海

如题

黄海

Public Function checkDocFileOpenAndClose(ByVal strDocFileName As String) On Error Resume Next Dim docAPP As Object Dim doc As Object Set docAPP = GetObject(, "Word.Application") If Err.Number <> 0 Then Exit Function For Each doc In docAPP.documents 'If InStr(1, doc.Name, strdocFileName, 1) Then If doc.Name = strDocFileName Then doc.Close '关闭文档 ' MyXL.Quit '退出excel Exit For End If Next doc Set doc = Nothing Set docAPP = Nothing End Function

Kevin

精彩！

wyoo

用API Wordhwnd = FindWindow("OpusApp", vbNullString) 当wordhwnd 不为0时代表word打开啦.