saving pdfs in a specific folder post split

[ali1985]

Hi,

I have a code to split the pdf pages. Now i want to save all the individual pdfs post split in a specific location.

Sub Main()
  Dim PDDoc As Acrobat.CAcroPDDoc, newPDF As Acrobat.CAcroPDDoc
  Dim PDPage As Acrobat.CAcroPDPage
  Dim thePDF As String, PNum As Long
  Dim f As String, i As Integer, Result As Variant, NewName As String
 
  f = ThisWorkbook.Path & "\"
  thePDF = f & "PaySlips.pdf"
 
  Set PDDoc = CreateObject("AcroExch.pdDoc")
  Result = PDDoc.Open(thePDF)
  If Not Result Then
    MsgBox "Can't open file: " & thePDF
    Exit Sub
  End If
 
  '...
  PNum = PDDoc.GetNumPages
 
  For i = 0 To PNum - 1
    Set newPDF = CreateObject("AcroExch.pdDoc")
    newPDF.Create
    NewName = f & " Page_" & i & "_of_" & PNum & ".pdf"
    newPDF.InsertPages -1, PDDoc, i, 1, 0
    newPDF.Save 1, NewName
    newPDF.Close
    Set newPDF = Nothing
  Next i
End Sub

I believe this line should be changed.......newPDF.Save 1, NewName
any help on this would be appreciated

 

[DanteAmor]

The files are stored in the same folder where you have the file with the macro, that is specified in this line:
f = ThisWorkbook.Path & "\"

If you want to specify a folder, it can be like this:

f = "C:\folder\pdf\"