'---------------------------------------------------------------------------------------
' Procedure : OpenWord
' Purpose   : Создаем новый экземпляр Word, копируем туда диапазон Excel и закрываем
'---------------------------------------------------------------------------------------
Sub OpenWord()
    Dim objWrdApp As Object, objWrdDoc As Object
    'создаем новое приложение Word. м
    Set objWrdApp = CreateObject("Word.Application")
    'Можно так же сделать приложение Word видимым. По умолчанию открывается в скрытом режиме
    objWrdApp.Visible = True
    'Можно создать новый документ
'    Set objWrdDoc = objWrdApp.Documents.Add
    'Копируем из Excel диапазон "A1:A10"
    Range("A1:A10").Copy
  [U]  'вставляем скопированные ячейки в Word - в начала документа[/U]
[U]    objWrdDoc.Range(0).Paste[/U]
    'закрываем документ Word с сохранением
    objWrdDoc.Close True
    'закрываем приложение Word - обязательно!
    objWrdApp.Quit
    'очищаем переменные Word - обязательно!
    Set objWrdDoc = Nothing: Set objWrdApp = Nothing
End Sub