user_mobilelogo

Avec une macro !

Qui sera utile en particulier pour un résultat de publipostage constitué d'autant de sections que d'enregistrements.

Notez que vous pouvez également faire le publipostage directement vers des fichiers PDF. Cela étant, ce ne sera pas possible avec un publipostage qui comporte des images, ces dernières étant dans un champ INCLUDEPICTURE ont besoin d'être mises à jour.

La macro suivante créera des documents nommés "mondoc" avec un numéroté incrémenté : mondoc1.mdf, mondoc2.pdf, etc.

Sub VersPDF()
'macro écrite par m@rina
'export vers autant de pdf qu'il y a de sections
Application.ScreenUpdating = False
Dim nfichier As String
nfichier = "mondoc" 'mettre ici le nom pour les documents qui seront incrémentés d'un numéro
For x = 1 To ActiveDocument.Sections.Count
ActiveDocument.Sections(x).Range.Select
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
'enregistre dans le dossier en cours
ActiveDocument.ExportAsFixedFormat outputFileName:=ActiveDocument.Path & "/" & nfichier & x, _
exportFormat:=wdExportFormatPDF, Range:=wdExportSelection
Next
Application.ScreenUpdating = True

End Sub
 

Si vous souhaitez créer des documents PDF dont le nom soit repris du document, il faut, bien entendu, que le mot en question soit toujours au même emplacement dans chaque section. Voyez ici comment procéder.

Dans l'exemple ci-dessous, la macro prend le deuxième mot de chaque section pour nommer le document. A vous de compter !

Sub VersPDF2()
'macro écrite par m@rina
'export vers autant de pdf qu'il y a de sections
Application.ScreenUpdating = False
Dim nom As String
For x = 1 To ActiveDocument.Sections.Count
ActiveDocument.Sections(x).Range.Select
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
'enregistre dans le dossier en cours
ActiveDocument.ExportAsFixedFormat outputFileName:=ActiveDocument.Path & "/" & nfichier & x, _
exportFormat:=wdExportFormatPDF, Range:=wdExportSelection
Next
Application.ScreenUpdating = True

End Sub
 

Statistiques

Aujourd'hui517
Hier2265
Cette semaine13280
Ce mois7904
Total depuis 200411660631

11
visiteurs actuellement en ligne

4 juillet 2020