Änderung von Arbeitsmappen- Aufruf einer Word-Date
31.01.2005 22:00:09
Arbeitsmappen-
ich hatte vor ein paar Tagen ein Problem in das Forum gestellt.
Zu diesem Thema hat mir Ramses mit diese Makro geholfen:
Hallo
dann schreib doch eine Prozedur für das Workbook_BeforeClose Ereignis mit einer MsgBox und öffne dann die Datei ?
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Änderungen müssen noch dokumentiert werden", vbInformation + vbOKOnly, "Hinweis"
Dim myWord As Object
On Error Resume Next
Set myWord = GetObject("Word.Application")
If Err.Number <> 0 Then
Err.Clear
Set myWord = CreateObject("Word.Application")
myWord.Visible = True: myWord.WindowState = wdWindowStateMaximize
Else
myWord.Activate
myWord.Visible = True: myWord.WindowState = wdWindowStateMaximize
End If
myWord.Application.Documents.Open "C:\Test.doc"
End Sub
Gruss Rainer
Das Problem dabei ist, dass der Hinweis und das Öffnen der Worddatei jetzt immer erfolgt, egal ob etwas geändert wurde, oder nicht. Gibt es eine Lösung, dass nur wenn die Arbeitsmappe geändert wurde, dieses Macro aktiviert wird?
2. Frage Die Arbeitsmappe gibt es in vielen verschiedenen Ordnern. Ich möchte nun, dass die z.Bsp. Test.doc nur aus dem Verzeichnis geöffnet wird, wo sich auch die Arbeitsmappe befindet. Bsp.:\west\arbeitsmappe.xls und Test.doc . Ich will mir damit ersparen, die Pfade in den jeweiligen Ordnern anpassen zu müssen.
Danke schon im Voraus
Bert