jis.augustin, you are responding to a question that is 7 years old.
The command you are looking for I believe is:
dim oDoc as DrawingDocument
Set oDoc = ThisApplication.ActiveDocument 'provided your active document is an .idw
Access a broad range of knowledge to help get the most out of your products and services.