Question

vb中怎么将一个text的内容显示在生成的word

Answer 1

'菜单 工程-->引用 找Microsoft Word 11.0 Object.....
Dim MyText As String
Dim WDApp As New Word.Application
Dim WDDoc As New Word.Document
Set WDDoc = WDApp.Documents.Add
WDApp.Selection.TypeText Text1.Text
WDApp.DisplayAlerts = wdAlertsNone
WDApp.Documents(1).SaveAs App.Path & "\test.doc"
WDApp.Quit '退出Word文件
WDApp.DisplayAlerts = wdAlertsMessageBox
Set WDApp = Nothing
建议采纳

追问

你好，运行时，提示说WDApp.Selection.TypeText Text1.Text
这个地方没定义是怎么回事的！

追答

谢谢syx54的回复

Answer 2

楼上的＂zx001z＂已经完全帮你解决了，提醒一下，需要在VB6的[工程]菜单里选择[引用]，然后选择：
Microsoft Word XXX Object Library
其中“XXX”，是相应版本，决定于你计算机上安装的Office版本。

追问

你好，运行时，提示说WDApp.Selection.TypeText Text1.Text
这个地方没定义是怎么回事的！

追答

你要在窗体上，添加１个文本框呀？

Answer 3

在工程-->引用里引用word类型，然后在程序里定义和创建新的WORD对象就可以使用了，
比如：Public gObjWord As New Word.Application
Public gDocu As New Word.Document
Set objWordDoc = gObjWord.Documents.Open("C:\test.doc") '打开指定的word文档