beschreibbares pdf-Formular als pdf Drucken zum archivieren

Hallo,
ich habe on OO Version 4.1.3 ein beschreibbares pdf-Formular erstellt.
Dieses soll nach Eingabe der Daten über einen Button gespeichert werden, und zwar so das der Inhalt der Formulatfelder nicht mehr mehr geändert werden kann. Es soll pdf-Formular und Inhalt der Felder durch Bestätigung des Button gespeichert werden.
Wie kann ich das lösen? Wer kann mir helfen?
Mein Code funktioniert bis Dateiname eingeben.

sub Drucken
 Dim strMeinName As String
    Dim strFilename As String
    Dim AppShell As Object
  Dim BrowseDir As Variant
  Dim Pfad As String
  Set AppShell = CreateObject("Shell.Application")
  Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
  On Error Resume Next
   
  strMeinName = InputBox("Gib mir einen Namen", "Bitte einen Namen!")
 
         
    thisget.Field.ExportAsFixedFormat OutputFileName:= _
    Path & "\\" & strMeinName & ".pdf", _
    ExportFormat:=wdExportFormatPDF, _
    OpenAfterExport:=True, OptimizeFor:= _
    wdExportOptimizeForPrint, _
    Range:=wdExportAllDocument, _
    From:=1, To:=1, _
    Item:=wdExportDocumentContent, _
    IncludeDocProps:=True, _
    KeepIRM:=True, _
    CreateBookmarks:=wdExportCreateNoBookmarks, _
    DocStructureTags:=True, _
    BitmapMissingFonts:=True, _
    UseISO19005_1:=False


end sub