如何用VB在WORD中添加表格

我想用VB打开WORD并输出内容，如下图：现在的问题是文字我知道怎么写，但是不会插入表格；在下纯属自学，忘高手帮忙；我的代码如下：PublicmuluAsStringDi... 我想用VB打开WORD并输出内容，如下图：

现在的问题是文字我知道怎么写，但是不会插入表格；在下纯属自学，忘高手帮忙；我的代码如下：
Public mulu As StringDim myword As Word.ApplicationDim mydocument As Word.DocumentDim myrange As Word.RangeDim myselect As Word.SelectionDim mytable As Word.Table
Private Sub Command1_Click()On Error Resume Next
Set myword = CreateObject("word.application")
Set mydocument = myword.Documents.AddSet myrange = mydocument.Range(Start:=0, End:=0)
mydocument.Activatemyword.Visible = True
myrange.Paragraphs.Alignment = wdAlignParagraphCenterxumc = Text1.Textmyrange.InsertAfter Chr(13)myrange.InsertAfter xumc & Chr(13)myrange.InsertAfter "矿山恢复治理与环境保护与土地复垦方案" & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13)myrange.Font.Name = "黑体"myrange.Font.Size = 22
myrange.Start = myrange.Endmyrange.Paragraphs.Alignment = wdAlignParagraphCenteryzdw = Text2.Textmyrange.InsertAfter "业主单位：" & yzdw & Chr(13)myrange.Font.Name = "黑体"myrange.Font.Size = 16
.................
省去一部分代码展开

 我来答

1个回答

#热议# 生活中有哪些实用的心理学知识？

370736273
2015-06-14 · TA获得超过211个赞

知道小有建树答主

回答量：285

采纳率：66%

帮助的人：162万

我也去答题访问个人页

关注

展开全部

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=50, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "网格型" Then
.Style = "网格型"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
.ApplyStyleRowBands = True
.ApplyStyleColumnBands = False
End With

补充一下，可以用录制宏的方法查看代码学习编程，我也是在学习中