Как из AutoCAD на VBA запустить Word документ и создать в нем таблицу?

Option Explicit
Sub test()
Dim wrd As Object
Dim tb0 As Object
Dim adoc As Object
Dim i, j As Integer
Dim algObj As Object
Set wrd = CreateObject("Word.Application")
wrd.Documents.Add
Set adoc = wrd.ActiveDocument
wrd.Visible = True
wrd.Activate
Set tb0 = adoc.Tables.Add(Range:=adoc.Range(Start:=0, End:=0), NumRows:=10, NumColumns:=5)
For i = 1 To tb0.Rows.Count
For j = 1 To tb0.Rows(i).Cells.Count
tb0.Cell(i, j).Range.Text = "Test"
tb0.Cell(i, j).Range.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphRight
Next j
Next i
End Sub

Option Explicit
Sub test()
Dim wrd As Object
Dim adoc As Object
Dim tb0 As Object
Dim tb1 As Object
Dim tb2 As Object
Dim rng As Object
Dim i, j, ed As Integer
Set wrd = CreateObject("Word.Application")
wrd.Documents.Add
Set adoc = wrd.ActiveDocument
wrd.Visible = True
wrd.Activate
Set rng = adoc.Range(Start:=0, End:=0)
rng.InsertBefore Text:="First Table" + vbCr
Set rng = adoc.Range
ed = rng.End - 1
Set tb0 = adoc.Tables.Add(Range:=adoc.Range(Start:=ed, End:=ed), NumRows:=5, NumColumns:=5)
For i = 1 To tb0.Rows.Count
For j = 1 To tb0.Rows(i).Cells.Count
tb0.Cell(i, j).Range.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphRight
Next j
Next i
Set rng = Nothing
Set rng = adoc.Range
rng.InsertAfter Text:=vbCr + "Second Table"
Set rng = adoc.Range
ed = rng.End - 1
Set rng = Nothing
Set tb1 = adoc.Tables.Add(Range:=adoc.Range(Start:=ed, End:=ed), NumRows:=4, NumColumns:=4)
Set rng = adoc.Range
rng.InsertAfter Text:=vbCr + "Third Table"
Set rng = adoc.Range
ed = rng.End - 1
Set rng = Nothing
Set tb2 = adoc.Tables.Add(Range:=adoc.Range(Start:=ed, End:=ed), NumRows:=4, NumColumns:=3)
End Sub