Из Excel открыть документ Word

Option Explicit
Sub CreateWordDoc()
Dim WordObj As Object  'Объект Word.application
Dim WordDoc As Object   'Создаваемый документ
    Set WordObj = CreateObject("Word.Application")
    WordObj.Visible = True
    Set WordDoc = WordObj.Documents.Add
    WordObj.Keyboard (1033) 'English
    WordObj.Selection.TypeText Text:="Hello, World!!!"
    WordObj.Selection.TypeParagraph
    WordObj.Application.Keyboard (1049) 'Russian
    WordObj.Selection.TypeText Text:="Привет, Мир!!!"
    'WordDoc.SaveAs Filename:="C:Temp" & WordDoc & ".doc"  'сохраняем его
    'WordDoc.Close 'закрываем только документ
    'WordObj.Quit 'закрываем всё приложение
    Set WordDoc = Nothing
    Set WordObj = Nothing
End Sub

Sub PrintOutWordFile()
    Dim WordObj As Object
    Dim WordDoc As Object
        Set WordObj = CreateObject("Word.Application")
        Set WordDoc = WordObj.Documents.Open("C:TempPrint.doc")
       ' WordObj.Visible = True 'можно его отображать, можно не отображать
       ' Call wDoc.PrintOut 'распечатываем его
       ' Call WordObj.Quit(False) 'закрываем всё приложение
    Set WordDoc = Nothing
    Set WordObj = Nothing
End Sub

Selection.TypeParagraph

Set WordDoc = WordObj.Documents.Open(thisworkbook.Path & "\Папка\Biatlon.docx")