Application.ActiveDocument (Word)

Returns a Document object that represents the active document (the document with the focus). If there are no documents open, an error occurs.

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