Was ist falsch beim Aufruf der Methode Application.GetOpenFilename in Word VBA?

Question

nämlich rief ich den folgenden Ausschnitt in einem Tastenhandler:

TextBox1.Text = Application.GetOpenFilename("All files (*.*),*.*", _ 
     1, "Open the Raw Data Files", , False) 
If TextBox1.Text = "False" Then TextBox1.Text = "" 

Der Fehler sagte: im Voraus

Dank: „Compiler-Fehler-Methode oder Datenelement nicht gefunden“!

Answer 1

Es gibt keine Application.GetOpenFilename in Word.

Sie müssen stattdessen FileDialog verwenden. Hier ein kleines Beispiel:

Private Sub CommandButton1_Click() 
    Dim s As Variant 
    Dim Res As Integer 

    Dim dlgSaveAs As FileDialog 
    Set dlgSaveAs = Application.FileDialog(_ 
        FileDialogType:=msoFileDialogSaveAs) 
    Res = dlgSaveAs.Show 
    If Not Res = 0 Then 
    For Each s In dlgSaveAs.SelectedItems 'There is only one 
     MsgBox s 
    Next 
    End If 
End Sub