Enregistrement individuel après publipostage

joanie1234 Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
joanie1234 - 15 nov. 2017 à 20:23

J'ai un formulaire de 2 pages auquel j'ai fait un publipostage.

J'aimerais l'enregistrer en Word de façon individuel, mais j'ai vraiment un problème avec le code (et je suis plus ou moins doué dans ce domaine)
1- La mise en page ne suit pas
2- Comment enregistrer le document avec un mot présent dans le doc en question ?

Sub BreakOnPage()
Application.Browser.Target = wdBrowsePage
For i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")

ActiveDocument.Bookmarks("\page").Range.Copy
Documents.Add
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Selection.PageSetup.Orientation = wdOrientLandscape

Selection.TypeBackspace
ChangeFileOpenDirectory "P:\ÉVÉNEMENTS SIGNATURES\2. Mois de la jonquille\Jonquilles 2018\4. Points de vente\Formulaire\Nouveau dossier\"
DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:="Formulaire jonquille_" & DocNum & ".docx"
ActiveDocument.Close

Application.Browser.Next
Next i
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub

Merci tellement! :)

A voir également:

Enregistrer un publipostage en word en séparant chaque feuille
Publipostage word créer plusieurs documents - Meilleures réponses
Publipostage enregistrement individuel word - Meilleures réponses
Word 2013 - Télécharger - Traitement de texte
Publipostage mail - Accueil - Word
Audacity enregistrer son pc - Guide
Comment supprimer une feuille sur word - Guide
Enregistrer en pdf - Guide

4 réponses

Réponse 1 / 4

m@rina Messages postés 22690 Date d'inscription Statut Contributeur Dernière intervention 11 434

Bonjour,

C'est normal que la mise en forme (et la mise en page) ne suit pas car la macro crée un nouveau document basique, et donc basé sur le Normal.dotm.

Donc, il faut indiquer le modèle que tu veux utiliser.

A la ligne Documents.Add, tu dois préciser le nom du modèle. Et puisque tu pars d'un document déjà fait et donc basé sur un modèle, tu peux récupérer le nom de ce modèle et l'utiliser pour créer chaque nouveau document.

A mettre en début de macro :

Dim mon_modele As String
mon_modele = ActiveDocument.AttachedTemplate.FullName

et à remplacer dans la boucle :

Documents.Add Template:=mon_modele

m@rina

Réponse 3 / 4

m@rina Messages postés 22690 Date d'inscription Statut Contributeur Dernière intervention 11 434

Bonsoir,

"Le document comporte 4 fichiers"... je n'ai pas bien saisi.
Tu veux sans doute dire que chaque "formulaire" issu du publipostage est contenu sur deux pages.

Ce qui compte, ce ne sont pas les pages, mais les sections. Chaque document résultat de publipostage est composé de sections, et donc ce peut être des sections d'une page s'il s''agit d'une simple lettre mais ce peut être aussi des sections d'un nombre x de pages. Or ta macro est basé sur les pages et non sur les sections.

J'ai ici deux macros qui font ça. La seconde est le pendant de la tienne, fournie par Microsoft, mais pour les sections :
https://faqword.com/index.php/word/environnement/552-comment-couper-un-gros-fichier-en-autant-de-petits-fichiers-quil-y-a-de-sauts-de-section

m@rina

Discussions similaires

Plusieurs fichiers Word suite publipostage + Renommer chaque doc

Publipostage word : créer plusieurs documents distincts

Publipostage : mettre dans des fichiers séparés

Enregistrer un publipostage en pdf en séparant chaque feuille

Mon imprimante n'imprime qu'une partie du document

imprimer 4 fois le même ducument sur une page

Votre réponse

Discussions similaires