@DrCizor First what You need is to use http://www.debenu.com/docs/pdf_library_reference/ExtractFilePages.php or http://www.debenu.com/docs/pdf_library_reference/ExtractFilePagesEx.php
ps. I'am using AutoIt (this is similar to VBScript)
and here you have some concept how to split file in separate page
Func _QPDF_FileSplitEachPage($sPDF_FileFullPath, $sPDF_Password = '', $sDestinationDir = Default, $iNumberOfDigits = 3) If $sDestinationDir = Default Then $sDestinationDir = @ScriptDir & '\Extracted' Local $oQP If _QPDF_CreateObjectAndUnlock($oQP) = 1 Then $oQP.LoadFromFile($sPDF_FileFullPath, $sPDF_Password) ; _QPDF_LastErrorCode($oQP) Local $iTotalPages = _QPDF_FileGetPageCount($sPDF_FileFullPath, '') Local $sPDF_Destination = '' If Not FileExists($sDestinationDir) Then DirCreate($sDestinationDir) Local $aPageFileList[$iTotalPages + 1] $aPageFileList[0] = $iTotalPages
For $n = 1 To $iTotalPages $sPDF_Destination = $sDestinationDir & '\' & StringRegExp($sPDF_FileFullPath, '(?i).*\\(.*?)\.pdf', 3)[0] & '_p' & __QPDF_AddLeadingZeros(String($n), $iNumberOfDigits) & ".pdf" $aPageFileList[$n] = $sPDF_Destination $oQP.ExtractFilePages($sPDF_FileFullPath, '', $sPDF_Destination, $n) Next Return SetError(0, 0, $aPageFileList)
Else Return SetError($__eQPDF_ERROR_DEBENULICENCE, 0, 0)
EndIf EndFunc ;==>_QPDF_FileSplitEachPage
Then you can use your TABLE and use http://www.debenu.com/docs/pdf_library_reference/AddToFileList.php http://www.debenu.com/docs/pdf_library_reference/FileListCount.php http://www.debenu.com/docs/pdf_library_reference/ClearFileList.php
and finally http://www.debenu.com/docs/pdf_library_reference/MergeFileList.php http://www.debenu.com/docs/pdf_library_reference/MergeFileListFast.php
or http://www.debenu.com/docs/pdf_library_reference/MergeFiles.php
Regards, mLipok
------------- Here you can find description how to test my examples: http://www.quickpdf.org/forum/forum_posts.asp?TID=2932&PID=12600&title=drawcapturedpagematrix-matrix-howto#12600
|