Zusammenf�gen von PDF-Dateien �ber Kontextbefehl 'Senden an'

FreePDF_Multidoc � Sonstiges � VB-Programmbeispiele � Zusammenf�gen von PDF-Dateien �ber Kontextbefehl 'Senden an'

Themen-Einstellungen

Thema drucken

#1 | RE: Zusammenfügen von PDF-Dateien über Kontextbefehl 'Senden an' datum

10.03.2011 12:09

Ahmed Martens

Informationen anzeigen

Beitr�ge:	401
Registriert seit:	16.03.2009

Hallo Leute,

leider ist ja das Projekt 'PDF_ReOrg' von mir komplett eingestellt worden, da das Programm unter Win7 nicht mehr einwandfrei funktioniert.

Aber es ist zumindest möglich Teile davon ganz einfach nachzubauen und an seine Bedürfnisse anzupassen.

Heute stelle ich Euch das Zusammenfügen (Mergen) von PDF-Dateien über das Kontextmenü 'Senden an' vor.

Erstellt Euch eine VBS-Datei z. B. PDF_Merge.vbs im Verzeichnis (Win7): C:UsersAhmed MartensAppDataRoamingMicrosoftWindowsSendTo mit folgendem Inhalt:

Achtung: Der Code ist veraltet. Bitte das VBSript aus dem letzten Beitrag verwenden.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 

 
Set WshShell = CreateObject (&quot;WScript.Shell&quot;)
set Ag = WScript.Arguments
 
dim myPath
dim myFile, TargetFile
dim i
Dim sQuote
 
sQuote=&quot;&quot;&quot;&quot;
 

myPath = getPath(Ag(0))
 
if (ag.count-1) &gt; 0 then
 
		   for i= 0 to ag.count -1
			  myfile = myfile &amp; sQuote &amp; ag(i) &amp; sQuote &amp; &quot; &quot;
		   next
 
		   myFile = trim(myFile)	
 
		   TargetFile = Inputbox (&quot;Geben Sie bitte eine Dateibezeichnung ein.&quot;,&quot;Zusammenf&uuml;gen PDF mit PDFtk&quot;,&quot;Merge_Output.pdf&quot;)
		   
			If TargetFile =&quot;&quot; then 
				Msgbox &quot;Sie haben den Vorgang abgebrochen.&quot;,0, &quot;Abbruch Mergen&quot;
			else
				 TargetFile = AddExtension(TargetFile,&quot;.pdf&quot;)
				Wshshell.run &quot;&quot;&quot;C:KanzleiSoftwareFreePDF_Multidocpdftk.exe &quot;&quot;&quot;  &amp; myFile &amp; &quot; cat output &quot; &amp; sQuote &amp; myPath &amp; TargetFile &amp; sQuote	
			End If 		
 
Else
		msgbox &quot;Sie m&uuml;ssen mind. 2 Dateien zum zusammenf&uuml;gen ausw&auml;hlen.&quot;,0,&quot;Abbruch PDF-Merge&quot;
 
End if			
 

&#039;Hilfsfunktionen
Function GetPath(strFile)
   GetPath=left(Ag(0),InStrRev(strFile,&quot;&quot;,-1,1))
End Function
 
Function AddExtension(strFile,Extension)
	If lcase(right(strFile,Len(Extension)))lcase(Extension) then
		AddExtension=strFile &amp; Extension
	Else		
		AddExtension=strFile
	End if
End Function
 

 

Bitte die Pfade anpassen. PDFtk muss sich auf einem lokalen Laufwerk befinden. Kopiert Euch PDFtk am besten in das Verzeichnis von FreePDF bzw. FreePDF_Multidoc.

Bei Problemen oder Fragen bitte hier einfach im Forum melden.

Die Quelldateien können sich auch auf einem Netzlaufwerk befinden. Bei meinen Test's handelt es sich allerdings um gemappte Laufwerke, also z. B. L:. Wie es sich bei sog. UNC-Pfaden (\Server...) verhält kann ich nicht abschließend sagen.

Die Verwendung geschieht auf eigene Verantwortung.
Gruß Ahmed

FreePDF_Multidoc (PS2PDF mit vielen Optionen f. FreePDF)
File2PDF (komplette Verzeichnisse auf einen Streich umwandeln)
findest Du alles hier: http://amTools.de

Antworten

#2 | RE: Zusammenfügen von PDF-Dateien über Kontextbefehl 'Senden an' datum

16.06.2011 14:43

Ahmed Martens

Informationen anzeigen

Beitr�ge:	401
Registriert seit:	16.03.2009

Hallo Leute,

