Tag,

ich möchte aus Access heraus, Word öffnen (Fernsteuerung).

Beim untenstehenden Code wird dieser Fehler ausgegeben:

Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden

Dabei wird die Methode Test() in gelb markiert und der Bereich ".GetOpenFilename" wird blau makiert. Das Problem liegt also an der GetOpenFilename-Methode. Kann jemand den Fehler entdecken?

Sub test()
    Dim strDocFile As String

    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document

    Set wdApp = CreateObject("Word.Application")

    strDocFile = Application.GetOpenFilename(FileFilter:="Textdateien (*.docx), *.docx", Title:="Wählen Sie ein Datei")

    'With-Block mit Anweisungen für Verhalten des Word-Programms
    With wdApp
        .Visible = True
        .Activate
        .WindowState = wdWindowStateNormal
    End With

    Set wdDoc = wdApp.Documents.Open(FileName:=strDocFile)
End Sub

Kann jemand den Fehler finden?