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(

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