Вставить acrobat.acroapp в пользовательскую форму Excel - PullRequest
Новая
       32

Вставить acrobat.acroapp в пользовательскую форму Excel

0 голосов
/ 27 августа 2018

Я справился с использованием 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?

...