Question

VBA问题，判断打开的word文档中是否有指定文件名的word

在我打开了n个word文档的情况下用vba调用打开窗口打开新word文档，如何判断我要打开的文档是否已在打开的文档之中了

Answer 1

1 遍历已经打开的word对象的文件名，如果跟你要打开的一致，那就是已经打开了。
2 打开新文件，监控打开新文件时word的提示，如果有文件已打开的提示，那也是已经打开了。

追问

能给出遍历的代码嘛？ 至于第二个，因为vba调用打开对话框打开时他不会提示已打开，直接就卡死状态了！

追答

sorry，好久没做这个了。代码不太熟。

For i = 1 To Windows.Count
Windows(i).Activate
MsgBox Windows(i).Caption

Next

追问

这代码也会遍历其他程序 文件吧？如何只遍历word文件？

追答

VBA中输入空格或.或者某个关键词之后，都会有提示的。
你可以用类似msgbox让系统把某些东西用对话框的方式表现出来给你，
看到以后，你就知道是什么结果了。
MsgBox (Windows.Parent)'显示的结果是Microsoft Word，表示当前窗口的母体是word程序。那么你觉的下面的还会遍历别的程序的文档窗口吗？

For i = 1 To Windows.Count
MsgBox Windows(i).Caption
Next

End Sub

追问

哦 错了，我代码是在excel中的。。。。。怎么样做才能遍历word的？求教呀大神