Set wordApp=getObject(,"word.Application")wordApp.Visible=trueDim odocFor each odoc in wordApp.Documents msgbox "Name:"& odoc.Name & ",path:"& odoc.path
Next
遍历打开了的word路径,布布扣,bubuko.com
遍历打开了的word路径
原文：http://www.cnblogs.com/tongcy/p/3594219.html
