Skriptidee für 2 Wasserzeichen

PDFCreator PDFCreator German
1

Hallo Entwicklerteam,

das Einfügen eines Wasserzeichens auf allen Seiten einer mit PDFCreator erzeugten PDF Datei mittels des Skripts AddWatermarkToPDF.vbs funktioniert ja bereits.

Wenn die erste Seite einer PDF Datei aber ein abweichendes Wasserzeichen bekommen soll verwende ich nach Erzeugen der Datei folgende Batchdatei:

pdftk A=letter.pdf cat A1 output firstpage.pdf
pdftk A=letter.pdf cat A2-end output otherpages.pdf
pdftk firstpage.pdf background watermark1.pdf output firstwithwatermark.pdf
pdftk otherpages.pdf background watermark2.pdf output otherwithwatermark.pdf
pdftk A=firstwithwatermark.pdf B=otherwithwatermark.pdf cat A B output letterwithwatermark.pdf
del firstpage.pdf
del otherpages.pdf
del firstwithwatermark.pdf
del otherwithwatermark.pdf

Wäre es eventuell möglich diese Batchdatei als VB Skript analog zu AddWatermarkToPDF.vbs in der neuen PDFCreator Version hinzuzufügen ?

Grüße

2

 

``` Moin, bin leider mit dem Skript nicht zurechtgekommen. Bei mir sieht das Wasserzeichenscript für gleiche Folgeseiten so aus:
```
```
' AddWatermarkToPDF script
' Part of PDFCreator
' License: GPL
' Homepage: http://www.sf.net/projects/pdfcreator
' Version: 1.1.0.0
' Date: September, 1. 2005
' Author: Frank Heindörfer
' Comments: This script needs pdftk.
'           For more informations about the freeware pdftk use this link:
'           http://www.accesspdf.com

Option Explicit

Const AppTitle = "PDFCreator - AddWatermarkToPDF"
Const PathToPdftk = "c:\\pdftk-1.12\\pdftk.exe"
Const WatermarkPDF = "Briefpapier-Welthanse1.PDF"

Dim objArgs, fname, tfname, fso, WshShell, oExec

Set objArgs = WScript.Arguments

If objArgs.Count = 0 Then
 MsgBox "This script needs a parameter!", vbExclamation, AppTitle
 WScript.Quit
End If

fname = objArgs(0)

Set fso = CreateObject("Scripting.FileSystemObject")

If Ucase(fso.GetExtensionName(fname)) <> "PDF" Then
 MsgBox "This script works only with pdf files!", vbExclamation, AppTitle
 WScript.Quit
End If

If Not fso.FileExists(PathToPdftk) Then
 MsgBox "You need pdftk for this script!" & vbcrlf & vbcrlf & _
  "Please go to http://www.accesspdf.com and download it.", vbExclamation, AppTitle
 WScript.Quit
End If

If Not fso.FileExists(WatermarkPDF) Then
 MsgBox "Can't find the watermark pdf file!", vbExclamation, AppTitle
 WScript.Quit
End If

Set WshShell = CreateObject("WScript.Shell")

tfname = fso.GetTempName
WshShell.Run PathToPdftk & " """ & fname & """ background " & WatermarkPDF & " output """ & tfname & """",0,true

If Not fso.FileExists(tfname) Then
 MsgBox "There was an error using ""pdftk""!", vbCritical, AppTitle
 WScript.Quit
End If

If fso.FileExists(fname) Then
 fso.DeleteFile(fname)
End If

fso.MoveFile tfname, fname ```
``` wie genau müßte das in dem von Ihnen vorgeschlagenen Fall aussehen, wenn die zweite und weitere Folgeseiten die Datei "Briefpapier-Welthanse2.PDF" wäre? Habe ein wenig herumexperimentiert, bin leider nicht zu einem Ergebnis gekommen Viele Dank im Voraus! Sven Fischer
 ```