After Merging, form fields are lost

I'm trying to merge several PDF files with empty form fields (templates) into a single one.

It happens that after the merging process, the form fields are lost. Only the form fields of the firstly added file are left.

My guess is this is a bug on QuickPDF itself.

I inserted below a VBScript that shows the problem.

What do I need after all ?

I need to add several templates, that is PDFs with form fields, each one corresponding to a page. Then I need to substitute each field content with data. Of course, I need to substitute ALL of the fields, from all the pages. I can do this substitution process either doing it page per page, that is replacing the fields while I add the pages, or at once, at the end of the merging process. But I do need to replace ALL of the fields.

Finally, here's the script :

---------------------------------------------------

OPTION EXPLICIT

DIM objPDF1,objPDF2,objPDF3,lni,mykey

mykey="mykey"

Set objPDF1 = WScript.CreateObject("ISED.QUICKPDF")

WScript.Echo objPDF1.LibraryVersion

WScript.Echo "UnlockKey     ",objPDF1.unlockkey(mykey)

WScript.Echo "Load File   A ",objPDF1.LoadFromFile("FILEA.PDF")
'You may get a copy of this template from here : 'http://www.DES.online.unimep.br/au/FILEA.PDF

for lni=1 to objPDF1.FormFieldCount
    WScript.Echo "Field #",lni," from A ",objPDF1.GetFormFieldTitle(lni)
next

WScript.Echo "Load File   B ",objPDF1.LoadFromFile("FILEB.PDF")
'You may get a copy of this template from here : 'http://www.DES.online.unimep.br/au/FILEB.PDF

for lni=1 to objPDF1.FormFieldCount
    WScript.Echo "Field #",lni," from B ",objPDF1.GetFormFieldTitle(lni)
next

WScript.Echo "***SO FAR SO GOOD ! FILES ARE LOADED OK AND FIELDS DISPLAYED AS EXPECTED"
WScript.Echo "------------------------------------------------------------------------"

' LET THE PROBLEMS BEGIN NOW BY MERGING BOTH FILES...

Set objPDF2 = WScript.CreateObject("ISED.QUICKPDF")


WScript.Echo "UnlockKey ",objPDF2.unlockkey(mykey)

WScript.Echo "Add File A",objPDF2.AddToFileList("mfl","FILEA.PDF")
WScript.Echo "Add File B",objPDF2.AddToFileList("mfl","FILEB.PDF")
WScript.Echo "Merge to C",objPDF2.MergeFileList("mfl","FILEC.PDF")
WScript.Echo "Clear     ",objPDF2.ClearFileList("mfl")

WScript.Echo "***MERGING PROCESS HAS BEEN COMPLETED OK..."
WScript.Echo "------------------------------------------------------------------------"

Set objPDF3 = WScript.CreateObject("ISED.QUICKPDF")

WScript.Echo "UnlockKey     ",objPDF3.unlockkey(mykey)

WScript.Echo "Load File   C ",objPDF3.LoadFromFile("FILEC.PDF")
WScript.Echo "Field Count C ",objPDF3.FormFieldCount

for lni=1 to objPDF3.FormFieldCount
    WScript.Echo "Field #",lni," from A ",objPDF3.GetFormFieldTitle(lni)
next

WScript.Echo "***OPS - WHERE ARE THE FORM FIELDS FROM FILE B ?"


When I execute the script above on my machine, it says :


5.11
UnlockKey      1
Load File   A 1
Field # 1 from A FIELD1FROMFILEA
Load File   B 1
Field # 1 from B FIELD1FROMFILEB
Field # 2 from B FIELD2FROMFILEB
***SO FAR SO GOOD ! FILES ARE LOADED OK AND FIELDS DISPLAYED AS EXPECTED
------------------------------------------------------------------------
UnlockKey 1
Add File A 1
Add File B 1
Merge to C 2
Clear      1
***MERGING PROCESS HAS BEEN COMPLETED OK...
------------------------------------------------------------------------
UnlockKey      1
Load File   C 1
Field Count C 1
Field # 1 from A FIELD1FROMFILEA
***OPS - WHERE ARE THE FORM FIELDS FROM FILE B ?

Hi Ingo

Thanks again 4 your support !

I had thought about this before and had also unsucessfully tried it.

Anyway, I tried it again, in another way and now it's WORKING !

Below is another script, which is working.

What I disliked :

- I had to delete page # 1 because it is a blank page
- I'm afraid that the performance may not be so nice


The Script, after all :


OPTION EXPLICIT

DIM objPDF,docFinalPDF,docPDF2beMerged,lni

Set objPDF = WScript.CreateObject("ISED.QUICKPDF")
WScript.Echo "UnlockKey ",objPDF.unlockkey("mykey")

docFinalPDF=objPDF.NewDocument()
WScript.Echo "New       ",docFinalPDF

WScript.Echo "Load File ",objPDF.LoadFromFile("FILEA.PDF")
                          docPDF2beMerged=objPDF.DocumentID(3)
WScript.Echo "doc id M ",docPDF2beMerged

WScript.Echo "field CNT ",objPDF.FormFieldCount
for lni=1 to objPDF.FormFieldCount
    WScript.Echo objPDF.GetFormFieldTitle(lni)
next
WScript.Echo "set form f",objPDF.SetFormFieldValueByTitle("FIELD1FROMFILEA","*field1fromfilea*")

WScript.Echo "Selected ",objPDF.SelectDocument(docFinalPDF)
WScript.Echo "Merge     ",objPDF.MergeDocument(docPDF2beMerged)


WScript.Echo "Load File ",objPDF.LoadFromFile("FILEB.PDF")
                          docPDF2beMerged=objPDF.DocumentID(3)
WScript.Echo "doc id M ",docPDF2beMerged

WScript.Echo "field CNT ",objPDF.FormFieldCount
for lni=1 to objPDF.FormFieldCount
    WScript.Echo objPDF.GetFormFieldTitle(lni)
next
WScript.Echo "set form f",objPDF.SetFormFieldValueByTitle("FIELD1FROMFILEB","*field1fromfileb*")
WScript.Echo "set form f",objPDF.SetFormFieldValueByTitle("FIELD2FROMFILEB","*field2fromfileb*")

WScript.Echo "Selected ",objPDF.SelectDocument(docFinalPDF)
WScript.Echo "Merge     ",objPDF.MergeDocument(docPDF2beMerged)


WScript.Echo "Deletepage",objPDF.DeletePages(1,1)
WScript.Echo "save      ",objPDF.SaveToFile("C:\TEMP\TEST.PDF")