user_mobilelogo

Word 365: Vous saurez tout !

Pour tout connaître sur Word
Nouvelle version !

 

En promotion tout le mois d'octobre 2020
600 pages !

4,90 € (au lieu de 9,80€)

 

En savoir plus.

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'hui85
Hier3302
Cette semaine3387
Ce mois71043
Total depuis 200412503323

5
visiteurs actuellement en ligne

27 octobre 2020