Planet PDF Forum Archive

Planet PDF ForumWowsers! This is page is old, head to the LIVE Planet PDF Forum. It features more than 10 conferences, covering everything from beginner to in-depth developer and pre-press discussions. If you wish to continue... one & two archive covers 1999-2011 (160,000 pages).


New Forum | Previous | Next | (P-PDF) Developers


Topic: Iterate Through All Fields with VB
Conf: (P-PDF) Developers, Msg: 134640
From: JFW
Date: 6/17/2005 01:18 AM

I am running Acrobat 6.0.3. and ACCESS 2003. I want to catalog all fields on all PDF documents in a folder. The following code is very close, but there is one serious problem. If multiple fields of the same name exist in the same document, annot.GetTitle returns a blank. How can I get the field name of these troublemakers?

Sub PdfFields(l_sFolder As String, l_sFilename As String)
Dim AcroExchPDDoc As Acrobat.CAcroPDDoc
Dim AcroExchInsertPDDoc As Acrobat.CAcroPDDoc
Dim page As Acrobat.CAcroPDPage
Dim annot As Acrobat.CAcroPDAnnot
Dim l_lRet As Long
Dim x As Integer
Dim y As Integer

l_sFilename = Dir(l_sFolder & l_sFilename, vbNormal)
Set AcroExchPDDoc = CreateObject("AcroExch.PDDoc")
Do While l_sFilename <> ""
l_lRet = AcroExchPDDoc.Open(l_sFolder & l_sFilename)
For x = 0 To AcroExchPDDoc.GetNumPages - 1
Set page = AcroExchPDDoc.AcquirePage(x)
For y = 0 To page.GetNumAnnots - 1
Set annot = page.GetAnnot(y)
If annot.GetSubtype = "Widget" Then
Debug.Print l_sFilename & " " & (x) & " " & (y) & " " & annot.GetTitle
End If
Next y
Next x
'necessary to recreate object inside loop
AcroExchPDDoc.Close
Set AcroExchPDDoc = Nothing
Set AcroExchPDDoc = CreateObject("AcroExch.PDDoc")
l_sFilename = Dir
Loop

Cleanup:
AcroExchPDDoc.Close
Set AcroExchPDDoc = Nothing
Set annot = Nothing
Set page = Nothing
End Sub



PDF In-Depth Free Product Trials Ubiquitous PDF

Debenu Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link...

Download free demo

Debenu PDF Tools Pro

It's simple to use and will let you preview and edit PDF files, it's a Windows application that makes...

Download free demo

Back to the past, 15 years ago! Open Publish 2002

Looking back to 2002, it's amazing how much of the prediction became a reality. Take a read and see what you think!

September 14, 2017
Platinum Sponsor





Search Planet PDF
more searching options...
Planet PDF Newsletter
Most Popular Articles
Featured Product

Debenu PDF Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link control. Take Acrobat to the next level.

Features

Adding a PDF Stamp Comment

OK, so you want to stamp your document. Maybe you need to give reviewers some advice about the document's status or sensitivity. This tip from author Ted Padova demonstrates how to add stamps with the Stamp Tool along with related comments.