Макрос, чтобы открыть слово через Excel

Question

Sub test()
    Set myWorkbook = Application.Workbooks.Open(Filename:=[B1])
    On Error Resume Next
    myWorkbook.Sheets(Cstr([D1])).Activate
    On Error GoTo 0
End Sub

Как работает вышеуказанный макрос:

• Упомянуть путь Excel в ячейке B1

• Название листа в ячейке D1

Когда макрос запускается, он открывает указанный Excel, а также лист.

Теперь ищем макрос, который может открыть документ Word, упомянутый в ячейке B1.

Ячейка B1 будет содержать путь к документу Word.

Answer 1

Sub Open_Word_Document()
    'Opens a Word Document from Excel

    ' Define Word object.
    Dim objWord As Object

    ' Create Word instance.
    Set objWord = CreateObject("Word.Application")

    'Make Word visible.
    objWord.Visible = True

    'Load the file named in Cell B1.    
    objWord.Documents.Open Range("B1").Text

End Sub

Модифицировано из найденного здесь источника