Une macro peut faire gagner beaucoup de temps dans ce domaine. Pour saisir la macro, maintenez enfoncée la touche Alt et tapez sur la fonction F11. Saisissez le code ci-dessous:

SubSaveTex()
Dim Doc As String
Dim Period As Integer

Doc = ActiveDocument.Name
Period = InStr(Doc, ".")
NewDoc = Left$(Doc,Period) + "txt"
ActiveDocument.SaveAs FileName:=NewDoc
MsgBox("Votre nouveau fichier est "+NewDoc)

End Sub

Maintenez enfoncée la touche Ctrl et tapez sur S pour enregistrer la nouvelle macro. Puis maintenez enfoncée la touche Alt et tapez sur la touche Q pour revenir dans Word.

Pour ajouter la macro à une barre d'outils :

• Cliquez sur Affichage.
• Puis sur Barres d'outils.
• Cliquez sur Personnaliser.
• Dès l'apparition de la boîte à onglets Personnaliser, choisissez Commandes.
• Dans la colonne de gauche nommée Catégories, cliquez sur Macros.

Votre nouvelle macro apparaît dans la colonne de droite. Servez-vous de la souris pour glisser-déposer votre création dans la barre d'outils.

• Lorsque vous relâchez la souris pour placer le bouton, dans la boîte à onglets Personnaliser, cliquez sur Modifier la sélection.
• Dans la zone Nom tapez un nom pour votre bouton, TXT par exemple.
• Cliquez sur Fermer pour faire disparaître la boîte à onglets Personnaliser.

Il vous suffit désormais de cliquer sur votre bouton TXT pour enregistrer le document courant sous forme de fichier au format .TXT