vb控制word

Question

大侠好！
    我想在word里插入一个三行五列的表格该怎么操作啊！谢谢！

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    '点击菜单 "工程/引用/Microsoft Word 9.0 Object Library"    Dim wd As New Word.Application
    
    wd.Documents.Add DocumentType:=wdNewBlankDocument
    '插入一个5列3行的表格
    wd.ActiveDocument.Tables.Add Range:=wd.Selection.Range, NumRows:=3, NumColumns _
        :=5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    
    wd.Selection.EndKey Unit:=wdStory '将光标移到最后
    wd.Selection.InsertBreak Type:=wdPageBreak '插入分页符
    wd.Visible = True
    wd.ShowMe
    
End Sub

Answer 2

你可以用word录制宏，看一下代码就知道了