QTP获得当前WORD对象的问题，高手请进

zjuan2002

如何通过qtp获得当前已运行的word文件的名称，并运行该文件中所包含的宏。

已想到一种方式：
Set oword=getobject("D:\Doc1.doc")
  msgbox  oword.name
这样需要指定某一个文件以及详细路径，很不方便，能不能像wordbasic那样直接获得word对象，然后通过document集合来documents(1)或者documents(2)来获得某一个文档的名称？

请高手来帮下忙，谢谢了！

zjuan2002

to：版主
能不能写个例子上来了，谢谢

to：dreamever
谢谢，你这种方法可行

dreamever

不知道你说的wordbasic是什么，百度了一下搜出来的东西好象跟操作word也没什么关系。
VBS可以直接使用documents集合才操作对象，也可以获取当前所有已打开的文档的名称，代码可以写成类似以下形式：
Set myDocs = GetObject(,"Word.Application")
Set myDoc = myDocs.Documents
MsgBox myDoc.Item(0).name
在运行之前，你可以在任意目录创建N个word文档，并双击打开，然后运行该脚本，你可以看到会输出第一个打开的word文档的目录；
如果再加上一行代码：
msgbox myDoc.count
运行后会输出当前所有已打开的word的数量。通过以上方法，你也可以对第index个文档执行修改、保存、关闭等操作。只要调用word对象模型的相关方法即可

风过无息

自己写类来实现吧,嘿嘿.