Sub Открытие_документа()
fa = Cells(1, 1) 'адрес папки, где находится твой документ, кот. нада открыть
fn = Cells(2, 1) 'название твоего документа, кот. нада открыть
ff = "C:\Program Files\Microsoft Office\Office10\WINWORD.exe" 'путь где находится приложение Word (у меня здеся, а у тебя могет быть в другом месте)
fff = ff & " " & fa & fn
Dim MyAppID, ReturnValue
ReturnValue = Shell(fff, 1)
End Sub
Удачи...

Забыл написать:
можно проще (если переменные для использования НЕ нужны):
Sub Открытие_документа()
fff = "C:\Program Files\Microsoft Office\Office10\WINWORD.exe" & " " & Cells(1, 1)
Dim MyAppID, ReturnValue
ReturnValue = Shell(fff, 1)
End Sub
Тогда в ячейке Экселя Cells(1, 1) написан полный путь, где лежит файл, котю нужно открыть (с его расширением .doc )