patricia Posté(e) 20 juin 2018 Signaler Share Posté(e) 20 juin 2018 Bonjour aux développeurs, J'ai une demande concernant ma macro pour le découpage des pdf qui est très utilisée par les entreprises et associations. On me demande s'il serait possible que ces pdf une fois découpés ne soient que imprimables et non modifiables Savez vous comment le notifier ? Est-ce simplement possible ? Voici la macro ------------ 'Découpage Publipostage en PDF Sub Decoupe_PDF() ' Désactiver le rafraichissement d'écran pour accélérer la procédure Application.ScreenUpdating = False ' Déclaration des variables Dim iR As Integer Dim i As Integer Dim oDoc As Document Dim DocName As String Dim oDS As MailMergeDataSource ' Affectation des objets Set oDoc = ActiveDocument Set oDS = oDoc.MailMerge.DataSource iR = oDoc.MailMerge.DataSource.RecordCount Debug.Print iR For i = 1 To iR With oDoc.MailMerge 'Définition du premier et dernier enregistrement .DataSource.FirstRecord = i .DataSource.LastRecord = i ' Envoi des données dans un nouveau document .Destination = wdSendToNewDocument ' Exécution du publipostage .Execute ' Actualisation de l'enregistrement pour la sauvegarde .DataSource.ActiveRecord = i '-------------------------Indiquer ci-dessous dans les parenthèses le n° du champ (de concaténation) pour nommer le document----------------------- DocName = .DataSource.DataFields(1).Value Debug.Print DocName; i End With '-------------------------Sauvegarde du document publiposté : Précisez le chemin de votre dossier ou seront enregistrées les pièces jointes en pdf------------- With ActiveDocument .ExportAsFixedFormat OutputFileName:= _ "C:\Users\Patricia\Desktop\PJ\" & DocName & ".pdf", ExportFormat:=wdExportFormatPDF, _ OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _ wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _ IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _ wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _ True, UseISO19005_1:=False .Close SaveChanges:=wdDoNotSaveChanges End With Next i End Sub -------------------------------------------------- Y a t-il une possibilité de le rajouter dans With ActiveDocument juste au dessus de cette question donc à la fin de la macro ? Merci si vous avez la réponse. Cordialement Patricia Lien vers le commentaire Partager sur d’autres sites More sharing options...
Messages recommandés