ENREGISTRER ET NOMMER AVEC MOT DU TEXTE WORD

Bonjour,

J'ai fais un publipostage avec 250 courriers. J'ai trouvé cette macro pour que chaque courrier soit créé dans un fichier word distinct:
__________________________________________

Sub MaMacroFusion()
Dim i As Single

For i = 1 To ActiveDocument.MailMerge _
.DataSource.RecordCount
With ActiveDocument.MailMerge
.DataSource.FirstRecord = i
.DataSource.LastRecord = i
.Destination = wdSendToNewDocument
.Execute
End With
ThisDocument.Activate

Next i

End Sub
_______________________________

Auriez vous une solution pour que mes lettres s'enregistrent "automatiquement" et qu'elles soient nommées de 1 à 250 ou mieux que le nom du destinataire de la lettre compose le nom du document?

Merci d'avance pour votre aide précieuse.



/ word 2002