下载 >  开发技术 >  其它 > Vb编程引用Word书签

Vb编程引用Word书签 评分:

VB访问word书签。 '实现代码如下 Dim cn As New ADODB.Connection Dim AdoRs As New ADODB.Recordset Dim WordTemps As New Word.Application Private Sub Form_Load() If cn.State = 1 Then cn.Close End If cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" End Sub '开始导出数据 Private Sub Command1_Click() Dim strSQl As String Dim REC As Integer Dim i As Integer WordTemps.Documents.Add App.Path + "\货物合同.doc", False WordTemps.Selection.GoTo wdGoToBookmark, , , "合同标题" WordTemps.Selection.TypeText "关于冬季货物的成交合同" WordTemps.Selection.GoTo wdGoToBookmark, , , "合同编号" WordTemps.Selection.TypeText "2004000001" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约单位" WordTemps.Selection.TypeText "宏大科技公司,天天科技公司" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约地址" WordTemps.Selection.TypeText "北京中关村大厦" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约时间" WordTemps.Selection.TypeText fromat(Now, "yyyy-mm-dd") strSQl = "select * from Matrixs" AdoRs.Open strSQl, cn, adOpenKeyset, adLockOptimistic REC = AdoRs.RecordCount If REC < 1 Then MsgBox "无商品记录!", vbOKOnly, "提示" AdoRs.Close Exit Sub Else AdoRs.MoveFirst WordTemps.Selection.GoTo wdGoToBookmark, , , "货物清单" For i = 1 To REC WordTemps.Selection.TypeText AdoRs!名称 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!数量 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!规格 AdoRs.MoveNext If AdoRs.EOF = False Then WordTemps.Selection.InsertRowsBelow 1 '表格换行 End If Next i AdoRs.Close WordTemps.Visible = True '显示WORD窗口 End If End Sub '实现代码如下 Dim cn As New ADODB.Connection Dim AdoRs As New ADODB.Recordset Dim WordTemps As New Word.Application Private Sub Form_Load() If cn.State = 1 Then cn.Close End If cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" End Sub '开始导出数据 Private Sub Command1_Click() Dim strSQl As String Dim REC As Integer Dim i As Integer WordTemps.Documents.Add App.Path + "\货物合同.doc", False WordTemps.Selection.GoTo wdGoToBookmark, , , "合同标题" WordTemps.Selection.TypeText "关于冬季货物的成交合同" WordTemps.Selection.GoTo wdGoToBookmark, , , "合同编号" WordTemps.Selection.TypeText "2004000001" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约单位" WordTemps.Selection.TypeText "宏大科技公司,天天科技公司" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约地址" WordTemps.Selection.TypeText "北京中关村大厦" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约时间" WordTemps.Selection.TypeText fromat(Now, "yyyy-mm-dd") strSQl = "select * from Matrixs" AdoRs.Open strSQl, cn, adOpenKeyset, adLockOptimistic REC = AdoRs.RecordCount If REC < 1 Then MsgBox "无商品记录!", vbOKOnly, "提示" AdoRs.Close Exit Sub Else AdoRs.MoveFirst WordTemps.Selection.GoTo wdGoToBookmark, , , "货物清单" For i = 1 To REC WordTemps.Selection.TypeText AdoRs!名称 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!数量 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!规格 AdoRs.MoveNext If AdoRs.EOF = False Then WordTemps.Selection.InsertRowsBelow 1 '表格换行 End If Next i AdoRs.Close WordTemps.Visible = True '显示WORD窗口 End If End Sub
...展开详情收缩
2008-10-22 上传大小:114KB
分享
收藏 举报

评论 共3条

josewong 用是可以用,但是对不起这个分咯 真心贵啊!
2013-05-21
回复
tdjie 用是可以用,但是对不起这个分咯
2012-12-25
回复
wqqr123456 不知道有没有,不过未免太贵了点!
2011-09-18
回复
VB访问word书签

讲解VB 操作控制WORD书签的方法,以及简单的例子

立即下载
vb word文档书签内内容更新的问题
Word VB API参考(全网最全最新整理)

VB访问word书签。 '实现代码如下 Dim cn As New ADODB.Connection Dim AdoRs As New ADODB.Recordset Dim WordTemps As New Word.Application Private Sub Form_Load() If cn.State = 1 Then cn.Close End If cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" End S

立即下载
vb.net操作Word中书签的问题
VB+Word做套打程序,真是折腾死了,不知有没有什么好办法?
如何用VB代码将数据写入word摸版,并打印成报表?
根据WORD文档模板书签绑定数据自动生成WORD文件下载打印

根据WORD文档模板书签绑定数据自动生成WORD文件下载打印

立即下载
使用VB对word文档进行格式调整
请教,想用vb和access,及word模板格式化输出“合同”,有源代码看不懂,能否帮我解释一下
VB操作WORD光标定位并输出表格
正要用VB+WORD进行打印,如何替换WORD模板的参数,高手请看详情
VBA是如何在word中输出一个换行的!
急急急!!!各位大虾,怎样在vb中修改word中的书签的颜色?
如何在VB中设置WORD文档的书签?
VB操作word文档有API参考文档吗?初学者一头雾水啊
VB根据Word模板生成文档并根据书签插入变量+VS2012 Web模式+附带模板

VB根据Word模板生成文档并根据书签插入变量+VS2012 Web模式+附带模板

立即下载
vb.net操作word

1、打开word后可以更改页脚,里面的数据。 2、可以绘制表格。 3、标记word书签对编辑的书签进行删除,增加,更改, 4、删除空白页。 5、遍历书签删除内容。 6、更改字体设置对其等。 7、打开两份word对其进行复制粘贴。 8、

立即下载
VB6.0从入门到精通(带书签)

本书是VB程序设计的入门图书,从VB的基本语法结构开始,引领读者一步步掌握高级知识,同时使读者能够实现用户界面的设计、对图表的控制以及类模块的使用和对数据库的操作等高端应用。 本书知识全面,结构上面向初学者由浅入深地进行介绍,同时安排了大量的VB应用实例来帮助读者掌握设计理念和操作技巧,使读者入门后能够得到进一步的提高。本书适用于需要掌握VB程序设计的初级用户,同时能够帮助已获得入门知识的中级用户进一步提高。

立即下载
Java通过word模板配置书签生成word

Java通过word模板配置书签生成word,这个是公司内部代码直接可以运行

立即下载
VB.NET实现调用WORD模板写入数据并生成新的WORD文档

VB.NET实现将数据导入WORD模板中,并生成新的WORD文档,需要在WORD中设置书签,用数据替换即可。可以将图片导入WORD,但是无法控制图片位置。

立即下载
img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
点击完成任务获取下载码
输入下载码
为了良好体验,不建议使用迅雷下载
img

Vb编程引用Word书签

会员到期时间: 剩余下载个数: 剩余C币: 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
3 0 0
为了良好体验,不建议使用迅雷下载
VIP和C币套餐优惠
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载
您还未下载过该资源
无法举报自己的资源

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

  • 举报人:
  • 被举报人:
  • *类型:
    • *投诉人姓名:
    • *投诉人联系方式:
    • *版权证明:
  • *详细原因: