CSDN论坛 > VB > VB基础类

急救:VB调用WORD打开文件怎么不好用了? [问题点数:20分,结帖人konglin]

Bbs2
本版专家分:147
结帖率 100%
CSDN今日推荐
Bbs9
本版专家分:61844
Blank
黄花 2004年7月 VB大版内专家分月排行榜第二
2004年4月 VB大版内专家分月排行榜第二
2003年10月 VB大版内专家分月排行榜第二
Blank
蓝花 2004年9月 Java大版内专家分月排行榜第三
2003年9月 VB大版内专家分月排行榜第三
Bbs10
本版专家分:123378
Blank
进士 2003年 总版技术专家分年内排行榜第十
Blank
铜牌 2003年7月 总版技术专家分月排行榜第三
Blank
微软MVP 2013年7月 荣获微软MVP称号
2012年7月 荣获微软MVP称号
2006年1月 荣获微软MVP称号
2008年1月 荣获微软MVP称号
2007年1月 荣获微软MVP称号
2005年1月 荣获微软MVP称号
2003年9月 荣获微软MVP称号
Blank
红花 2003年9月 VB大版内专家分月排行榜第一
2003年8月 VB大版内专家分月排行榜第一
2003年7月 VB大版内专家分月排行榜第一
2003年6月 VB大版内专家分月排行榜第一
2003年5月 VB大版内专家分月排行榜第一
2003年4月 VB大版内专家分月排行榜第一
Bbs3
本版专家分:595
Bbs10
本版专家分:123378
Blank
进士 2003年 总版技术专家分年内排行榜第十
Blank
铜牌 2003年7月 总版技术专家分月排行榜第三
Blank
微软MVP 2013年7月 荣获微软MVP称号
2012年7月 荣获微软MVP称号
2006年1月 荣获微软MVP称号
2008年1月 荣获微软MVP称号
2007年1月 荣获微软MVP称号
2005年1月 荣获微软MVP称号
2003年9月 荣获微软MVP称号
Blank
红花 2003年9月 VB大版内专家分月排行榜第一
2003年8月 VB大版内专家分月排行榜第一
2003年7月 VB大版内专家分月排行榜第一
2003年6月 VB大版内专家分月排行榜第一
2003年5月 VB大版内专家分月排行榜第一
2003年4月 VB大版内专家分月排行榜第一
Bbs2
本版专家分:147
Bbs4
本版专家分:1584
Bbs3
本版专家分:622
Blank
红花 2009年8月 其他开发语言大版内专家分月排行榜第一
Blank
黄花 2009年8月 扩充话题大版内专家分月排行榜第二
匿名用户不能发表回复!
其他相关推荐
用VB+WORD模版+数据库来制作格式合同的方法
用VB+WORD模版+数据库来制作格式合同的方法 概述:在应用程序中经常有定制格式报表的需要,如打印合同、货物清单、备忘录等等,使用第三方报表软件可以实现但是比较繁琐,实际上利用Word的自动化编程,使用VBA可以完成类似的功能,而且很实用。 步骤一、word模版制作: 在第一行是合同标题 " 【书签1合同标题xxxxxxxx合同】" 第二行        
qt中打开excel、word等文件方法
这样即可,调用excel并打开文件 QFile file(fileName); if (file.exists())  { QDesktopServices::openUrl(QUrl::fromLocalFile(fileName)); } 如果是调用exe程序直接这样,比如打开计算器 QProcess process; process.execute(“C:/Windows/S
用VB打开记事本并写入数据然后保存
a
怎样在VB中控制WORD
    使用VB编程时,有时需要调用Microsoft Word对文字进行编辑、排版及输出。为实现这种调用,可以使用Shell函数、OLE自动化、在包容器中嵌入Word对象等方法。经过试用和比较,总结出了这几种方法的各自特点。 1 使用Shell函数直接调用    语法:Shell (pathname[,windowstyle]).Pathname是指要执行的程序的名字和任何必须的参数或命令行开关
VB 调用Word打印
VB 调用Word打印 VB 调用Word打印 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
如何用vb将计算结果输出到word中?
 我想通过保存按钮将文本框中的文字输出到word文档中,开始运行的很好,但后来改动界面后不知怎么不行了。同样的代码在word宏中也是有时可以运行,有时就进行不下去。请大侠多指教!程序界面和程序编辑界面分别如上!代码如下:Private Sub Command1_Click()AddOut_WordEnd SubPrivate Sub Command2_Click
安卓开发调用第三方应用(如WPS)打开文档(比如Word),如何设置文件只读,不能被修改?
新手菜鸟,求详细点的方法,拜谢
office 2007 Word 中鼠标不好用的解决办法
既然写在随笔里,先啰嗦两句,嘿嘿。昨天晚上由于使用的需要,安装了PowerDesigner 12.5做数据库设计。今天早上打开Word发现用鼠标在 word里不好用,还以为系统出了问题,重启,仍然不好使,难到是office 2007的bug?  不知道什么原因,只好上网搜索,看到网上的文章中(具体是谁写的不记得了)写是由于安装了PowerDesigner 后,由于PD的office 插件引起的
如何在VB 中直接打开并选择目录,而不使用麻烦的多个控件?
   之前使用过一种方法,很简单,在VB6 或 VBA 中均可使用,代码如下:    * 但有一个前提条件,因使用到 Shell32.DLL ,故必须先引用 "Microsoft Shell Controls And Automation" 才可以正常使用。     Dim objShell As New Shell32.Shell    Dim oFd As Shell32.Fo
关闭