VB中如何將text導入word並保存，要簡單代碼

-----------------------------------------------------------------------------新建文檔

Private Sub Command1_Click()

Dim App As Object

Set App = CreateObject("word.application") '創建word對象

With App.documents.Add '添加壹個空白文檔

.Content.InsertAfter Text1.Text '在文檔後面插入text1的內容

.saveas "d:\123.doc" '保存

.Close True '關閉 文檔

App.quit '退出word程序

End With

End Sub

----------------------------------------------------------------------------打開以有文檔

Private Sub Command1_Click()

Dim App As Object

Set App = CreateObject("word.application") '創建word對象

With App.documents.open("d:\123.doc") '打開文檔

.Content.InsertAfter Text1.Text '在文檔後面插入text1的內容

.save '保存

.Close True '關閉 文檔

App.quit '退出word程序

End With

End Sub

上一篇:魔獸世界至尊天神聲望到崇拜給什麽

下一篇:揉搓線的選股公式