Re: [VB6 ] 將結果輸出至word

[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有點問題...因為沒有指定到該檔....

應該還有修改空間...

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.124.50.42
推 jackg:謝謝....真的很感謝你...