Public Sub AddWord()

    Dim appWord As Object, docWord As Object
    
    Set appWord = CreateObject("Word.Application")
    
    Set docWord = appWord.Documents.Add()
    

    'Добавим новый параграф
'    docWord.Range.TypeParagraph (ВОПРОС: Почему так возникает ошибка?)
    
    appWord.Selection.TypeParagraph
    
    'Напишем что-нибудь
'    docWord.Range.TypeText Text:="ПРИЛОЖЕНИЕ" (ВОПРОС: Почему так возникает ошибка?)
    
    appWord.Selection.TypeText Text:="ПРИЛОЖЕНИЕ"

    'Вернуться в начало страницы
    docWord.Range(Start:= 0 , End:= 0 ).Select
    

    'Передать управление в Word
    appWord.Visible = True
    appWord.Activate
    



Exit_Handler:

    If Not docWord Is Nothing Then
        Set docWord = Nothing
    End If

    If Not appWord Is Nothing Then
        Set appWord = Nothing
    End If

    Exit Sub

Err_Handler:
    
    MsgBox Err.Source & vbCrLf & Err.Description, vbExclamation, "Сообщение об ошибке"
    Resume Exit_Handler
    
End Sub