ich würde geren ein Worddokument über ein Excel Makro aufrufen.
kann mir jemand bitte weiterhelfen.
Gruß Linda
Sub Word_open()
Dim WdApp As Object
Dim wdDok As Object
Pfad = ActiveWorkbook.Path & "\Beispiel.doc" 'anpassen
Set WdApp = CreateObject("Word.Application")
Set wdDok = WdApp.documents.Open(Filename:=Pfad, ReadOnly:=True)'anpassen
WdApp.Visible = True
WdApp.Activate
Set wdDok = Nothing
Set WdApp = Nothing
End Sub