2
www.ChF-Online.de  

Formularfelder sichern und wieder herstellen

   Neuigkeiten
   API-Aufrufe in VBA
   VBA2HTML
   Word
   Word-VBA
 Verschiedenes
 Feld-Arbeiten
 Form-Sachen
 Menü-/Symbolleisten
 VBA und Lotus Notes
 VBA und Mail
 Inside VBAIDE
 Von Word nach Outlook
aktiv aktiv Fix-und-Fertiges/Projekte
 Aufgaben in OL eintragen
 Einfacher Dateibrowser
 Formatvorlagen
aktiv  Formularfelder sichern
 Formluarfelder formatieren
 Formluarfelder formatieren 2
 Formluarfelder formatieren 3
 Formular-QuickInfos
 Kontextmenü erstellen
 Sicherheitskopien an bel. Orten
 Sicherheitskopien erstellen Word 2007/2010
 ToolTipps ändern
 Dokumenteigenschaften kopieren
 (Jahres-)Kalender erstellen
 Zeichen-Zähler
   Word2007 (RibbonX)
   Word2010 (RibbonX)
   Outlook-VBA
   Links zu VB(A)
   DocToHelp
   Netport Express XL
   Astronomie
   Gästebuch
   Volltextsuche
   Sitemap
   Buch:Word-Programmierung
   Impressum & Kontakt
   Datenschutzerklärung
Getestet unter Word2000Getestet unter WordXPGetestet unter Word2003  
VBA-Code verfügbar: ja
Beispiel anzeigen
Makro/Datei speichern
Print

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:

Symbolleiste

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

Beispiel zum Erstellen eines DropDown-Feldes aus den gespeicherten Werten:

  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.


 Besucher: 4 online  |  6 heute  |  2492 diesen Monat  |  1584053 insgesamt | Seitenaufrufe: 44   Letzte Änderung: 24.06.2006 © 2001-14 Christian Freßdorf
  Der Anfang der Weisheit ist Verwunderung.
Aristoteles
 powered by phpCMS and PAX