Передача данных из Excel в Word

[GeoHunter]

Всем привет!
Просто запустить Ворд  из Ексела и что-то накропать - получается при помощи
поздней привязки
_________________
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
    With WordApp
    .Documents.Add
   .With. Selection
   .Font.Size = 14
             .TypeText Text = "ого!"
End With
    End With
WordApp.Visible = True
__________________
НО ХОТЬ УБЕЙТЕ НЕМОГУ СОЗДАТЬ ТАБЛИЦУ, а тем паче форматировать её и вставл. данные
А ОЧЕНЬ НАДО! ОПЫТА МАЛО!
ПОМОЖИТЕ

[HandKot]

пожалуйста

Код:

Public Sub Test()
    Dim WordApp As Object
       
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    With WordApp
        .Documents.Add
        With .Selection
            .Font.Size = 14
            .TypeText Text:="ого"
        End With
        .Documents(1).Tables.Add Range:=.Selection.Range, NumRows:=2, NumColumns:= _
            5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
            wdAutoFitFixed
               
        .Documents(1).Tables(1).Cell(1, 1).Range.Text = "111"
        .Documents(1).Tables(1).Cell(1, 2).Range.Text = "222"
        .Documents(1).Tables(1).Cell(2, 1).Range.Text = "333"
        .Documents(1).Tables(1).Cell(2, 5).Range.Text = "444"
    End With
   
    WordApp.Quit
    Set WordApp = Nothing
    Set doc = Nothing
End Sub

совет: на этапе разработки сделайте "раннее связывание" чтобы видеть все методы и св-ва

[GeoHunter]

Спасибо большое HandKot! Похоже это как раз, что надо.
Ранняя привязка, это :VBE--Tools--References-- а дальше ..., плз
У меня вроде всё подключено, но методы не отображались...
Это первый опыт автоматизации с Вордом, хотя конечно и в Екселе далеко не мэтр, но всеже
Еще раз благодарю

[HandKot]

заменить
Dim WordApp As Object
 на
Dim WordApp As Word.Application

и в Tools--References- ссылку на Microsoft Word

[GeoHunter]

Ну вот вроде всё работает, но теперь немогу выйти из созданной таблицы, чтобы что-то ниже написать и вставить новую таблицу
Надо книжку искать по вордовскому VBA

[HandKot]

можно попробовать так

Код:

.Documents(1).Words.Last.Select

встанет на конец документа
а потом уже через Selections писать

Код:

With .Selection
            .Font.Size = 14
            .TypeText Text:="огоГОГОГОГОГО"
End With