作者abliou (Art of Life)
看板Visual_Basic
标题Re: [VB6 ] 将结果输出至word
时间Wed Dec 28 20:04:09 2005
※ 引述《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有点问题...因为没有指定到该档....
应该还有修改空间...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.124.50.42
1F：推 jackg:谢谢....真的很感谢你... 12/28 20:36