Discussion :

[acbdev]

Bonjour,

J'ai un projet asp qui parcours tous les sous-dossiers et dossiers et qui modifie chaque document selon son type.
Je souhaite modifier un pdf en ajoutant un filigrane basé sur une petite image qui contient un texte 'texte imposé par la loi'.
Manuellement, j'ai créé une action personnalisée avec Acrobat Pro version X.
Je cherche à lancer cette action pour chaque pdf trouvé puis enregistrer mon pdf.

Quelqu'un a-t-il une idée ?
Je code en VB mais des exemples en C# sont aussi les bienvenus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Imports Acrobat
Private Sub MarquagePDF()
        Dim pdfApp As New AcroPDDoc
        'Dim toto As AcroAVDoc
        'Dim titi As AcroAXDoc
        Dim sDoc As String
        sDoc = "C:\testsPdf\toto.pdf"
        pdfApp.Open(sDoc)
        ' je sèche...      
End Sub

[kiki29]

Salut, j'ai cela, c'est du VBA pour PDFCreator
Sinon il faut passer par du JavaScript et qqch comme ceci ou cela via par exemple addWatermarkFromFile

[kiki29]

re, J'avais oublié ceci qui permet via Acrobat d'ajouter un arrière plan pdf à un fichier pdf.

[kiki29]

Salut, pour Conversion Image Tif Bmp Gif Jpg en PDF via Acrobat

[acbdev]

Merci beaucoup Kiki29 pour tes réponses, voici mon code qui fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Imports Acrobat
Private Sub MarquagePDF()
        Dim pdfApp As New AcroPDDoc
        'Dim toto As AcroAVDoc
        'Dim titi As AcroAXDoc
        Dim sDoc As String
        sDoc = "C:\testsPdf\toto.pdf"
        pdfApp.Open(sDoc)
        Dim oJs As Object
        oJs = pdfApp.GetJSObject
        oJs.addWatermarkFromFile("/C/testsPdf/MonImage.pdf", 0, 0, 0, True, True, True, 2, 4, -10, 0, False, 1, False, 0, 1)
        pdfApp.Save(1, sDoc)
        pdfApp.Close()
        oJs = Nothing
End Sub

[kiki29]

Re, pour info, je viens d'ajouter Ajout d'un filigrane ( watermark ) à partir d'un texte dans mon salmigondis .....