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