遍历打开了的word路径

Set wordApp=getObject(,"word.Application")
wordApp.Visible=true
Dim odoc
For each odoc in wordApp.Documents
 msgbox "Name:"& odoc.Name & ",path:"& odoc.path

Next