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

黄海 · 发表于 2003-6-16 16:28

如题

黄海 · 发表于 2003-6-18 09:48

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 · 发表于 2003-6-18 10:14

精彩！

wyoo · 发表于 2003-6-20 21:27

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

		自动登录	找回密码
密码			免费注册