引用:
Microsoft Word 11.0 Object Library
Microsoft Office 11.0 Object Library
代码如下：
Imports Microsoft.Office.Interop
Public Class Form1Class 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