-vb 创建word,vb和word

控件百：Command1.代码度如下。知
＝＝道＝＝＝＝＝＝＝＝＝
Option Explicit

Private Sub Command1_Click()
Dim doc As Object
Set doc = CreateObject("Word.Application")
doc.Documents.Add.Content.InsertAfter ("a" & vbCrLf & "b")
doc.Documents(1).SaveAs App.Path & "\aa.doc"
doc.Quit
Set doc = Nothing
MsgBox "OK"
End
End Sub