UserForm b.Start eines Word-Dok. nicht mehr zeigen

Computer: Software & Programmierung Visual Basic
#1

Hallo VBA-Profis,

ich suche nach einer Lösung für folgendes Problem:

Beim Starten eines Dokuments aus einer Word-Vorlage soll beim Aufrufen eine UserForm automatisch geladen werden. Die Userform soll Infotext enthalten, einen Okay-Button und eine CheckBox oder einen OptionButton. Wenn die Okay-Taste gedrückt wird, ohne dass die Checkbox bzw. der OptionButton deaktiviert wurde, dann soll die UserForm beim nächsten Hochladen des erzeugten Dokuments wieder geladen werden. Jetzt das Problem: Wenn die CheckBox bzw. der OptionButton dektiviert wird, dann soll Word nach betätigen des Okay-Buttons den Wunsch des Nicht-Mehr-Ladens der UserForm bei jedem weiteren Öffnen des Dokuments speichern bzw. die UserForm löschen oder den Ladebefehl, so dass beim nächsten Öffnen des erzeugten Dokuments die Userform nicht mehr erscheint.

Wer weiss das?

Boris

#2

Ist zwar keine fertige Lösung aber so ähnlich könnte es funktionieren.
Das eine Vorlagenmakro fügt das Infomakro in das Dokument ein, das andere löscht es beim Schließen wieder wenn man beim Öffnen auf Nein gedrückt hat.
Gruß,
Michael

'Unter Extras-Verweise ankreuzen:
„Microsoft Visual Basic for Applications Extensibility“

'In Normal.ThisDocument kopieren:
Public blnDel As Boolean
Private Sub Document_Close()
If blnDel Then Word.VBE.VBProjects(2).VBComponents(1).CodeModule.DeleteLines 1, Word.VBE.VBProjects(2).VBComponents(1).CodeModule.CountOfLines
End Sub
Private Sub Document_New()
Word.VBE.VBProjects(2).VBComponents(1).CodeModule.AddFromString „Public Sub AutoOpen()“ & vbCrLf & " blnDel = (MsgBox("„Info Anzeigen?“", vbYesNo) = vbNo)" & vbCrLf & „End Sub“
blnDel = (MsgBox(„Info Anzeigen?“, vbYesNo) = vbNo)
End Sub

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]