Set wordApp=getObject(,"word.Application")wordApp.Visible=trueDim odocFor each odoc in wordApp.Documents msgbox "Name:"& odoc.Name & ",path:"& odoc.path
Next