L’une des propriétés que Word vous permet d’enregistrer avec un document est un titre pour le document. Si vous utilisez cette propriété régulièrement avec vos nouveaux documents, vous pouvez créer un moyen pour Word de nommer automatiquement votre document en regardant le titre que vous avez fourni.

Cette macro particulière est bien adaptée pour une utilisation avec des lettres, bien qu’elle puisse être facilement modifiée pour d’autres types de documents. La macro est nommée FileSaveAs, elle remplace donc la commande Enregistrer sous intégrée. Le meilleur endroit pour enregistrer cette macro est dans le modèle que vous utilisez pour vos lettres:

Sub FileSaveAs()

Dim MyDocTitle As String     MyDocTitle = Format(Date, "yymmdd") + " letter"



Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     With Selection.Find         .Text = "^pDear "

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute

If Selection.Find.Found Then         Selection.MoveRight Unit:=wdCharacter, Count:=1         Selection.EndKey Unit:=wdLine, Extend:=wdExtend         Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend         If Len(Selection.Text) > 1 Then             MyDocTitle = MyDocTitle + " to " + Selection.Text         End If     End If

With Dialogs(wdDialogFileSummaryInfo)

.Title = MyDocTitle         .Execute     End With

Dialogs(wdDialogFileSaveAs).Show End Sub

Notez que cette macro ne fonctionne correctement que lorsque vous enregistrez un nouveau document pour la première fois. Si vous l’utilisez avec un document existant (précédemment enregistré sous un autre nom), le nom d’origine est toujours suggéré par défaut dans la boîte de dialogue Enregistrer sous, même si le titre du document est modifié.

La macro peut être affectée au lien: / wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [Quick Access Toolbar] `ou à une touche de raccourci pour que vous puissiez enregistrer vos documents et les nommer automatiquement.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (10358) s’applique à Microsoft Word 2007, 2010, 2013 et 2016. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu de Word ici: link: / word-An_Automatic_File_Name [Un nom de fichier automatique].