ENREGISTRER ET NOMMER AVEC MOT DU TEXTE WORD
BOBYNETTE26
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
m@rina Messages postés 23902 Date d'inscription Statut Contributeur Dernière intervention -
m@rina Messages postés 23902 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- ENREGISTRER ET NOMMER AVEC MOT DU TEXTE WORD
- Word 2013 - Télécharger - Traitement de texte
- Word et excel gratuit - Guide
- Audacity enregistrer son pc - Guide
- Transcription audio en texte word gratuit - Guide
- Tableau word - Guide
1 réponse
Bonsoir
Regarde ici :
https://faqword.com/index.php/word-faq/vba-solutions/552-comment-couper-un-gros-fichier-en-autant-de-petits-fichiers-quil-y-a-de-sauts-de-section-.html
et là :
https://faqword.com/index.php/word-faq/vba-solutions/736-comment-utiliser-un-mot-du-document-pour-nommer-un-fichier-.html
m@rina
Regarde ici :
https://faqword.com/index.php/word-faq/vba-solutions/552-comment-couper-un-gros-fichier-en-autant-de-petits-fichiers-quil-y-a-de-sauts-de-section-.html
et là :
https://faqword.com/index.php/word-faq/vba-solutions/736-comment-utiliser-un-mot-du-document-pour-nommer-un-fichier-.html
m@rina
J'ai enregistré tous mes courriers en les nommant de 1 à 250. Est-il possible d'ajouter à mes numéros cette macro?
Sub nom()
Dim nom
nom = ActiveDocument.Paragraphs(12).Range.Words(5)
ActiveDocument.SaveAs FileName:= "c:\" & nom & ".doc
End Sub
Merci d'avance
m@rina