哪位大虾帮帮我,如何将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
...全文
97 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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前

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