Kontrolle einer Word-Messagebox durch Excel
14.10.2008 14:42:25
Klaus
Ich möchte gerne in einer Excel-Routine ein Worddokument öffnen, und eine Meldung (Messagebox) die beim Öffnen dieses Worddokumentes angezeigt wird kontrollieren.
Das Worddokument enthält im Word Object "ThisDocument" für das Event Öffnen folgenden Code:
Private Sub Document_Open()
Dim msgYesNo As String
msgYesNo = MsgBox("Möchten Sie die Charts aktualisieren?", vbYesNo)
If msgYesNo = 6 Then
Call ChartsUpdate 'User hat Yes geklickt und eine Routine wird ausgeführt
Else
Exit Sub
End If
End Sub
Die Messagebox die hier erscheint soll den User die Option geben, das Dokument zu aktualisieren.
Die Excel-Routine, die ich schreiben möchte soll die Word-Prozedur "ChartsUpdate" aufrufen und dem User keine Option geben. Die Messagebox soll dabei ignoriert werden (d.h. sie soll nicht angezeigt werden)
Habt ihr vielleicht eine geniale Idee, wie ich das bewerkstelligen könnte.
Vielen Dank für eure Hilfe
Klaus