Application.ActiveDocument (Word)

Devuelve un objeto Document que representa el documento activo (el documento con el enfoque).

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