AW: PDF Reset Button mittels VBA aktivieren
17.11.2020 06:34:55
Ledi
Guten Morgen
Der Button auf dem PDF ist eine Schaltfläche und heißt Reset. Hier der VBA Code:
Public Sub Fill_PDF_Form()
Dim gApp As Acrobat.CAcroApp
Dim AvDoc As Acrobat.CAcroAVDoc
Dim gPDDoc As Acrobat.CAcroPDDoc
Const DOC_Folder As String = "C:\Test"
Dim x, bOK As Boolean
Dim sDoc As Object
Set gApp = CreateObject("AcroExch.App")
Set gPDDoc = CreateObject("AcroExch.PDDoc")
Set AvDoc = CreateObject("AcroExch.AVDoc")
Dim FormApp As AFORMAUTLib.AFOrmApp
Dim AcroForm As AFORMAUTLib.Fields
Dim Field As AFORMAUTLib.Field
Dim start_c, end_c As Long
Dim lz As Long
Dim wksSTART As Worksheet
Dim wksTest As Worksheet
Dim wksELneu As Worksheet
Dim ObjJSO As Object
Dim pdDoc As Object
Set pdDoc = AvDoc.GetPDDoc
Set ObjJSO = pdDoc.GetJSObject
'Variablen setzen
Set wksSTART = ActiveWorkbook.Worksheets("START")
Set wksTest = ActiveWorkbook.Worksheets("Test")
'Star-und Endzeile
start_c = Val(wksSTART.Cells(6, 2).Value) 'Zellbezug evtl. noch ändern
If start_c Jetzt sollte der Reser Button alles im Formular zurücksetzen für die nächste Zeile
ObjJSO.GetField("ResetAll").Value = "1"
'ObjJSO.GetField("Reset").Value = 1
'Weiter im Prozess
weiter:
'nächste Zeile
Next r
'Ausgabe der Info-Messagebox über die Dauer des Prozesses
end_date = Now
interval_date = end_date - start_date
strOutput = "Durchlauf abgeschlossen" & Chr(10) & "Startzeit: " & start_date & Chr(10) & " _
Endzeit: " & end_date & Chr(10)
strOutput = strOutput & Int(CSng(interval_date * 24)) & ":" & Format(interval_date, "nn:ss") _
_
& " Stunden:Minuten:Sekunden"
MsgBox strOutput, vbInformation
'Pdf schließen
AvDoc.Close (1)
gApp.Exit
End Sub