Application.ActiveDocument (Word)

Renvoie un objet Document qui représente le document actif (sélectionné).

If Application.Documents.Count >= 1 Then 
    MsgBox ActiveDocument.Name 
Else 
    MsgBox "No documents are open" 
End If