Aller au contenu
patricia

Protection contre la modification

Messages recommandés

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

Partager ce message


Lien à poster
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant

×