Как открыть Word -овский файл из Екселя?

[Гена]

Как открыть Word -овский файл из Екселя?
Что-то нашел, но не работает. Подскажите пожалуйста в чем проблема.

Хотелось бы написать макрос в котором через Inputbox открывался вордовский файл содержащий заданное в Inputbox значение (номер, который находится только в одном документе).


Sub Poiskfailov()
With Application.FileSearch
.NewSearch
.LookIn = "O:\"
.SearchSubFolders = True
.FileType = msoFileTypeWordFiles
.Filename = "*.doc"
.TextOrProperty = "184"
.MatchTextExactly = True 'Поиск файла, содержащего слово
.MatchAllWordForms = True 'Критерий сравнения слов при поиске
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Open FoundFiles For Append As #i
Next i
End If
End With

End Sub

[Calvin]

Можно воспользоваться функцией Shell

Код: Выделить всё

Dim Mydoc
Mydoc = Shell(pathname[,windowstyle])


А в InputBox можно ввести путь........