Previous | Next | (P-PDF) General
Topic: Rename PDF file based upon General Info Title
Conf: (P-PDF) General, Msg: 50454
From: psc
Date: 5/29/2002 04:38 PM
I have some VB code that may help you
Sub Main()
dim objAcroExchAVDoc as CAcroAVDoc
dim objAcroExchPDDoc as CAcroPDDoc
dim blnOk as boolean
dim strTitle as String
Set objAcroExchAVDoc = CreateObject("AcroExch.AVDoc")
blnOk = objAcroExchAVDoc.Open("PDFName.PDF","")
If Not blnOk Then
Set objAcroExchAVDoc = Nothing
Exit Sub
End If
Set objAcroExchPDDoc = objAcroExchAVDoc.GetPDDoc()
strTitle = objAcroExchPDDoc.GetInfo("Title")
objAcroExchPDDoc.Save 0, strTile
set objAcroExchPDDoc = nothing
set objAcroExchAVDoc = nothing
End Sub
