Pour connaître le chemin complet avec le nom du document, ce n'est pas compliqué, il suffit d'utiliser la propriété FullName :

ActiveDocument.FullName

Pour connaître le chemin complet sans le nom du document, il suffit d'utiliser la propriété Path :

ActiveDocument.Path

Mais pour récupérer juste le nom du dossier dans lequel se trouve le document, cest un petit peu plus compliqué. On va donc partir du chemin Path, et on va extraire le dossier :

Sub nom_dossier()
Dim chemin As String, dossier As Variant
If ActiveDocument.path = vbNullString Then
MsgBox "Commencez par enregistrer votre document."
Exit Sub
End If
chemin = ActiveDocument.Path
dossier = Split(chemin, Application.PathSeparator)
dossier = dossier(UBound(dossier))
End Sub

 

Pour insérer par exemple le nom de ce dossier dans le document au point d'insertion, ajoutez cette ligne :

Selection.TypeText dossier