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

lp166 2004-09-22 09:48:44
大家帮我看看,如何将表格插入到文字后?为什么表格总插入在文字前?
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
...全文
61 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
supergreenbean 2004-09-22
你在后面新加个段落不就ok了?

Set atable = .ActiveDocument.Tables.Add(.Selection.Range, 4, 7)
改成这样看看
Set atable = .ActiveDocument.Tables.Add(RgText.Paragraphs.Add().Range, 4, 7)
回复
cosio 2004-09-22
up!
回复
jam021 2004-09-22
//Set atable = .ActiveDocument.Tables.Add(.Selection.Range, 4, 7)
在Selection.Range的下面再插一个Paragraphs,然后把光标打到新的Paragraphs前
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-09-22 09:48
社区公告
暂无公告