Document_Open() und Symbolleisten in Word

Computer: Software & Programmierung Visual Basic
#1

Hallo VBAler,

ich muss noch einmal auf mein Problem zurückkommen.
Mein Makro Private Sub Document_Open() zeigt in der MsgBox eine entsprechende Meldung und schließt und speichert nach einer bestimmten Zeit automatisch eine Word-Datei.
Mein Problem: Während dieses Makro abläuft, sind nur Symbole auf der Formatsymbolleiste aktivierbar. Eine speziell in der aktuellen Vorlage (nicht global 9 hinterlegte Symbolleiste zeigt sich erst, wenn ich mich mit der Maus ohne zu klicken im Symbolleistenbereich kurz hin und her bewege. Dann werden auch die Symbole auf der Standard-Symbolleiste aktiv.
Wie bringe ich Word (VBA?) in diesem Fall dazu, sofort nach dem Öffnen alle notwendigen Symbolleisten korrekt darzustellen?

Vielen Dank für Eure Hilfe.

MW

#2

Moin,

Hallo VBAler,

Na dann poste doch mal ein bissl Quelltext.
Das würde die ganze Sache um einiges vereinfachen und verdeutlichen.

Gruß.Timo

#3

Hier mein Quelltext.

Private Sub Document_Open()
Dim Pausenlänge, Start, Ende, Gesamtdauer

If (MsgBox(„Der Plan wird in 45 Sekunden automatisch geschlossen.“ & vbCrLf & " " & vbCrLf & _
„Wählen Sie Nein, wenn Sie den Plan ändern oder aktualisieren wollen!“, 68, „Plan Meldung“)) = vbYes Then
Pausenlänge = 45 ’ Dauer festlegen.
Start = Timer ’ Anfangszeit setzen.

Do While Timer