Avec une macro.
En réalité, on va surcharger la commande Enregistrer sous... pour qu'elle n'accepte que des noms de fichiers de moins de 50 caractères par exemple.
Exemple simpliste à personnaliser et à mettre dans les macros du normal.dotm :
>Public Sub FichierEnregistrerSous()
'macro écrite par anacoluthe
With Dialogs(wdDialogFileSaveAs)
Do
.Display
If Len(.Name) < 50 Then Exit Do
MsgBox "votre nom de fichier est trop long !"
Loop
.Execute
End With
End Sub