Formularfelder sichern und wieder herstellen

Die nachstehenden Makros aus der bereitgestellen Dokumentvorlage CHF-Formularfelder.dot zeigen, wie sich die verschiedenen Eigenschaften von Formularfeldern auslesen, sichern und auch wiederherstellen lassen.
Die Sicherung und Wiederherstellung kann über eigene Symbole in der bereitgestellten Symbolleiste aufgerufen werden:

Um die Eigenschaften der verschiedenen Formularfelder korrekt zu ermitteln, muss zuerst der Typ eines jeden Formularfeldes ermittelt werden. Da es nur drei verschiedene Formularfeldtypen gibt ( Kontrollkästchen, Textfelder und DropDown-Listenfelder. ) sich die Eigenschaften aber z.T. unterscheiden, werden nach Ermittlung des Typen alle relevanten Eigenschaften ausgelesen und in eine INI-Datei gespeichert.

For Each ff In oDoc.FormFields
  Select Case ff.Type
  Case wdFieldFormTextInput
    fkt_ListFF strFile, "[" & ff.Name & "]"
    fkt_ListFF strFile, "Name", ff.Name
    fkt_ListFF strFile, "Type", "wdFieldFormTextInput"
    fkt_ListFF strFile, "Wert", ff.Result
    fkt_ListFF strFile, "Defaultwert", ff.TextInput.Default
    If oDoc.ProtectionType <> wdNoProtection Then oDoc.Unprotect
    fkt_ListFF strFile, "Format", ff.TextInput.Format
    If ff.TextInput.Type = wdCalculationText Then
      strType = "wdCalculationText"
    ElseIf ff.TextInput.Type = wdCurrentDateText Then
      strType = "wdCurrentDateText"
    ElseIf ff.TextInput.Type = wdCurrentTimeText Then
      strType = "wdCurrentTimeText"
    ElseIf ff.TextInput.Type = wdDateText Then
      strType = "wdDateText"
    ElseIf ff.TextInput.Type = wdNumberText Then
      strType = "wdNumberText"
    ElseIf ff.TextInput.Type = wdRegularText Then
      strType = "wdRegularText"
    End If
    fkt_ListFF strFile, "Textlänge", ff.TextInput.Width
    fkt_ListFF strFile, "EditType", strType
    oDoc.Protect wdAllowOnlyFormFields, True
    fkt_ListFF strFile, "CalculateOnExit", ff.CalculateOnExit
    fkt_ListFF strFile, "EntryMacro", ff.EntryMacro
    fkt_ListFF strFile, "ExitMacro", ff.ExitMacro
    fkt_ListFF strFile, "Enabled", ff.Enabled
  Case wdFieldFormCheckBox
    fkt_ListFF strFile, "[" & ff.Name & "]"
    fkt_ListFF strFile, "Name", ff.Name
    fkt_ListFF strFile, "Type", "wdFieldFormCheckBox"
    fkt_ListFF strFile, "Wert", ff.CheckBox.Value
    fkt_ListFF strFile, "AutoSize", ff.CheckBox.AutoSize
    fkt_ListFF strFile, "Size", ff.CheckBox.Size
    fkt_ListFF strFile, "CalculateOnExit", ff.CalculateOnExit
    fkt_ListFF strFile, "EntryMacro", ff.EntryMacro
    fkt_ListFF strFile, "ExitMacro", ff.ExitMacro
    fkt_ListFF strFile, "Enabled", ff.Enabled
  Case wdFieldFormDropDown
    fkt_ListFF strFile, "[" & ff.Name & "]"
    fkt_ListFF strFile, "Name", ff.Name
    fkt_ListFF strFile, "Type", "wdFieldFormDropDown"
    For idx = 1 To ff.DropDown.ListEntries.Count
      fkt_ListFF strFile, "Wert" & idx, ff.DropDown.ListEntries(idx).Name
    Next idx
    fkt_ListFF strFile, "CalculateOnExit", ff.CalculateOnExit
    fkt_ListFF strFile, "EntryMacro", ff.EntryMacro
    fkt_ListFF strFile, "ExitMacro", ff.ExitMacro
    fkt_ListFF strFile, "Enabled", ff.Enabled
  End Select
Next ff

Die INI-Datei besitzt anschließend folgenden Aufbau, den man über die Standard-Zugriffsmethoden (GetPrivateProfileSection) problemlos wieder auslesen kann:

[Kontrollkästchen1]
Name=Kontrollkästchen1
Type=wdFieldFormCheckBox
Wert=Falsch
AutoSize=Wahr
Size=10
CalculateOnExit=Falsch
EntryMacro=AktuelleSeiteDrucken
ExitMacro=
Enabled=Wahr
[Text1]
Name=Text1
Type=wdFieldFormTextInput
Wert=20.05.2005
Defaultwert=
Format=
Textlänge=0
EditType=wdCurrentDateText
CalculateOnExit=Falsch
EntryMacro=
ExitMacro=
Enabled=Falsch
[Dropdown1]
Name=Dropdown1
Type=wdFieldFormDropDown
Wert1=D1
Wert2=D2
Wert3=D3
CalculateOnExit=Wahr
EntryMacro=Aufruf
ExitMacro=
Enabled=Wahr

  Case "wdFieldFormDropDown"
    Set ff = newDoc.FormFields.Add(Selection.Range, wdFieldFormDropDown)
    With ff
      j = 1
      For i = LBound(strKey(), 1) To UBound(strKey(), 1)
        Select Case strKey(i, 0)
        Case "Name"
          ff.Name = strKey(i, 1)
        Case "CalculateOnExit"
          .CalculateOnExit = strKey(i, 1)
        Case "EntryMacro"
          .EntryMacro = strKey(i, 1)
        Case "ExitMacro"
          .ExitMacro = strKey(i, 1)
        Case "Enabled"
          bEnabled = CBool(strKey(i, 1))
        Case "Wert" & j
          .DropDown.ListEntries.Add strKey(i, 1)
          j = j + 1
        End Select
      Next i
    End With

Das Wiederherstellen der Formularfelder aus den Informationen der INI-Datei erfolgt nach ähnlichem Schema:
es werden alle Abschnitte (Section) der INI-Datei ermittelt und dann ausgelesen. Danach werden neue Formularfelder mit diesen Eigenschaften in einem neuen Dokument angelegt.
Da die Positionen der Formularfelder im Ursprungsdokument verteilt sind und diese nebem dem Text nicht gespeichert werden, werden die Formularfelder aussschließlich, mit einem Formularfeld pro Zeile, wieder angelegt.