How to split a PDF into several documents page-by-page (and verca)

[blaksnm]

Hi
Hopefully there is a helping hand out there
I want to split a pdf-document as every page become one singel document.
Then I will delete one (or more) of the files (pages) and merge the remaining files (pages) back into a new pdf-document that will not include the removed pages (obviously)

The procedure wil go something like this:
1. I open a XLSM-file with macro where I can select wich (pdf)-file to copy to folder: PDF-FILE (folder contains just this one file, emty folder if not so)
2. The macro will then split this document such as every page become one singel pdf-file named as pagenumber
3. Then I will remove or delete one or more files (pages) - manually or otherwise?)
4. After removing unwanted files in folder I want to merge the remaining files together in pagenr-order as one new file: NEWFILE.PDF

I dont have clue how to to this
Do anybody know?

 

[John_w]

Install PDFtk Server and run it from VBA to split and merge PDFs.

These threads show how to split and merge PDFs using PDFtk Server:

Spliting pdf file by Mb size

Hey friends, I wonder if there is a way to split pdf file through VBA into multiple pdf files so that each part will not be larger than 8Mb Im using PDFtk server to split pdf file by defining the exact rang of pages. It splits the file into multiple files but doesn't take into account the file...

www.mrexcel.com

VBA Export diferent excel files to pdf and then combine them to one file

Hi, I know little of this, wondering if someone could help me. I 'm trying to create something like this thread Append to pdf VBA I've been searching for something like this, but just for one subfolder. How can i use this routine, but calling it inside another routine (let's say main...

www.mrexcel.com

 

[blaksnm]

Install PDFtk Server and run it from VBA to split and merge PDFs.

These threads show how to split and merge PDFs using PDFtk Server:

Spliting pdf file by Mb size

Hey friends, I wonder if there is a way to split pdf file through VBA into multiple pdf files so that each part will not be larger than 8Mb Im using PDFtk server to split pdf file by defining the exact rang of pages. It splits the file into multiple files but doesn't take into account the file...

www.mrexcel.com

VBA Export diferent excel files to pdf and then combine them to one file

Hi, I know little of this, wondering if someone could help me. I 'm trying to create something like this thread Append to pdf VBA I've been searching for something like this, but just for one subfolder. How can i use this routine, but calling it inside another routine (let's say main...

www.mrexcel.com

Thanks - Ill dive into this

 

[blaksnm]

Thanks for guiding me

The "split-macro" is doing its jobb, but i struggle a bit with my merging-procedure.
After finding this fragment on the net I came almost to the finnish line, but not quite so ....:

Do While file <> vbNullString
p = InStrRev(file, ".")
Select Case LCase(Mid(file, p))
Case ".pdf"
Set Wbk = Workbooks.Open(Filename:=sourcePath & file)
PDFfile = Left(file, p - 1) & "_pdf.pdf"
Wbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=destPath & PDFfile
Wbk.Close SaveChanges:=False
End Select
file = Dir
Loop

This will convert and merge Excel-files in a folder, but my goal is to merge pdf's only
What kind of ajustment do I need to do here?

The complete macro goes laike this:
Public Sub ExcelSaveAsPDFandMerge()

Dim FD As FileDialog
Dim file As String, p As Long
Dim Wbk As Workbook
Dim sourcePath As String, destPath As String
Dim PDFfile As String

Set FD = Application.FileDialog(msoFileDialogFolderPicker)
With FD
.Title = "Please select the folder contains the Excel files you want to convert:"
.InitialFileName = Range("FilMappe").Value & "\" '"C:\"
If Not .Show Then Exit Sub
sourcePath = .SelectedItems.Item(1) & "\"

.Title = "Please select a destination folder to save the converted files:"
.InitialFileName = Range("FilMappe").Value & "\" '"C:\
If Not .Show Then Exit Sub
destPath = .SelectedItems.Item(1) & "\"
End With

file = Dir(sourcePath & "*.*")

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Do While file <> vbNullString
p = InStrRev(file, ".")
Select Case LCase(Mid(file, p))
Case ".pdf"
Set Wbk = Workbooks.Open(Filename:=sourcePath & file)
PDFfile = Left(file, p - 1) & "_pdf.pdf"
Wbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=destPath & PDFfile
Wbk.Close SaveChanges:=False
End Select
file = Dir
Loop

Application.DisplayAlerts = True
Application.ScreenUpdating = True

Merge_PDFs destPath

MsgBox "Done"

End Sub

 

[John_w]

All you need is the Merge_PDFs routine, but modified to loop through the PDFs in the folder in page number order, which means the split macro should save each page of the PDF with the page number appended, e.g. Page1.pdf, Page2.pdf, .etc.

Private Sub Merge_PDFs(PDFfolder As String)

    Const Q As String = """"

    Dim Wsh As Object 'WshShell
    Dim inputPDFs As String, outputPDF As String
    Dim PDFfile As String
    Dim command As String
    Dim page As Long
    
    If Right(PDFfolder, 1) <> "\" Then PDFfolder = PDFfolder & "\"
    outputPDF = PDFfolder & "All_PDFs_Merged.pdf"
    If Dir(outputPDF) <> vbNullString Then Kill outputPDF
    
    page = 1
    inputPDFs = ""
    Do
        PDFfile = Dir(PDFfolder & "Page" & page & ".pdf")
        If PDFfile <> vbNullString Then inputPDFs = inputPDFs & Q & PDFfile & Q & " "
        page = page + 1
    Loop While PDFfile <> vbNullString
    
    'Merge PDFs with cat

    command = "CD /D " & Q & PDFfolder & Q & " & PDFtk " & inputPDFs & " cat output " & Q & outputPDF & Q
    Set Wsh = CreateObject("WScript.Shell") 'New WshShell
    Wsh.Run "cmd /c " & command, 0, True
    
End Sub

 

[blaksnm]

All you need is the Merge_PDFs routine, but modified to loop through the PDFs in the folder in page number order, which means the split macro should save each page of the PDF with the page number appended, e.g. Page1.pdf, Page2.pdf, .etc.

Private Sub Merge_PDFs(PDFfolder As String)

    Const Q As String = """"

    Dim Wsh As Object 'WshShell
    Dim inputPDFs As String, outputPDF As String
    Dim PDFfile As String
    Dim command As String
    Dim page As Long
   
    If Right(PDFfolder, 1) <> "\" Then PDFfolder = PDFfolder & "\"
    outputPDF = PDFfolder & "All_PDFs_Merged.pdf"
    If Dir(outputPDF) <> vbNullString Then Kill outputPDF
   
    page = 1
    inputPDFs = ""
    Do
        PDFfile = Dir(PDFfolder & "Page" & page & ".pdf")
        If PDFfile <> vbNullString Then inputPDFs = inputPDFs & Q & PDFfile & Q & " "
        page = page + 1
    Loop While PDFfile <> vbNullString
   
    'Merge PDFs with cat

    command = "CD /D " & Q & PDFfolder & Q & " & PDFtk " & inputPDFs & " cat output " & Q & outputPDF & Q
    Set Wsh = CreateObject("WScript.Shell") 'New WshShell
    Wsh.Run "cmd /c " & command, 0, True
   
End Sub

Thanks, but this did som unexpected resault: All pages was presented in an excelfile - not as pdf
I dont know why

 

[John_w]

Sorry, I don't understand your last reply. My code doesn't read or create any Excel files.