Question

VB 生成word文档

我有一个窗体，需要点击按钮生成word, text1中的内容写进word.

已经在工程-引用中添加miscorsoft word12.0 object library
求按钮中的代码？？？？？？>>>>>>

您可以参考一下代码：(不过以下有问题，点击按钮后，没有新word打开，见不到新生成的word)
Private Sub Command1_Click()

Dim MyWord As Word.Application
Dim MyDocument As Word.Document

Dim MyRange As Word.Range
Dim MySelect As Word.Selection
Dim mytable As Word.Table

On Error Resume Next
Set MyWord = CreateObject("Word.Application")
Set MyWordBook = MyWord.Documents.Add(App.Path & "\" & strFile & ".doc")
' Set MyDocument = MyWord.Documents.Add
Set MyRange = MyDocument.Range(Start:=0, End:=0)
MyDocument.Activate
MyWord.Visible = True
end sub

Answer 1

Dim ap As Word.Application, doc As Document

Private Sub Form_Load() '这个过程不必做修改，是建立一个新的Word文档
Set ap = CreateObject("word.application")
ap.Visible = False
Set doc = ap.Documents.Add
End Sub

Private Sub Command1_Click()
'doc.Content.InsertAfter Text:="请输入你要输入的内容" '插入文字，请使用这种格式
doc.Content.InsertAfter Text1.Text
doc.SaveAs App.Path & "\a.doc"
doc.Close
End Sub

追问

能否把工程文件上传，这短代码我在本地试了不行。

追答

运行工程，按下按钮就在工程文件夹形成一个“a.doc”的Word文档，内容是Text1的内容