作者jackg (滚~~西~~)
看板Visual_Basic
标题Re: [VB6 ] 将结果输出至word
时间Wed Dec 28 22:13:56 2005
※ 引述《abliou (Art of Life)》之铭言：
: ※ 引述《jackg (滚~~西~~)》之铭言：
: : 请问各位大大
: : 如果我用vb做运算,算出0~9等数字
: : 要如何让结果输出至word档呢
: 请引用word涵式库..
: 写入方法大如下....
: ========================================================================
: Dim wdapp As Word.Application
: Dim sel As Word.Selection
: Dim doc As Word.Document
: Private Sub Form_Load()
: Set wdapp = CreateObject("word.application")
: Set doc = wdapp.Documents.Open(App.Path & "\test.doc")
: Set sel = wdapp.Selection
: sel.TypeText ("ERWERWERWRE")
: sel.TypeText ("sdfhjsdgfhsdgkjfagsdhjfakdsfa")
: doc.Close
: End Sub
: =============================================================================
: 这段程式码会在你存放这段script档案的路径下的test.doc档中写入
: "ERWERWERWRE"和"sdfhjsdgfhsdgkjfagsdhjfakdsfa"
: 我是觉得这段script有点问题...因为没有指定到该档....
: 应该还有修改空间...
Sub Form_Load()
Dim wdapp As Word.Application <----使用者尚未定义是指??
Dim sel As Word.Selection
Dim doc As Word.Document
Set wdapp = CreateObject("word.application")
Set doc = wdapp.Documents.Open("d:\ 功课\1.doc") <----这是我的WORD档位置
Set sel = wdapp.Selection
sel.TypeText ("Str(finalitem(0))") <-----这是我要读值输出的地方
doc.Close
End Sub
不太行~~~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.225.16.115
1F：推 abliou:请引用word函式库.. 12/28 23:56
2F：推 jackg:弄出来了,感谢这一位仁兄~~~ 12/29 17:47