This example shows how to iterate through the PDF document tree writing out information on all the objects within it.

We're going to assume here that we've already got a document with lots of object in it. For clarity we'll omit the addition of all these objects.

Set theDoc = Server.CreateObject("ABCpdf3.Doc")
... add lots of objects


We start our information loop on object one and then increment through each object in turn. We know when we've reached the end because every object has to have a type and if we don't get one back then we've gone past the last object.

theInfo = ""
i = 1
Do
  theType = theDoc.GetInfo(i, "Type")
  If theType = "" Then Exit Do
  theActive = theDoc.GetInfo(i, "Active")
  theInfo = theInfo & "ID " & i & " "
  theInfo = theInfo & "Type " & theType & " "
  theInfo = theInfo & "Active " & theActive & vbCrLf
  i = i + 1
Loop

This is the kind of output you might expect.

ID 1 Type cata Active 1
ID 2 Type outl Active 1
ID 3 Type pags Active 1
ID 4 Type page Active 1
ID 5 Type rect Active 0
ID 6 Type font Active 1
ID 7 Type text Active 1
ID 8 Type rect Active 1
ID 9 Type font Active 1
ID 10 Type text Active 1
ID 11 Type rect Active 1
ID 12 Type rect Active 1
ID 13 Type text Active 0
ID 14 Type rect Active 0
ID 15 Type rect Active 1
ID 16 Type page Active 1
ID 17 Type rect Active 1
ID 18 Type line Active 1
ID 19 Type text Active 1
ID 20 Type rect Active 0
ID 21 Type text Active 1
ID 22 Type rect Active 1
ID 23 Type text Active 1
ID 24 Type rect Active 1
ID 25 Type line Active 1
ID 26 Type font Active 1
ID 27 Type jpeg Active 1
ID 28 Type imag Active 1
ID 29 Type text Active 1
ID 30 Type rect Active 1
ID 31 Type page Active 1
ID 32 Type text Active 1
ID 33 Type rect Active 1
ID 34 Type text Active 1
ID 35 Type rect Active 1
ID 36 Type text Active 1
ID 37 Type rect Active 1
ID 38 Type text Active 1
ID 39 Type rect Active 1
ID 40 Type line Active 1
ID 41 Type rect Active 1
ID 42 Type font Active 1
ID 43 Type jpeg Active 1
ID 44 Type imag Active 1