Application.ActiveDocument (Word)

Retorna um objeto Document que representa o documento ativo o documento com o foco. Se não houver documento aberto, ocorrerá um erro. Somente leitura.

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