Application.ActiveDocument (Word)

Gibt ein Document -Objekt zurück, das das aktive Dokument (das Dokument mit dem Fokus) darstellt.

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