Sub Test_WatermarkPDF2()
Dim base As String
Dim Watermark As String
Dim merged_PDF As String
Watermark = "\\ERPA-SERVER\ERPA-Updates\ERPA-Standards\hintergrund_AiVpack.pdf"
merged_PDF = "\\ERPA-SERVER\ERPA-Updates\ERPA-Standards\display2.pdf"
ApplyBackgroundToPDF merged_PDF, Watermark
End Sub
Private Function ApplyBackgroundToPDF(BasePDF As String, BackgroundPDF As String)
Dim pdDoc As Acrobat.CAcroPDDoc
Dim pdTemplate As Acrobat.CAcroPDDoc
Dim template As Variant
Dim lngPage As Long
Set pdDoc = CreateObject("AcroExch.PDDoc")
pdDoc.Open BasePDF
DoEvents
Set pdTemplate = CreateObject("AcroExch.PDDoc")
pdTemplate.Open BackgroundPDF
DoEvents
pdDoc.InsertPages pdDoc.GetNumPages - 1, pdTemplate, 0, 1, 0
Set template = pdDoc.GetJSObject.CreateTemplate("background", pdDoc.GetNumPages - 1)
For lngPage = 0 To pdDoc.GetNumPages - 2
template.Spawn lngPage, True, True
Next
pdDoc.DeletePages pdDoc.GetNumPages - 1, pdDoc.GetNumPages - 1
pdDoc.Save 1, BasePDF
pdDoc.Close
Set pdDoc = Nothing
pdTemplate.Close
Set pdTemplate = Nothing
End Function