How do I combine folders into one pdf, preserving subfolders as bookmarks?

Question

So far I've had to go into each folder, convert its contents and name the file the same name as the folder name, and combine all of these folders. I'd like it if there were an easier way.

Answer 1

Hi,
sometimes ago I wrote a VBScript which may do, what you want.
Copy the attached Script into Notepad, change the settings and save it as AcMerge.vbs.
If you have produced the PDF FileList, you can double click on the VBS or Drag 'n Drop
the PDF FileList on the vbs.
HTH, Reinhard
AcMerge.vbs
REM: Insert single/multi Pdfs into one PDF, based on a filelist file
REM: to produce a file list file you can type into "Win Start" -> "Execute" 
REM: cmd /c "dir c:\temp\*.pdf /b /s >c:\PdfList.tmp"
REM:  where c:\temp\ is the base-folder.
REM: The "Settings.." you can change to your needs. Drag&drop for 1 filelist-file accepted.
*********Settings in File**************************
FLFile = "C:\PdfList.tmp"      '//Filename for filelist-file (files to merged)
Ask = 1                  '//0=don't ask for Insert;1=ask
Bookmark = 1             '//0=Insert No bookmarks; 1=Insert with BM based on Filename
InsWithBM = 1        '//1=Insert bookmarked files with BM; 0 = insert without BM
set WshShell = CreateObject ("Wscript.Shell")
set fs = CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
if objArgs.Count = 1 then FLFile = ObjArgs(0)
Info = "Insert PDF-Files in Acrobat based on File-list-file."&VbCr&_
       "File Name: "&FLFile &" Start now?"
OK = MsgBox(Info, vbQuestion+vbYesNo,"Insert Files") : if OK = vbNo then WScript.quit
  '//Start or switch to Acrobat
WshShell.run "Acrobat.exe"
While not WshShell.AppActivate("Adobe Acrobat") : Wscript.Sleep 1000 : Wend
Set gApp = CreateObject("AcroExch.App")
gApp.Show
if not fs.FileExists(FLFile) then
     MsgBox "Ups! " & FLFile & " doesn't exist? " & "Try new!", vbExclamation
     WScript.quit
end if
set FLFileInhalt = fs.OpenTextFile(FLFile)
FLPOS = 1
do until FLFileInhalt.atEndOfStream
   inhalt = FLFileinhalt.ReadLine
   if  fs.FileExists(inhalt) then
   if Ask=1 then if MsgBox(FlPos&": "&inhalt, vbOKCancel + vbInformation) = vbCancel then exit do
          ' /->Open first File
     if FLPOS = 1 then
        ' Set gApp = CreateObject("AcroExch.App")
        Set BASFL = CreateObject("AcroExch.pdDoc")
        OK = BASFL.Open(INHALT)
        if not OK Then if MsgBox("Error open Basic File") then Wscript.quit
        BASFL.OpenAVDoc(mid(INHALT,InstrRev(INHALT,"\")+1))
        WScript.Sleep 500
        Set avdoc = gApp.GetActiveDoc
        Set pddoc = avdoc.GetPDDoc
        Set jso = pddoc.GetJSObject
        PageBAS = BASFL.GetNumPages-1
      else
        PageBAS = BASFL.GetNumPages
        jso.pageNum = PageBAS+1
        Set INSFL = CreateObject("AcroExch.PDDoc")
        OK = INSFL.Open(INHALT)
        if not OK Then if MsgBox("Error open InsertFile") then Wscript.quit
        PageIns = INSFL.GetNumPages
        OK = BASFL.InsertPages(PageBAS - 1,INSFL,0,PageIns,InsWithBM)
        INSFL.Close
        jso.pageNum = PageBAS+2
      end if
      if Bookmark = 1 then
        BMNameIE = mid(Inhalt, InstrRev(Inhalt, "\")+1)
        BMNameEE = left(BMNameIE, InstrRev(BMNameIE, ".")-1)
        Set BMR = JSO.BookmarkRoot
        BMR.CreateChild BMNameEE, "this.pageNum = " &PageBas, PageBas
      end if
    FLPOS = FLPOS+1
   else  '/-> file in Filelist (=inhalt) doesn't exist
       Ok = MsgBox(Inhalt &vbCr &"File don't exist! - Continue?", vbQuestion+vbYesNo,"Insert Files")
        if OK = vbNo then QUIT
    end if
  loop
MsgBox "DONE!" &vbCr &"Don't forget to save the File (save as)"