用VB向WORD中插入一个3列6行的表格,并给每行表格插入数据^_^

最新推荐文章于 2022-05-31 22:44:38 发布

flashasp

最新推荐文章于 2022-05-31 22:44:38 发布

阅读量3k

点赞数

分类专栏： vb 文章标签： vb library object each

本文链接：https://blog.csdn.net/flashasp/article/details/1546275

版权

vb 专栏收录该内容

15 篇文章 0 订阅

订阅专栏

'必须点击菜单 "工程/引用/Microsoft Word 9.0 Object Library"
Dim wd     As New Word.Application
'插入一个3列6行的表格,并给每行表格插入数据
wd.Documents.Add DocumentType:=wdNewBlankDocument
Set oDoc = wd.ActiveDocument
    Set oTable = oDoc.Tables.Add(Range:=oDoc.Range(Start:=0, End:=0), NumRows:=6, NumColumns:=3)
    iCount = 1
    For Each oCell In oTable.Range.Cells
    oCell.Range.InsertAfter "第 " & iCount & "单元格"
    iCount = iCount + 1
    Next oCell
    oTable.AutoFormat Format:=wdTableFormatColorful2, ApplyBorders:=True, ApplyFont:=True, ApplyColor:=True
'将光标移到最后
wd.Selection.EndKey Unit:=wdStory
'插入分页符
wd.Selection.InsertBreak Type:=wdPageBreak
wd.Visible = True
wd.ShowMe
Set wd = Nothing