Avec cette petite macro à installer sur la barre d'outils ou sur le ruban :

Public Sub enregistre()
Dim MaVariable As String, MonSignet As String
MonSignet = "MonSignet"
If ActiveDocument.Bookmarks.Exists(MonSignet) Then
MaVariable = ActiveDocument.Bookmarks(MonSignet).Range.Text
End If
ActiveDocument.SaveAs FileName:=MaVariable
End Sub

On pourra ajouter un test au cas où le fichier existe. Et si le test est positif, ajouter le numéro 1 et à partir de 1, s'il existe, ajouter une variable numérique + 1.