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: HCHIP-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 Damit das Formular automatisch erscheint, wenn Sie das Dokument öffnen, erzeugen Sie mit »Einfügen | Modul« ein neues Modul und definieren die Prozedur »AutoOpen()« wie folgt: Sub AutoOpen() Load TextAuswahl TextAuswahl.Show End Sub Word führt beim Öffnen die Prozedur dieses Namens aus. »AutoOpen« lädt erst den Dialog »TextAuswahl« in den Speicher und zeigt sie danach an.