|
Hallo Gabi,
mit dem folgendem VBA-Code kann man von Excel 2021 aus eine ausgewählte Word-DAtei in Word öffnen lassen:
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"
'.AllowMulitiSelect = False
If .Show <> -1 Then
Exit Sub
End If
dateiname = Dir(.SelectedItems(1))
dateipfad = Left(.SelectedItems(1), Len(.SelectedItems(1)) - Len(dateiname))
'dateipfad = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), "/"))
'dateiname = Mid(SelectedItems(1), InStrRev(.SelectedItems(1), "/") + 1)
Set w = CreateObject("word.application")
w.Visible = True
w.Documents.Open (dateipfad & dateiname)
'd.Open (dateipfad & dateiname)
End With
End Sub
Der Befehl Dir(...) kann auch einfach einen Dateinamen vom Pfad trennen.
Warum das nun in Office 365 nicht funktioniert, kann ich nicht nachvollziehen, da ich kein Zugang zu Office 365 habe,.
|