Word aus excel öffnen
29.03.2006 14:10:06
miwi
Der Pfad soll hierbei variabel bleiben. (Fals jemand anders die Datei irgendwo anders hinkopieren will)
Sub Auto_open ()
Dim gvpfad As String
gvpfad = ThisWorkbook.Path
End Sub
------
Sub Word_Sachverhalt()
CreateObject("word.application").documents.Open(gvpfad & "Anlage.doc").Application.Visible = True
On Error GoTo NoDoc
Exit Sub
NoDoc:
MsgBox "Datei ist nicht zu finden oder kann nicht geöffnet werden."
End Sub
-----
Nun sagt er mir das die Variable gvpfad nicht definiert ist. Wo liegt mein Denkfehler ?