ich möchte aus einem Excel-Tabellenblatt ein bestimmtes Word Dokument ("D:\Eigene Dateien\Dokumente\Privat\Serienbrief Umzug.doc") öffnen.
Der unten angeführte Lösungsvorschlag funktioniert nicht. Es kommt die Fehlermeldung: Laufzeitfehler'438':Objekt unterstützt diese Eigenschaft oder Methode nicht. Kann mir da jemand weiterhelfen?
Gruß
Helmut
Sub Worddatei_öffnen()
Dim dat As String
Dim p As Object
'Hier den Dokumenten-Pfad eintragen:
dat = "D:\Eigene Dateien\Dokumente\Privat\Serienbrief Umzug.doc"
On Error GoTo s 'Probieren, ob Word schon gestartet ist
AppActivate "Microsoft Word"
GoTo n
s: 'Word starten
Application.ActivateMicrosoftApp (xlMicrosoftWord)
n:
'Dokument über OLE Automation öffnen
Set p = CreateObject("Word.basic")
p.DateiÖffnen dat
End Sub