VBA PDF Put in Folder on Desktop

[Stephen_IV]

Good morning,

This above my skill set. I got this code from 'http://www.tek-tips.com/viewthread.cfm?qid=1538892
and it works great. The problem is that it output the files onto the desktop (could be hundreds of files). Is there any way to modify this to output them into a folder on the desktop?

'http://www.tek-tips.com/viewthread.cfm?qid=1538892

'Tools > References > Acrobat
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 & "transcriptgrade12.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

 

[DanteAmor]

Change this

f = ThisWorkbook.Path & "\"
[/B]by
f = ThisWorkbook.Path & "\folder\"

 

[Stephen_IV]

Hey Dante!!! Thank you so much for responding to my post! That will do the trick! Originally my file was on the desktop and I wanted the files to go into the folder but your solution works if I put the file inside the folder. I'll take it! Thanks again. I appreciate it!! Have a great day!

 

[DanteAmor]

With pleasure, Thank you for the comments and also that you have an excellent day.