user_mobilelogo

Avec une macro !

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

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
'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
'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'hui3263
Total depuis 200411545986

24
visiteurs actuellement en ligne

19 novembre 2019