Создание таблицы в Word из макроса в Excel

[eco-fm]

Всем привет!

Ребята, помогите пожалуйста мне чайнику разобраться в одном вопросе, я уже голову сломал

Я знаю что аналогичный вопрос задавался, но именно такой темы не нашел

У меня есть макрос в Excel, который должен создавать новый документ Word, а затем вставлять туда новую таблицу.

Код у меня получился следующий:

PHP код:

  Dim WA As Object
  
  Set WA = CreateObject("Word.Application")
  
  With WA
    .Documents.Add
    With Selection
    .Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    End With
    
    .Visible = True
  End With

End Sub 


Но вставить таблицу не получается, выдает ошибку: Run time error 450

Я не понимаю в чём дело
Пожалуйста, объясните в чем тут дело

[Скрипт]

eco-fm, нерешение вашей задачи, просто, читая ваш код из сообщения #1, обратил внимание на ошибку.

В этой строке кода:

With Selection

"Selection" относится к программе "Excel". Чтобы "Selection" относилось к программе "Word", нужно сделать так: "With .Selection". Точка будет означать, что "Selection" относится к переменной "WA".

[eco-fm]

Скрипт, спасибо что ответили.
Я поставил точку перед ".Selection", но все равно выдает туже ошибку при запуске макроса

[Скрипт]

eco-fm, выложите исправленный код на Форуме.

[eco-fm]

Сообщение от Скрипт

eco-fm, выложите исправленный код на Форуме.

Скрипт,

Выкладываю файл.

Спасибо за помощь!

[Скрипт]

eco-fm, весь код ваш не смотрел.

Вот здесь то же самое замечание, что и в сообщении #2:

.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:=5

[eco-fm]

Сообщение от Скрипт

eco-fm, весь код ваш не смотрел.

Вот здесь то же самое замечание, что и в сообщении #2:

.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:=5

Скрипт,
я всё понял!
исправил, всё заработало

огромное спасибо за помощь, сам бы явно не допёр