怎样在VB中调用Word程序在文档中新建一个表格？

Question

我下面的程序是用VB在wordDemo()函数中新建一个Word文档，然后再在文档里新建一个表格，但是不成功，t1不知定义成Table还是Object， 新建表格时出错。请大家帮忙看一下，该怎么做。
多谢!Private Sub wordDemo()
    Dim MyWord As Object, MyDocument As Object
    Dim t1 As Object
    '打开word应用程序
    Set MyWord = CreateObject("Word.Application")
    '新建文档
    Set MyDocument = MyWord.Documents.Add()
    '想在文档中增加一个表格，但是不成功
    Set t1 = MyDocument.Tables.Add(Selection.Range, 3, 2)   '显示Word
    MyWord.Visible = True
Exit Sub

Answer 1

Set t1 = MyDocument.Tables.Add(MyWord.Selection.Range, 3, 2)

Answer 2

为什么要用“MyWord”，而不是“MyDocument”？

Answer 3

Set t1 = MyDocument.Tables.Add(MyWord.Selection.Range, 3, 2)

Answer 4

Dim objWord As Object
Const CLASSOBJECT = "Word.Application"
Set objWord = CreateObject(CLASSOBJECT)
objWord.Visible = True
objWord.Documents.Add
   
Set rngRange = objWord.ActiveDocument.Range
With rngRange
.Font.Size = 14
        .InsertBreak '增加一个空页
        .Tables.Add rngRange, RoomRow, RoomColumn
        
    End With
    
    With wdDoc.Tables(1)
    For i = 1 To RoomRow
        With .Rows(i)
        For k = 1 To RoomColumn
            tmpstr = d1(k + (i - 1) * RoomColumn)
        Next
        End With
   Next
    With objWord.Documents.Tables(2)
       For i = 1 To (TotalStudent \ 2 + TotalStudent Mod 2)
        With .Rows(i)
        For k = 1 To RoomColumn
            .Cells(1).Range.Text = d5(i * 2 - 1)
            .Cells(1).Range.Font.Size = 16
            .Cells(2).Range.Text = d5(i * 2)
            .Cells(2).Range.Font.Size = 16
            .Cells(1).Range.Paragraphs.Alignment = wdAlignParagraphLeft
            .Cells(2).Range.Paragraphs.Alignment = wdAlignParagraphLeft
        Next
        End With
    Next
    End With
    
    
    Set rngRange = Nothing
    Set rnglab = Nothing
  
老提示错误：object required
达人救命啊！感谢