☰

Blättern Sie durch mehrere PDFs aus einem Ordner

tag-icon • tag-icon pdf scrolling
Blättern Sie durch mehrere PDFs aus einem Ordner

Ich habe mehrere PDF-Dateien in einem Ordner – ich möchte durch alle Dateien blättern, sodass sie wie eine einzige PDF-Datei aussehen.

Das Zusammenführen der Dateien zu einer Datei ist keine Option, da dies spontan über einen Intranet-Webdienst erfolgen sollte.

Ich dachte dabei an so etwas wie eine „PDF-Index“-Datei, die den Pfad zu jeder PDF-Datei enthält und die Daten beim Durchblättern aufruft.

Eine Option wäre auch ein Webservice (PHP), der die Dateien importiert und sie verschachtelt zum Scrollen anzeigt.

Antwort1

Unten finden Sie ein Autohotkey-Skript, das unter Windows funktioniert und Ihre Aufgabe erledigt. Sie müssen das Programm so ändern, dass es zu Ihrem PDF-Ordner und PDF-Reader passt.

;This Autohotkey program loops through pdf files in a specified folder, by pressing "f" for forward, "r" for reverse, and "x" for exit. 
; You'll need the freeware autohotkey installed and to save this text file program with an .ahk extension.  You will also
; need to change the pdf viewer exe files below to that of your machines own pdf reader, as well as specify the folder
;containing your pdfs. 

Folder := "C:\"  ; <----------------------SPECIFY FOLDER HERE CONTAINING PDF FILES IN QUOTES


FileList =  ; Initialize to be blank.

FileCount := 0

Loop, %Folder%*.pdf {

    FileList = %FileList%%A_LoopFileLongPath%`n 

    FileCount++

                    }


Array := StrSplit(Filelist,"`n")

FileIndex := 1

StartNewPDF:

MsgBox,,, Opening PDF File %FileIndex% of %FileCount%,0.7

 FileToOpen=% Array[FileIndex]


;  v---------------------------------SPECIFY PATH and *.exe FILE OF PDF READER

 Run, "C:\Program Files\Tracker Software\PDF Viewer\PDFXCview.exe" 

"%FileToOpen%"

 Input, OutputVarx, L1 ,, frx

if (OutputVarx="f")

{

   FileIndex := 1 + Mod(FileIndex - 1 + 1, FileCount)

}

if (OutputVarx="r")

{

   If (FileIndex=1)

     FileIndex = FileCount

   Else FileIndex := FileIndex - 1

}

if (OutputVarx="x")

{

;    v-------------SPECIFY *.exe FILE OF YOUR PDF READER HERE

   Process,Close,PDFXCview.exe

   ExitApp

}

;      v-------------SPECIFY *.exe FILE OF YOUR PDF READER HERE

Process,Close,PDFXCview.exe

Sleep, 100

Goto, StartNewPDF

verwandte Informationen