Opening text files in Word

[MARK858]

I would be delighted if anyone could help with by question below;

Due to security restrictions in place at work where some people have had there access to the C drive restricted, I have been using the code below to get the windows open file dialogue box in excel so that they can choose themselves where to put the file.
My question is therefore, is there an equivalent code in word Vba I can use to get the same functionality?

EXCEL CODE

Sub Filterun_Click()
Dim wsName As String
Call Filterun
End Sub
 
Sub Filterun(Optional strTitle As String)
    Dim i As Integer
    If Len(strTitle) = 0 Then strTitle = "..."
    DI = Application.GetOpenFilename("Text Files (*.txt), *.txt,All Files (*.*),*.*", , strTitle, , False)
    Workbooks.OpenText Filename:=DI