Autotexte beim ╓ffnen eines Dokuments auswΣhlen

Ich m÷chte mit Word eine Dokumentenvorlage anlegen, so dass beim ╓ffnen ein Dialog erscheint, in dem sich Texte mit bis zu fⁿnf verschiedenen KontrollkΣstchen auswΣhlen lassen. ▄ber eine SchaltflΣche soll Word dann die ausgewΣhlten Texte in das Dokument einfⁿgen. Wie geht das?

Ein L÷sungsbeispiel fⁿr Ihre Probleme finden Sie als Word-2000-Datei auf der Heft-CD: CHIP-Code AUSWAHL. Um eine Σhnliche L÷sung selbst zu programmieren, gehen Sie so vor:╓ffnen Sie in Word den Visual-Basic-Editor mit dem Menⁿbefehl ╗Extras | Makro | Visual Basic-Editor½. In der Baumstruktur auf der linken Seite des Editors sehen Sie fⁿr die Druckformatvorlage ╗Normal½ und fⁿr jedes ge÷ffnete Dokument ein spezielles Projekt. Markieren Sie das entsprechende Projekt fⁿr Ihr Dokument mit einem Mausklick. Erzeugen Sie nun mit dem Befehl ╗Einfⁿgen | User-Form½ ein neues Formular. Nennen Sie es ╗TextAuswahl½, indem Sie den neuen Namen im Eigenschaftsfenster des Formulars als ╗(Name)½ eintragen.
Klicken Sie in der Werkzeugsammlung auf das Symbol fⁿr ein KontrollkΣstchen und ziehen Sie es in das Formular. Danach tragen Sie unter der Eigenschaft ╗Caption½ den zur Checkbox geh÷renden Text ein. Dieser Text wird spΣter in das Dokument eingefⁿgt.
Wiederholen Sie den Vorgang, bis genⁿgend KontrollkΣstchen im Formular liegen. Danach ziehen Sie eine BefehlsschaltflΣche in das Formular. Klicken Sie dann doppelt auf die SchaltflΣche, so dass eine leere Ereignisprozedur erscheint. Hier tragen Sie den abgedruckten Quelltext aus dem Kasten ein. Dabei mⁿssen Sie fⁿr jedes einzelne KontrollkΣstchen Ihres Formulars eine entsprechende ╗if½-Struktur hinzufⁿgen.

Selection.EndKey Unit:=wdStory
If CheckBox1 = True Then
   Selection.TypeText 
Text:=CheckBox1.Caption
   Selection.TypeParagraph
End If
Me.Hide
Unload TextAuswahl

Sub AutoOpen()
   Load TextAuswahl
   TextAuswahl.Show
End Sub