哪位大虾帮帮我，如何将vb中数据以表格形式插入word文档文字后？谢谢谢谢！

[lp166]

大家帮我看看，如何将表格插入到文字后？为什么表格总插入在文字前？
Dim wdapp As Word.Application
Set wddoc = wdapp.Documents.Add
Set RgText = wddoc.Paragraphs(1).Range
'生成段落区域
RgText.Font.Size = 10
RgText.ParagraphFormat.Alignment = wdAlignParagraphLeft '居左
RgText.Sections(1).Range.InsertBefore "地形图" & vbCrLf & vbCrLf

With wdapp
.Visible = True
.Activate
'在word中增加一个表格
Set atable = .ActiveDocument.Tables.Add(.Selection.Range, 4, 7)
End With

[jam021]

//Set atable = .ActiveDocument.Tables.Add(.Selection.Range, 4, 7)
在Selection.Range的下面再插一个Paragraphs,然后把光标打到新的Paragraphs前

[cosio]

up！

[supergreenbean]

你在后面新加个段落不就ok了？

Set atable = .ActiveDocument.Tables.Add(.Selection.Range, 4, 7)
改成这样看看
Set atable = .ActiveDocument.Tables.Add(RgText.Paragraphs.Add().Range, 4, 7)