VB。net调用Word

写word文件代码：

Dim wordApp As New Word.Application

Dim objSelection As Word.Selection

Dim Title As String = "K388+400常胜沟大桥"

wordApp.Documents.Add()

oDocument = wordApp.ActiveDocument

objSelection = wordApp.Selection

wordApp.Selection.TypeText(Title)

objSelection.TypeParagraph()

wordApp.Selection.TypeText("一、桥梁基本状况卡片")

objSelection.TypeParagraph()

wordApp.Selection.TypeText("A行政数据识别，B技术结构数据")

objSelection.TypeParagraph()

wordApp.Selection.TypeText("A行政数据识别。B技术结构数据。C档案资料（全、不全、或无）。D最近技术状况评定")

objSelection.InsertBreak() '插入分页符，相当于2个字符

objSelection.TypeText("E修建工程记录")

SetRange(1)

With wordApp.Selection

.Font.Size = 18 '字体（小二）

.ParagraphFormat.Alignment = 1 '水平居中

.Font.Bold = True

End With

SetRange(2)

With wordApp.Selection

.Font.Size = 14 '字体（四）

.Font.Bold = True

= "华文琥珀"

End With

SetRange(25, 44, True)

With wordApp.Selection

.Font.Size = 9 '字体（小五）

.Font.Bold = True

.Font.Italic = True

End With

SetRange(4, 2)

With wordApp.Selection

.Font.Size = 9 '字体（小五）

.Font.Bold = True

End With

'文件保存

oDocument.SaveAs("d:\" & Title & ".doc") wordApp.Visible = True