Диалог выбора файла Word - VBA

Формулировка задачи:

Есть код

Public Sub test()
Dim oDoc As Word.Document
Set oDoc = Documents.Open(Path + "\test.docx")
oDoc.SaveAs2 FileName:="Text.html", FileFormat:=wdFormatFilteredHTML, Encoding:=msoEncodingUTF8
End Sub

Необходимо документ ворд выбирать при помощи диалога, пробовал что-то вроде этого

Sub ShowFileDialog() 
 Dim dlgOpen As FileDialog 
 Set dlgOpen = Application.FileDialog( _ 
 FileDialogType:=msoFileDialogOpen) 
 With dlgOpen 
 .AllowMultiSelect = True 
 .Show 
 End With 
End Sub

Только мне не совсем понятно, как это с объектом ворда связать. Буду очень признателен за помощь

Решение задачи: «Диалог выбора файла Word»

textual
                            Листинг программы 
                        
                             If .Show = -1 Then sDoc = .SelectedItems(1)