Private oWordApplic As Word.ApplicationPrivate oDocument As Word.DocumentPrivate oRange As Word.RangePrivate oSelection As Word.SelectionPublic Sub Neword()'激活com word接口oWordApplic = New Word.ApplicationoWordApplic.Visible = TrueEnd Sub'设置选定文本Public Sub SetRange(ByVal para As Integer)oRange = oDocument.Paragraphs(para).RangeoRange.Select()End SubPublic Sub SetRange(ByVal para As Integer, ByVal sent As Integer)oRange = oDocument.Paragraphs(para).Range.Sentences(sent)oRange.Select()End SubPublic Sub SetRange(ByVal startpoint As Integer, ByVal endpoint As Integer, ByVal flag As Boolean)If flag = True ThenoRange = oDocument.Range(startpoint, endpoint)oRange.Select()ElseEnd IfEnd Sub'生成空的新文档Public Sub NewDocument()Dim missing = System.Reflection.Missing.ValueDim isVisible As Boolean = TrueoDocument = oWordApplic.Documents.Add(missing, missing, missing, missing)oDocument.Activate()End Sub'使用模板生成新文档Public Sub NewDocWithModel(ByVal FileName As String)Dim missing = System.Reflection.Missing.ValueDim isVisible As Boolean = TrueDim strName As StringstrName = FileNameoDocument = oWordApplic.Documents.Add(strName, missing, missing, isVisible)oDocument.Activate()End Sub'打开已有文档Public Sub OpenFile(ByVal FileName As String)Dim strName As StringDim isReadOnly As BooleanDim isVisible As BooleanDim missing = System.Reflection.Missing.ValuestrName = FileNameisReadOnly = FalseisVisible = TrueoDocument = oWordApplic.Documents.Open(strName, missing, isReadOnly, missing, missing, missing, missing, missing, missing, missing, missing, isVisible, missing, missing, missing, missing)oDocument.Activate()End SubPublic Sub OpenFile(ByVal FileName As String, ByVal isReadOnly As Boolean) Dim strName As StringDim isVisible As BooleanDim missing = System.Reflection.Missing.ValuestrName = FileNameisVisible = TrueoDocument = oWordApplic.Documents.Open(strName, missing, isReadOnly, missing, missing, missing, missing, missing, missing, missing, missing, isVisible, missing, missing, missing, missing)oDocument.Activate()End Sub'退出WordPublic Sub Quit()Dim missing = System.Reflection.Missing.ValueoWordApplic.Quit()System.Runtime.InteropServices.Marshal.ReleaseComObject(oWordApplic)oWordApplic = NothingEnd Sub'关闭所有打开的文档Public Sub CloseAllDocuments()oWordApplic.Documents.Close(Word.WdSaveOptions.wdDoNotSaveChanges)End Sub'关闭当前的文档Public Sub CloseCurrentDocument()oDocument.Close(Word.WdSaveOptions.wdDoNotSaveChanges)End Sub'保存当前文档Public Sub Save()TryoDocument.Save()CatchMsgBox(Err.Description)End TryEnd Sub'另存为文档Public Sub SaveAs(ByVal FileName As String)Dim strName As StringDim missing = System.Reflection.Missing.ValuestrName = FileNameoDocument.SaveAs(strName, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)End Sub'保存为Html文件Public Sub SaveAsHtml(ByVal FileName As String)Dim missing = System.Reflection.Missing.ValueDim strName As StringstrName = FileNameDim format = CInt(Word.WdSaveFormat.wdFormatHTML)oDocument.SaveAs(strName, format, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)End Sub'插入文本Public Sub InsertText(ByVal text As String)oWordApplic.Selection.TypeText(text)End Sub'插入一个空行Public Sub InsertLineBreak()oWordApplic.Selection.TypeParagraph()End Sub'插入指定行数的空行Public Sub InsertLineBreak(ByVal lines As Integer)Dim i As IntegerFor i = 1 To linesoWordApplic.Selection.TypeParagraph()NextEnd Sub'插入表格Public Sub InsertTable(ByRef table As DataTable)Dim oTable As Word.TableDim rowIndex, colIndex, NumRows, NumColumns As IntegerrowIndex = 1colIndex = 0NumRows = table.Rows.Count + 1NumColumns = table.Columns.CountoTable = oDocument.Tables.Add(oWordApplic.Selection.Range(), NumRows, NumColumns)'初始化列Dim Row As DataRowDim Col As DataColumnFor Each Col In table.ColumnscolIndex = colIndex + 1oTable.Cell(1, colIndex).Range.InsertAfter(Col.ColumnName)Next'将行添入表格For Each Row In table.RowsrowIndex = rowIndex + 1colIndex = 0For Each Col In table.ColumnscolIndex = colIndex + 1oTable.Cell(rowIndex, colIndex).Range.InsertAfter(Row(Col.ColumnName)) NextNextoTable.AllowAutoFit = TrueoTable.ApplyStyleFirstColumn = TrueoTable.ApplyStyleHeadingRows = TrueEnd Sub'设置对齐Public Sub SetAlignment(ByVal strType As String)Select Case strTypeCase"center"oWordApplic.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenterCase"left"oWordApplic.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeftCase"right"oWordApplic.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRightCase"justify"oWordApplic.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustifyEnd SelectEnd Sub'设置字体Public Sub SetFontStyle(ByVal strFont As String)Select Case strFontCase"bold"oWordApplic.Selection.Font.Bold = 1Case"italic"oWordApplic.Selection.Font.Italic = 1Case"underlined"oWordApplic.Selection.Font.Subscript = 1End SelectEnd Sub'取消字体风格Public Sub DissableStyle()oWordApplic.Selection.Font.Bold = 0oWordApplic.Selection.Font.Italic = 0oWordApplic.Selection.Font.Subscript = 0End Sub'设置字体字号Public Sub SetFontSize(ByVal nSize As Integer)oWordApplic.Selection.Font.Size = nSizeEnd Sub'跳过本页Public Sub InsertPageBreak()Dim pBreak As IntegerpBreak = CInt(Word.WdBreakType.wdPageBreak)oWordApplic.Selection.InsertBreak(pBreak)End Sub'转到书签Public Sub GotoBookMark(ByVal strBookMark As String)Dim missing = System.Reflection.Missing.ValueDim BookMark = CInt(Word.WdGoToItem.wdGoToBookmark)oWordApplic.Selection.GoTo(BookMark, missing, missing, strBookMark) End Sub'判断书签是否存在Public Function BookMarkExist(ByVal strBookMark As String) As BooleanDim Exist As BooleanExist = oDocument.Bookmarks.Exists(strBookMark)Return ExistEnd Function'转到文档结尾Public Sub GotoTheEnd()Dim missing = System.Reflection.Missing.ValueDim unit = Word.WdUnits.wdStoryoWordApplic.Selection.EndKey(unit, missing)End Sub'转到文档开头Public Sub GotoTheBegining()Dim missing = System.Reflection.Missing.ValueDim unit = Word.WdUnits.wdStoryoWordApplic.Selection.HomeKey(unit, missing)End Sub'转到表格Public Sub GotoTheTable(ByVal ntable As Integer)'Dim missing = System.Reflection.Missing.Value'Dim what = Word.WdGoToItem.wdGoToTable'Dim which = Word.WdGoToDirection.wdGoToFirst'Dim count = ntable'oWordApplic.Selection.GoTo(what, which, count, missing)'oWordApplic.Selection.ClearFormatting()'oWordApplic.Selection.Text = ""oRange = oDocument.Tables(ntable).Cell(1, 1).RangeoRange.Select()End Sub'转到表格的某个单元格Public Sub GotoTableCell(ByVal ntable As Integer, ByVal nRow As Integer, ByVal nColumn As Integer)oRange = oDocument.Tables(ntable).Cell(nRow, nColumn).RangeoRange.Select()End Sub'表格中转到右面的单元格Public Sub GotoRightCell()Dim missing = System.Reflection.Missing.ValueDim direction = Word.WdUnits.wdCelloWordApplic.Selection.MoveRight(direction, missing, missing) End Sub'表格中转到左面的单元格Public Sub GotoLeftCell()Dim missing = System.Reflection.Missing.ValueDim direction = Word.WdUnits.wdCelloWordApplic.Selection.MoveLeft(direction, missing, missing)End Sub'表格中转到下面的单元格Public Sub GotoDownCell()Dim missing = System.Reflection.Missing.ValueDim direction = Word.WdUnits.wdCelloWordApplic.Selection.MoveDown(direction, missing, missing)End Sub'表格中转到上面的单元格Public Sub GotoUpCell()Dim missing = System.Reflection.Missing.ValueDim direction = Word.WdUnits.wdCelloWordApplic.Selection.MoveUp(direction, missing, missing)End Sub'插入图片Public Sub InsertPic(ByVal FileName As String)Dim missing = System.Reflection.Missing.ValueoWordApplic.Selection.InlineShapes.AddPicture(FileName, False, True, missing) End Sub。