Dear all,
We need to switch from Acrobat Distiller to PDF-XChange and I have already managed to merge PDF files into one.
Now there is another problem to solve. We need to set some PDF properties like “title” or “author” with VBA code.
It is part of a batch process and several 100 PDF files are created. Maintaining this with a manual editor is not an option.
I have found in https://downloads.pdf-xchange.com/Edito ... DK_MAN.pdf the function PXCV_GetDocumentInfoW, which seems to be the function to read the properties. I cannot find the write function.
Many thanks for any help.
Roland
Maintain PDF properties by VBA
Moderators: Tracker Support, TrackerSupp-Daniel, Sean - Tracker, Vasyl-Tracker Dev Team, Chris - Tracker Supp, Tracker Supp-Stefan
Forum rules
DO NOT post your license/serial key, or your activation code - these forums, and all posts within, are public and we will be forced to immediately deactivate your license.
When experiencing some errors, use the IAUX_Inst::FormatHRESULT method to see their description and include it in your post along with the error code.
DO NOT post your license/serial key, or your activation code - these forums, and all posts within, are public and we will be forced to immediately deactivate your license.
When experiencing some errors, use the IAUX_Inst::FormatHRESULT method to see their description and include it in your post along with the error code.
Re: Maintain PDF properties by VBA
I just found the solution.
If there is only one document, maintain the property values in the source (word, excel, PowerPoint, ... )
produce the pdf with:
If you have to merge several pdf files and take care, there is in the final document the correct property title, you must set the values in the first file of the merged files.
Instead of open the Set objDocMain = objPXC.NewDocument() take the first document of the list as objDocMain.
I hope it helps...
Best regards
Roland
If there is only one document, maintain the property values in the source (word, excel, PowerPoint, ... )
produce the pdf with:
Code: Select all
'If it is a Word document
If Not DOC Is Nothing Then
With DOC
.ExportAsFixedFormat PDFOutputFilename, 17, False, 0, , , , , True, , , , True, False
End With
End If
'If it is an Excel document
If Not SHT Is Nothing Then
With SHT
.ExportAsFixedFormat xlTypePDF, PDFOutputFilename, , True, , , , False
End With
End If
Instead of open the Set objDocMain = objPXC.NewDocument() take the first document of the list as objDocMain.
I hope it helps...
Best regards
Roland
Code: Select all
Public Function testPDF(strInput As String)
On Error GoTo testPDF_error
' execute in direct window:
' (replace files with your pdf files)
'testPDF "W:\your path to file\FileOne.pdf#" _
& "W:\your path to file\FileTwo.pdf#" _
& "W:\your path to file\FileThree.pdf#" _
& "W:\your path to file\FileFour.pdf"
Dim objDocMain As IPXC_Document ' holder for the main document
Dim objDocSlaves As IPXC_Document ' add the additional pages
Dim i As Long ' counter for page add loop
Dim bolObjPxcDone As Boolean ' check for objPXC license object
Dim arrayFilesPath() As String
arrayFilesPath = Split(strInput, "#")
'/// first page as main:
' set objPXC flag to false - error 91 missing object can be for other objects as well...
bolObjPxcDone = False
'Create Main Doc for first page - his must contain all properties like title, author, etc
Set objDocMain = objPXC.OpenDocumentFromFile(arrayFilesPath(0), Nothing)
' set objPXC flag to true again.
bolObjPxcDone = True
'/// catch second document
Set objDocSlaves = objPXC.OpenDocumentFromFile(arrayFilesPath(1), Nothing)
'add it to final document
objDocMain.Pages.InsertPagesFromDoc objDocSlaves, objDocMain.Pages.Count, 0, objDocSlaves.Pages.Count, 0
'Empty variable
Set objDocSlaves = Nothing
'/// Loop all remaining files path and add pages at the end of MAIN doc
If UBound(arrayFilesPath) > 1 Then
For i = 2 To UBound(arrayFilesPath)
If arrayFilesPath(i) <> "" Then
'catch a document
Set objDocSlaves = objPXC.OpenDocumentFromFile(arrayFilesPath(i), Nothing)
'add it to final document
objDocMain.Pages.InsertPagesFromDoc objDocSlaves, objDocMain.Pages.Count, 0, objDocSlaves.Pages.Count, 0
'Empty variable at each loop
Set objDocSlaves = Nothing
End If
Next i
Else
' only 2 pages... no further action
End If
MainDocComplete:
'Write final file
objDocMain.WriteToFile "W:\L\BDTP\Products\FSA_EquityAdvisory\Output\Test\sirtTest.pdf"
objDocMain.Close
testPDF_exit:
Exit Function
testPDF_error:
Select Case Err.Number
Case -2080440318 ' Automation error
' looks like a file is not available. take next file
If i = UBound(arrayFilesPath) Then
Set objDocSlaves = Nothing ' close object and jump out of the loop
GoTo MainDocComplete
Else
i = i + 1 ' take next file
Resume
End If
Case 91 ' Object variable or With block variable not set
If bolObjPxcDone = False Then
initiatePdfXchange
Resume
End If
Case Else
Debug.Print Err.Number; "' "; Err.Description
Stop
Resume
End Select
End Function
Public Function initiatePdfXchange()
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objTF As Object
' replace the file with your license file
Set objTF = objFSO.OpenTextFile("\\your path to file\pdfXchange_license.txt", 1)
Dim apiKey As String
apiKey = objTF.readall
'initialization
Set objPXC = New PDFXCoreAPI.PXC_Inst
objPXC.Init sKey:=apiKey
End Function
- Vasyl-Tracker Dev Team
- Site Admin
- Posts: 2410
- Joined: Thu Jun 30, 2005 4:11 pm
Re: Maintain PDF properties by VBA
Hi Roland.
With our Core API SDK you may try to use this way, to read/write the doc's props:
https://sdkhelp.pdf-xchange.com/view/PX ... ument_Info
HTH.
With our Core API SDK you may try to use this way, to read/write the doc's props:
https://sdkhelp.pdf-xchange.com/view/PX ... ument_Info
HTH.
Vasyl Yaremyn
Tracker Software Products
Project Developer
Please archive any files posted to a ZIP, 7z or RAR file or they will be removed and not posted.
Tracker Software Products
Project Developer
Please archive any files posted to a ZIP, 7z or RAR file or they will be removed and not posted.