请教，使用Excel2003的VBA，如何判断有Word文档打开？
展开全部
在EXCEL窗体，CommandButton1中输入代码：
Private Sub CommandButton1_Click()
Dim wordapp As New Word.Application
Dim worddoc 并雀As New Word.Document
Set wordapp = CreateObject("Word.Application")
wordapp.Visible = True
Set worddoc = wordapp.Documents.Open(ThisWorkbook.Path & "\123.docx")
MsgBox "文件敬手已绝稿早打开，名字为：" & worddoc
End Sub
如果打开会提示“文件已打开，名字为123.doc”
操作前把这个引用起：
有测试附件，你可以试一下；
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
