GetOpenFilename in word

[bartvermeer]

(Waarschijnlijk) heel simpel vraagje:
Ik zoek in word de mogelijk om in een macrotje te kunnen
kiezen welke bestandje ik wil openen.

In excel zou het er zo uitzien:
NewFN = Application.GetOpenFilename (FileFilter:="Word
files(*.doc), *.doc)

Welke commando moet ik dan in Word (VBA) gebruiken??

[KingRichard]

Visual Basic:

Sub DialogFileOpen()

Dim intReturn As Integer
Dim strResult As String

With Dialogs(wdDialogFileOpen)
    .Name = "*.doc"
    intReturn = .Display
    strResult = .Name
    MsgBox intReturn & Chr(13) & strResult
End With

' intReturn geeft aan hoe het venster is gesloten:
'   -2  De knop Sluiten
'   -1  De knop OK
'    0 (nul) De knop Annuleren
'  > 0 (nul)   Een opdrachtknop: 1 is de eerste knop, 2 is de tweede knop, enzovoort

End Sub