Using the Amyuni component the template looks fine on screen as it does in Acrobat.
If I then amend the text in one of the fields as follows (quick routine just for an example):
Code: Select all
Dim tmp As String
objarray = PDF1.ObjectAttribute("Pages[1]", "Objects")
For Each pobj In objarray
If (pobj.Attribute("ObjectType") = acObjectTypeText) Or (pobj.Attribute("ObjectType") = acObjectTypeFrame) Then
tmp = pobj.Attribute("TextFont")
pobj.Attribute("Text") = pobj.Attribute("Text") & pobj.Attribute("Name")
pobj.Attribute("TextFont") = tmp
End If
Next
PDF1.Refresh
Any help would be appreciated!!!