| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 959 人关注过本帖
标题:vb-word表格问题
只看楼主 加入收藏
lyppengpeng
Rank: 1
来 自:北京
等 级:新手上路
帖 子:14
专家分:0
注 册:2011-5-7
结帖率:66.67%
收藏
已结贴  问题点数:0 回复次数:3 
vb-word表格问题
vb保存成word,怎么在任意位置插入新的表格。
还有就是每次怎么把光标移动到文档结尾处。
谢谢了
搜索更多相关主题的帖子: word 
2011-06-04 16:45
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:20 
Sample Source Code :
VB2Word.rar (31.04 KB)


不要選我當版主
2011-06-07 22:57
zxj710627
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2011-5-7
收藏
得分:0 
不明白知道这些有什么用呢。
2011-06-16 14:27
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
回复 3楼 zxj710627
简化后~

程序代码:
Option Explicit

'引用 Microsoft Word XX.0 Object Library
Dim wd As New Word.Application
Dim wddoc As Word.Document
Dim FileName As String
Dim iPageNumber As Integer

Private Sub cmdCommand1_Click()
    Call InsertTable(5, 6)   '插入表格
    Call MoveLastPlace      '移到最后
    Call SaveDocFile        '保存Word档案
End Sub

Private Sub Form_Initialize()
    iPageNumber = 1: FileName = "C:\1.doc"
End Sub

Private Sub Form_Load()
    wd.Documents.Add
'    wd.Visible = True
'    wd.DisplayAlerts = wdAlertsNone
    Set wddoc = wd.ActiveDocument
End Sub

Private Sub SaveDocFile()
    wddoc.SaveAs FileName
    wd.Quit
End Sub

Private Sub InsertTable(row As Integer, col As Integer)
    wddoc.Paragraphs.Item(iPageNumber).Range.Tables.Add wddoc.Paragraphs.Item(iPageNumber).Range, row, col '5行6列
End Sub

Private Sub MoveLastPlace()
    wd.Selection.MoveDown Unit:=wdLine, Count:=5 '5行
End Sub


示例只是参考用~不是代写~

不要選我當版主
2011-06-16 17:46
快速回复:vb-word表格问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017608 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved