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
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