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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen