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.