heute hatte ich festgestellt, dass ich mit dem oben vorgestellten Code PDF-Dateien aus dem Netz doch nicht mit PDFtk mergen kann. Das hatte ja auch früher mit PDF_ReOrg nicht funktioniert. Warum es aber vorher kurzeitig funktionierte, kann ich nicht sagen.

Ist ja auch egal.
Hier habt Ihr jetzt die endgültige Lösung.
Alle PDF-Dateien werden in das User-Tmp-Verzeichnis kopiert und dort erst zusammengefasst. Anschließend wird die Zieldatei in das Zielverzeichnis verschoben.

Also berichtigt Euer VBScript wie folgt:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
 

 
Set WshShell = CreateObject (&quot;WScript.Shell&quot;)
set Ag = WScript.Arguments
 
dim myPath
dim myFile, TargetFile
dim i
Dim sQuote
dim fso
dim tmpFolder
 
Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
tmpFolder = fso.GetSpecialFolder(2).Path &amp; &quot;PDFtk&quot;
 
If Not fso.FolderExists(tmpFolder) Then fso.CreateFolder(tmpFolder)
 
tmpFolder = tmpFolder 
 
sQuote=&quot;&quot;&quot;&quot;
call cleanFolder(tmpFolder)
 
myPath = getPath(Ag(0))
 
if (ag.count-1) &gt; 0 then
 
		   for i= 0 to ag.count -1
				fso.CopyFile ag(i), tmpFolder &amp; &quot;&quot; &amp; &quot;tmp_&quot; &amp; left(&quot;00000&quot;,5-len(i)) &amp; (i+1) &amp; &quot;.pdf&quot;
				myfile = myfile &amp; sQuote &amp;  tmpFolder &amp; &quot;&quot; &amp; &quot;tmp_&quot; &amp; left(&quot;00000&quot;,5-len(i)) &amp; (i+1) &amp; &quot;.pdf&quot; &amp; sQuote &amp; &quot; &quot;
		   next
 
		   myFile = trim(myFile)	
 
		   do
				  if TargetFile &quot;&quot; then
					msgbox &quot;Die Zieldatei `&quot; &amp;  myPath &amp; TargetFile &amp; &quot;&#039; existiert bereits.&quot; &amp; vbnewline &amp; &quot;Bitte vergeben Sie einen neuen Dateinamen.&quot;
					TargetFile=&quot;&quot;
				  End if
		   
				   TargetFile = Inputbox (&quot;Geben Sie bitte eine Dateibezeichnung ein.&quot;,&quot;Zusammenf&uuml;gen PDF mit PDFtk&quot;,&quot;Merge_Output.pdf&quot;)
				   
				   If TargetFile =&quot;&quot; then 
						Msgbox &quot;Sie haben den Vorgang abgebrochen.&quot;,0, &quot;Abbruch Mergen&quot;
						exit do
				   else
						TargetFile = AddExtension(TargetFile,&quot;.pdf&quot;)
				   End If 		
 
			loop while fso.FileExists(myPath &amp; TargetFile)
			
			Wshshell.run &quot;&quot;&quot;C:KanzleiSoftwareFreePDF_Multidocpdftk.exe &quot;&quot;&quot;  &amp; myFile &amp; &quot; cat output &quot; &amp; sQuote &amp; tmpFolder &amp; &quot;&quot; &amp; TargetFile &amp; sQuote	
				
		   do while fso.FileExists(tmpFolder &amp; &quot;&quot; &amp; TargetFile) =false
					wscript.sleep 500			&#039;1/2 sec. warten
		   loop
		   
		   fso.MoveFile tmpFolder &amp; &quot;&quot; &amp; TargetFile, myPath &amp; TargetFile
		   wscript.sleep 100
		   call CleanFolder(tmpFolder)
Else
		msgbox &quot;Sie m&uuml;ssen mind. 2 Dateien zum zusammenf&uuml;gen ausw&auml;hlen.&quot;,0,&quot;Abbruch Mergen&quot;
 
End if			
 

&#039;Hilfsfunktionen
Function GetPath(strFile)
   GetPath=left(Ag(0),InStrRev(strFile,&quot;&quot;,-1,1))
End Function
 
Function AddExtension(strFile,Extension)
	If lcase(right(strFile,Len(Extension)))lcase(Extension) then
		AddExtension=strFile &amp; Extension
	Else		
		AddExtension=strFile
	End if
End Function
 
Function CleanFolder(strFolder)
	For Each file In fso.GetFolder(strFolder).Files
		file.delete
	Next
End Function
 

 

Weiterhin viel Spaß.

Gruß Ahmed

FreePDF_Multidoc (PS2PDF mit vielen Optionen f. FreePDF)
File2PDF (komplette Verzeichnisse auf einen Streich umwandeln)
findest Du alles hier: http://amTools.de

Antworten

Alles rund um FreePDF und andere Tools