word öffnen kann ich aber der dialog funktioniert nicht mehr.
danke für eure Ideen und Antworten
Sub WordFileOeffnen()
Dim sFile As Variant
sFile = Application.GetOpenFilename("Word-Datei (*.doc), *.doc")
If sFile = False Then
Exit Sub
Else
Dim WordApp As Object
Dim WordDoc As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open(sFile)
End If
End Sub
Sub WordDateiOeffnen()
Dim objWord As Object
Dim objDialogOpen As Object
Dim vntRetVal As Variant
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDialogOpen = objWord.Dialogs(wdDialogFileOpen)
' Document auswaehlen und wenn OK-klick dann wird es gleich geoeffnet
vntRetVal = objDialogOpen.Show
' was hat der Benutzer gedrueckt
Select Case vntRetVal
Case -1
' OK button, Doc ist geoeffnet worden
' Code hier ...
Case 0
' Cancel button, Word wieder beenden
If (Not objWord Is Nothing) Then
objWord.Quit
Set objWord = Nothing
End If
End Select
End Sub