1

我必须掌握使用 VBA 填写 PDF 表单...

Dim acroAppObj As Acrobat.AcroApp : Set acroAppObj = CreateObject("AcroExch.App")
Dim acroADocObj As Acrobat.AcroAVDoc : Set acroADocObj = CreateObject("AcroExch.AVDoc")

If Not acroADocObj.Open(lPDFFormFileName, "") Then Exit Sub
acroAppObj.Show 
Dim acroFormObj As AFORMAUTLib.AFormApp  Set acroFormObj = CreateObject("AFormAut.App")

acroFormObj.Fields("First Field).Value = "First Value"
'..... populate all the fields in the form ...
acroFormObj.Fields("Last Field).Value = "Last Value"  

acroADocObj.Close (True)
acroAppObj.CloseAllDocs
acroAppObj.Exit
acroAppObj.Hide

Set acroFormObj = Nothing
Set acroPDocObj = Nothing 
Set acroADocObj = Nothing 
Set acroAppObj = Nothing 

这使用了一个独立于 excel 用户窗体的窗口。

是否可以将 Acrobat.AcroApp 的实例嵌入到 excel 用户表单中?

4

0 回答 0