CreateObject("word.application").documents.Open
10.03.2004 10:33:58
ray
wieso muß bei nachfolgenden code immer 2 Mal klicken, damit die WordDatei geöffnet wird???
Private Sub CommandButton1_Click()
MsgBox "" & ListBox1
On Error GoTo zend
Dim datei
datei = ListBox1
MsgBox "" & datei
Dim Ex As Object
Set Ex = CreateObject("word.application").documents.Open("" & datei)
MsgBox "fertig"
Exit Sub
zend:
MsgBox "ERROR"
End Sub
Anzeige