程序代码：

Private Sub Form_Load()
Dim wrd  As Object
Dim MyWord  As Object
Set wrd = CreateObject("Word.Application")
Set MyWord = wrd.Documents.Add
MyWord.SaveAs "c:\test.doc"  '只能是doc格式，否则文件打不开
MyWord.Close
Set wrd = Nothing
End Sub