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 Sub
End Class