Sub
WordOpenDoc()
Dim
dateipfad
As
String
Dim
dateiname
As
String
Dim
dateiauswahl
As
FileDialog
Dim
d
As
Word.Document
Dim
w
As
Word.Application
Set
dateiauswahl = Application.FileDialog(msoFileDialogFilePicker)
With
dateiauswahl
.Title =
"wählen Sie eine Datei aus"
.Filters.Clear
.Filters.Add
"Word-Dateien"
,
"*.doc*; *.docx"
If
.Show <> -1
Then
Exit
Sub
End
If
dateiname = Dir(.SelectedItems(1))
dateipfad = Left(.SelectedItems(1), Len(.SelectedItems(1)) - Len(dateiname))
Set
w = CreateObject(
"word.application"
)
w.Visible =
True
w.Documents.Open (dateipfad & dateiname)
End
With
End
Sub