Не открывается файл из Dialog

[Алексей82]

Здравствуйте.
Вот такой код:

With Dialogs(wdDialogFileOpen)
        .Display
        SelectedFileName = .Name
End With
Set wa = CreateObject("Word.Application")
Set wd = wa.Documents.Open(SelectedFileName)

выдаёт ошибку на последней строке, что нет такого файла для открытия. Открываются только файлы лежащие в той же папке, что и сам файл скрипта. Вероятно, потому что в SelectedFileName только имя файла, без пути.
А как получить путь? Или как то по другому нужно открывать?

[Пименов Александр]

1. Вместо .Display надо поставить .Show
2. Set wa = CreateObject("Word.Application") — этой строки не надо т.к. объект Word.Application уже создан
3. Set wd = wa.Documents.Open(SelectedFileName) — этой строки не надо, так как метод .Show открывает выбраный файл
4. Введите переменную Dim Doc as Document, тогда
Set Doc = Application.Documents(SelectedFileN ame)
Что и требовалось доказать

[Пименов Александр]

Set Doc = Application.Documents(SelectedFileN ame)

[Пименов Александр]

Set Doc = Application.Documents(SelectedFileName)

[Алексей82]

Премного благодарен, работает, за исключением случая, когда в названии файла есть пробелы. Тогда

Set Doc = Application.Documents(SelectedFileName)

насаживается со словами "Неверное имя файла". Это можно как-то побороть?

[Пименов Александр]

Dim doc As Document
Dim dlg As Dialog
Set dlg = Dialogs(wdDialogFileOpen)
With dlg
.Show
End With
SelectedFileName = ActiveDocument.Name
Set doc = Application.Documents(SelectedFileN ame)

[Алексей82]

Благодарю!