关于WORD文档的导出

Public Class ExportWord

    Dim wordApp As Word.Application = New Word.Application()
    Dim wordDocu As Word.Document = New Word.Document()
    Dim myNothing As Object = Missing.Value

    Public Function CreateWord() As Boolean
        wordDocu = wordApp.Documents.Add(myNothing, myNothing, myNothing, myNothing)

        '添加页眉
        wordApp.ActiveWindow.View.Type = WdViewType.wdOutlineView
        wordApp.ActiveWindow.View.SeekView = WdSeekView.wdSeekPrimaryHeader
        wordApp.Selection.InsertAfter("*****服务热线")
        wordApp.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
        '跳出页眉设置
        wordApp.ActiveWindow.View.SeekView = WdSeekView.wdSeekMainDocument

        '插入文字，设置字体样式
        wordApp.Application.Selection.Font.Size = 12
        wordApp.Application.Selection.Font.Bold = 5
        wordApp.Application.Selection.Font.Color = WdColor.wdColorBlack
        wordApp.Application.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
        wordApp.Application.Selection.TypeText("二○一三年十月份**热线情况说明")

        '换行
        wordApp.Application.Selection.TypeParagraph()

        '插入图片
        wordApp.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
        wordApp.Application.Selection.InlineShapes.AddPicture("C:WindowsWebWallpaperWindows1 (3).jpg", myNothing, myNothing, myNothing)

        '保存文件
        Dim myFileName = "C:UsersAdministratorDesktop1.doc"
        Dim myWordFormatDocument As Object = Word.WdSaveFormat.wdFormatDocument
        Dim myLockd As Object = False
        Dim myPassword As Object = ""
        Dim myAddto As Object = True
        Try
            wordDocu.SaveAs(myFileName, myWordFormatDocument, myLockd, myPassword, myAddto, myPassword, myLockd, myLockd, myLockd, myLockd, myNothing, myNothing, myNothing, myNothing, myNothing, myNothing)

        Catch ex As Exception

        End Try

    End Function
 
End Class