Ошибка вставки таблицы в VBA

[shabbiness]

В Ворде пробую вставить таблицу нижеследующим кодом, в обоих вариантах выдает ошибку 91: object variable or with block variable not. Искал в рунете, нашёл только предложение о переустановке офиса - не помогло.

Sub megplan()
Dim wapp As Word.Application
Dim wdoc As Word.Document
Dim wtab As Word.Table
Set wapp = New Word.Application
wapp.Visible = True
Set mdoc = wapp.Documents.Add
mdoc.Activate
mdoc.Application.Selection.PageSetup.LeftMargin = CentimetersToPoints(2)
mdoc.Application.Selection.PageSetup.RightMargin = CentimetersToPoints(1)
mdoc.Application.Selection.PageSetup.TopMargin = CentimetersToPoints(2)
mdoc.Application.Selection.PageSetup.BottomMargin = CentimetersToPoints(2)
Вариант 1:Set wtab = wdoc.Tables.Add(wdoc.Range(), 38, 34)
Вариант 2:Set wtab = wdoc.Tables.Add(wdoc.Application.Selection.Range, 38, 34)
...
End Sub

[[Smarik]]

Я уже не помню синтаксис VBA, но самый простой способ: запиши макрос создания таблицы, открой макрос в VBA и сравни код.

[shabbiness]

когда я писал на vba в autocade данный код работал, а в ворде выдает ошибку, мне бы узнать в чём дело. А в записи выдаётся более объёмный код, где указывается много параметров, их можно сократить, но мне нужно задать имя таблицы, т.к. с ней ещё много чего придётся делать

[Stilet]

Set mdoc = wapp.Documents.Add

mdoc не описан, может имеется ввиду:

Set Wdoc = wapp.Documents.Add

[shabbiness]

да, спасибо, именно это и имелось в виду, невнимательность меня, видимо, погубит