split a pdf based on the text using vba acrobat api - vba

Question

I am trying to split pdf, based on the pages where it finds ".pdf". some of pages in the PDF contains first line with with file name "abc1.pdf" or "abc2.pdf" and so on.
The Function Extract_PDF() need to open one instance of selected PDF, go to the last page, get its text to check if it contains ".pdf". if yes then make another instance of same PDF and remove its previous pages.
For the first instance only remove the page that contains ".pdf" till the last page. save both instances. do it in loop until split all the letters.
In nutshell, This code creates a new instance of the PDF using the pdf_Doc.Create method (here it get an error type mismatch), and copies the pages from the original pdf to the new pdf instance up to the page where ".pdf" is found. Then it saves this new pdf instance with a new name.
It also removes the pages from the original pdf starting from the page where ".pdf" is found till the last page. Finally, it saves the modified original pdf.
I don't know how to handle the .Create method, let me know where it get wrong? how I can optimize this code.
Function Extract_PDF()
Dim aApp As Acrobat.CAcroApp
Dim av_Doc As Acrobat.CAcroAVDoc
Dim pdf_Doc As Acrobat.CAcroPDDoc '
Dim newPDFdoc As Acrobat.CAcroPDDoc ' new variable for the new pdf instance
Dim Sel_Text As Acrobat.CAcroPDTextSelect
Dim i As Long, j As Long
Dim pageNum, Content
Dim pageContent As Acrobat.CAcroHiliteList
Dim found As Boolean
Dim foundPage As Integer
Dim PDF_Path As String
Dim PDF_Paths As String
Dim newPDF_Paths As String ' new variable for the new pdf path
Dim pdfName As String
Dim folerPath As String
Dim FileExplorer As FileDialog
Set FileExplorer = Application.FileDialog(msoFileDialogFilePicker)
With FileExplorer
.AllowMultiSelect = False
.InitialFileName = ActiveDocument.Path
.Filters.Clear
.Filters.Add "PDF File", "*.pdf"
If .Show = -1 Then
PDF_Path = .SelectedItems.Item(1)
Else
PagesLB = "Catch me Next Time ;)"
PDF_Path = ""
Exit Function
End If
End With
Set aApp = CreateObject("AcroExch.App")
Set av_Doc = CreateObject("AcroExch.AVDoc")
' Error handling
'On Error GoTo CleanUp
If av_Doc.Open(PDF_Path, vbNull) <> True Then Exit Function
Set pdf_Doc = av_Doc.GetPDDoc
totalPages = pdf_Doc.GetNumPages
For i = totalPages - 1 To 0 Step -1
Set pageNum = pdf_Doc.AcquirePage(i)
Set pageContent = CreateObject("AcroExch.HiliteList")
If pageContent.Add(0, 9000) <> True Then Exit Function
Set Sel_Text = pageNum.CreatePageHilite(pageContent)
Content = ""
found = False
For j = 0 To Sel_Text.GetNumText - 1
Content = Content & Sel_Text.GetText(j)
If InStr(1, Content, ".pdf") > 0 Then
found = True
foundPage = i
pdfName = Content
Exit For
End If
Next j
If found Then
PDF_Paths = Left(PDF_Path, InStrRev(PDF_Path, "\")) & ValidWBName(pdfName)
newPDF_Paths = Left(PDF_Path, InStrRev(PDF_Path, "\")) & ValidWBName(pdfName)
Set pdf_Doc = av_Doc.GetPDDoc
' create new instance of pdf
Set newPDFdoc = pdf_Doc.Create 'ERROR LINE "Type Mismatch"
' copy pages from the original pdf to the new pdf
If newPDFdoc.InsertPages(0, pdf_Doc, 0, foundPage - 1, True) = False Then
Debug.Print "Failed"
End If
' save new pdf
If newPDFdoc.Save(PDSaveFull, newPDF_Paths) = False Then
Debug.Print "Failed to save new pdf "
Else
Debug.Print "New pdf saved"
End If
' remove pages from the original pdf
If pdf_Doc.DeletePages(foundPage, totalPages - foundPage) = False Then
Debug.Print "Failed to remove pages from original pdf"
Else
Debug.Print "Pages removed from original pdf"
End If
'save the original pdf
If pdf_Doc.Save(PDSaveFull, PDF_Paths) = False Then
Debug.Print "Failed to save original pdf "
Else
Debug.Print "Original pdf saved"
End If
End If
Next i
CleanUp:
' code to handle errors and clean up resources
' for example, close the pdf document and release the objects
av_Doc.Close False
aApp.Exit
Set av_Doc = Nothing
Set pdf_Doc = Nothing
Set aApp = Nothing
End Function
Function ValidWBName(agr As String) As String
Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp")
With RegEx
.Pattern = "[\\/:\*\?""<>\|" & Chr(13) & Chr(10) & Chr(11) & "]"
.Global = True
ValidWBName = .Replace(agr, "")
End With
End Function