☰

Desplácese por varios PDF desde la carpeta

tag-icon • tag-icon pdf scrolling
Desplácese por varios PDF desde la carpeta

Tengo varios archivos PDF en una carpeta. Me gustaría desplazarme por todos los archivos para que parezcan un solo PDF.

Fusionar los archivos en un solo archivo no es una opción, ya que debe hacerse "sobre la marcha" desde un servicio web de intranet.

Estaba pensando en algo así como un archivo de "índice pdf" que contiene la ruta a cada archivo pdf y llama a los datos al desplazarme.

También podría ser una opción un servicio web (php) que importe los archivos y los muestre anidados para desplazarlos.

Respuesta1

A continuación se muestra un script de autohotkey que funciona en Windows para realizar su tarea. Necesitará modificar el programa para que se ajuste a su carpeta de pdf y lector de pdf.

;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

información relacionada