Sub WDTest()
Dim WD As Object
Set WD = GetObject(, "Word.Application")
MsgBox WD.ActiveDocument.Path
Set WD = Nothing
End Sub

--
Regards,
Tom Ogilvy


"RAFAAJ2000" wrote in message
...
Hi there,

How can I get from XL the path of an open Document in Word without using
Automation ? (Maybe through APIs)

Regards.