vb.net创建一个word文档并保存

引用:

Microsoft Word 11.0 Object Library

Microsoft Office 11.0 Object Library

代码如下：

 

Imports  Microsoft.Office.Interop Public   Class Form1 Class Form1    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim m_obj As Object = System.Reflection.Missing.Value        Dim app As New Word.Application        Dim doc As Word._Document        Try            doc = CType(app.Documents.Add(m_obj), Word._Document)            app.Selection.TypeText("我是塞北的雪 http://blog.csdn.net/precipitant")            doc.SaveAs("c:NorthSnow.doc")            doc.Close()            app = Nothing            MsgBox("创建word完毕")        Catch ex As Exception            MsgBox(ex.Message)        End Try    End SubEnd Class