VBNET操作word文档代码

1Public Class WordOpLib 2 3

4 Private oWordApplic As Word.ApplicationClass 5 Private oDocument As Word.Document 6 Private oRange As Word.Range 7 Private oShape As Word.Shape

8 Private oSelection As Word.Selection 9 10

11 Public Sub New()

12 '激活com word接口

13 oWordApplic = New Word.ApplicationClass 14 oWordApplic.Visible = False 15

16 End Sub

17 '设置选定文本

18 Public Sub SetRange(ByVal para As Integer)

19 oRange = oDocument.Paragraphs(para).Range 20 oRange.Select() 21 End Sub

22 Public Sub SetRange(ByVal para As Integer, ByVal sent As Integer) 23 oRange = oDocument.Paragraphs(para).Range.Sentences(sent) 24 oRange.Select() 25 End Sub

26 Public Sub SetRange(ByVal startpoint As Integer, ByVal endpoint As Integer, ByVal flag As Boolean)

27 If flag = True Then

28 oRange = oDocument.Range(startpoint, endpoint) 29 oRange.Select() 30 Else 31

32 End If 33 End Sub 34

35 '生成空的新文档

36 Public Sub NewDocument()

37 Dim missing = System.Reflection.Missing.Value 38 Dim isVisible As Boolean = True

39 oDocument = oWordApplic.Documents.Add(missing, missing, missing, missing) 40 oDocument.Activate() 41 End Sub

42 '使用模板生成新文档

43 Public Sub NewDocWithModel(ByVal FileName As String) 44 Dim missing = System.Reflection.Missing.Value 45 Dim isVisible As Boolean = False 46 Dim strName As String 47 strName = FileName

48 oDocument = oWordApplic.Documents.Add(strName, missing, missing, isVisible) 49 oDocument.Activate() 50 End Sub

51 '打开已有文档

52 Public Sub OpenFile(ByVal FileName As String) 53 Dim strName As String Dim isReadOnly As Boolean 55 Dim isVisible As Boolean

56 Dim missing = System.Reflection.Missing.Value 57

58 strName = FileName 59 isReadOnly = False 60 isVisible = True 61

62 oDocument = oWordApplic.Documents.Open(strName, missing, isReadOnly, missing, missing, missing, missing, missing, missing, missing, missing, isVisible, missing, missing, missing, missing)

63 oDocument.Activate()

65 End Sub

66 Public Sub OpenFile(ByVal FileName As String, ByVal isReadOnly As Boolean) 67 Dim strName As String 68 Dim isVisible As Boolean

69 Dim missing = System.Reflection.Missing.Value 70

71 strName = FileName 72 isVisible = True 73

74 oDocument = oWordApplic.Documents.Open(strName, missing, isReadOnly, missing, missing, missing, missing, missing, missing, missing, missing, isVisible, missing, missing, missing, missing)

75 oDocument.Activate() 76 End Sub 77 '退出Word

78 Public Sub Quit()

79 Dim missing = System.Reflection.Missing.Value 80 oWordApplic.Quit()

81 System.Runtime.InteropServices.Marshal.ReleaseComObject(oWordApplic)

82 oWordApplic = Nothing 83 End Sub

84 '关闭所有打开的文档

85 Public Sub CloseAllDocuments()

86 oWordApplic.Documents.Close(Word.WdSaveOptions.wdDoNotSaveChanges) 87 End Sub

88 '关闭当前的文档

Public Sub CloseCurrentDocument() 90

91 oDocument.Close(Word.WdSaveOptions.wdDoNotSaveChanges) 92 End Sub

93 '保存当前文档 94 Public Sub Save() 95 Try

96 oDocument.Save() 97 Catch

98 MsgBox(Err.Description) 99 End Try 100 End Sub 101 '另存为文档

102 Public Sub SaveAs(ByVal FileName As String) 103 Dim strName As String

104 Dim missing = System.Reflection.Missing.Value 105

106 strName = FileName 107

108 oDocument.SaveAs(strName, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing) 109 End Sub

110 '保存为Html文件

111 Public Sub SaveAsHtml(ByVal FileName As String) 112 Dim missing = System.Reflection.Missing.Value 113 Dim strName As String 114

115 strName = FileName

116 Dim format = CInt(Word.WdSaveFormat.wdFormatHTML) 117

118 oDocument.SaveAs(strName, format, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing) 119 End Sub 120 '插入文本

121 Public Sub InsertText(ByVal text As String) 122 oWordApplic.Selection.TypeText(text) 123 End Sub

124 '插入一个空行

125 Public Sub InsertLineBreak()

126 oWordApplic.Selection.TypeParagraph() 127 End Sub

128 '插入指定行数的空行

129 Public Sub InsertLineBreak(ByVal lines As Integer) 130 Dim i As Integer 131 For i = 1 To lines

132 oWordApplic.Selection.TypeParagraph() 133 Next 134 End Sub 135 '插入表格

136 Public Sub InsertTable(ByRef table As DataTable) 137 Dim oTable As Word.Table

138 Dim rowIndex, colIndex, NumRows, NumColumns As Integer 139 rowIndex = 1 140 colIndex = 0

141 If (table.Rows.Count = 0) Then 142 Exit Sub 143 End If 144

145 NumRows = table.Rows.Count + 1 146 NumColumns = table.Columns.Count

147 oTable = oDocument.Tables.Add(oWordApplic.Selection.Range(), NumRows, NumColumns) 148 149

150 '初始化列

151 Dim Row As DataRow 152 Dim Col As DataColumn

153 'For Each Col In table.Columns 1 ' colIndex = colIndex + 1

155 ' oTable.Cell(1, colIndex).Range.InsertAfter(Col.ColumnName) 156 'Next 157

158 '将行添入表格

159 For Each Row In table.Rows 160 rowIndex = rowIndex + 1 161 colIndex = 0

162 For Each Col In table.Columns 163 colIndex = colIndex + 1 1 colIndex).Range.InsertAfter(Row(Col.ColumnName)) 165 Next

oTable.Cell(rowIndex,

166 Next

167 oTable.Rows(1).Delete() 168 oTable.AllowAutoFit = True

169 oTable.ApplyStyleFirstColumn = True 170 oTable.ApplyStyleHeadingRows = True 171

172 End Sub

173 '插入表格(修改为在原有表格的基础上添加数据)

174 Public Sub InsertTable2(ByRef table As DataTable, ByVal strbmerge As String, ByVal totalrow As Integer)

175 Dim oTable As Word.Table

176 Dim rowIndex, colIndex, NumRows, NumColumns As Integer 177 Dim strm() As String 178 Dim i As Integer 179 rowIndex = 1 180 colIndex = 0 181

182 If (table.Rows.Count = 0) Then 183 Exit Sub 184 End If 185

186 NumRows = table.Rows.Count + 1 187 NumColumns = table.Columns.Count

188 'oTable = oDocument.Tables.Add(oWordApplic.Selection.Range(), NumRows, NumColumns) 1 190

191 '初始化列

192 Dim Row As DataRow 193 Dim Col As DataColumn

194 'For Each Col In table.Columns 195 ' colIndex = colIndex + 1

196 ' oTable.Cell(1, colIndex).Range.InsertAfter(Col.ColumnName) 197 'Next 198

199 '将行添入表格

200 For Each Row In table.Rows 201 colIndex = 0 202 GotoRightCell()

203 oWordApplic.Selection.InsertRows(1) 204 For Each Col In table.Columns 205 GotoRightCell()

206 colIndex = colIndex + 1 207 Try

208 oWordApplic.Selection.TypeText(Row(Col.ColumnName)) 209 Catch ex As Exception

210 oWordApplic.Selection.TypeText(\" \") 211 End Try

212 'oWordApplic.Selection.Cell(rowIndex, colIndex).Range.InsertAfter(Row(Col.ColumnName)) 213 Next 214 Next

215 '如果strbmerge不为空.则要合并相应的行和列 216 If strbmerge.Trim().Length <> 0 Then 217 strm = strbmerge.Split(\";\") 218 For i = 1 To strm.Length - 1

219 If strm(i).Split(\

220 MergeDouble(totalrow, strm(0), strm(i).Split(\strm(i).Split(\

221 End If

222 MergeSingle(totalrow, strm(0), strm(i)) 223 Next 224 End If

225 '删除可能多余的一行 226 'GotoRightCell() 227 'GotoDownCell()

228 'oWordApplic.Selection.Rows.Delete() 229 'oTable.AllowAutoFit = True

230 'oTable.ApplyStyleFirstColumn = True 231 'oTable.ApplyStyleHeadingRows = True 232 End Sub

233 '插入表格(专门适应工程结算工程量清单)

234 Public Sub InsertTableQD(ByRef table As DataTable, ByRef table1 As DataTable) 235 Dim oTable As Word.Table

236 Dim rowIndex, colIndex, NumRows, NumColumns As Integer 237 Dim xmmc As String 238 Dim i As Integer 239 Dim j As Integer 240 rowIndex = 1 241 colIndex = 0 242

243 If (table.Rows.Count = 0) Then 244 Exit Sub 245 End If 246

247 NumRows = table.Rows.Count + 1 248 NumColumns = table.Columns.Count

249 'oTable = oDocument.Tables.Add(oWordApplic.Selection.Range(), NumRows,

NumColumns) 250 251

252 '初始化列

253 Dim Row As DataRow 2 Dim rowtemp As DataRow 255 Dim row1() As DataRow 256 Dim Col As DataColumn 257 Dim coltemp As DataColumn 258 'For Each Col In table.Columns 259 ' colIndex = colIndex + 1

260 ' oTable.Cell(1, colIndex).Range.InsertAfter(Col.ColumnName) 261 'Next 262

263 '将行添入表格

2 For Each Row In table.Rows 265 colIndex = 0

266 xmmc = Row(\"项目名称\") 267 GotoRightCell()

268 oWordApplic.Selection.InsertRows(1) 269 For Each Col In table.Columns 270 GotoRightCell() 271 Try

272 If (Col.ColumnName = \"项目序号\") Then 273

oWordApplic.Selection.TypeText(intToUpint(Val(Row(Col.ColumnName)))) 274 Else

275 oWordApplic.Selection.TypeText(Row(Col.ColumnName)) 276 End If

277 Catch ex As Exception

278 oWordApplic.Selection.TypeText(\" \") 279 End Try

280 'oWordApplic.Selection.Cell(rowIndex, colIndex).Range.InsertAfter(Row(Col.ColumnName)) 281 Next

282 row1 = table1.Select(\"项目名称='\" + xmmc + \"'\") 283

284 For i = 0 To row1.Length - 1 285 GotoRightCell()

286 oWordApplic.Selection.InsertRows(1) 287 For j = 0 To table1.Columns.Count - 1

288 If (table1.Columns(j).ColumnName <> \"项目名称\") Then 2 GotoRightCell() 290 Try

291 oWordApplic.Selection.TypeText(row1(i)(j)) 292 Catch ex As Exception

293 oWordApplic.Selection.TypeText(\" \") 294 End Try 295 End If

296 'oWordApplic.Selection.Cell(rowIndex, colIndex).Range.InsertAfter(Row(Col.ColumnName)) 297 Next 298 Next 299 300 301

302 Next

303 '删除可能多余的一行 304 'GotoRightCell() 305 'GotoDownCell()

306 'oWordApplic.Selection.Rows.Delete() 307 'oTable.AllowAutoFit = True

308 'oTable.ApplyStyleFirstColumn = True 309 'oTable.ApplyStyleHeadingRows = True 310 End Sub

311 '插入表格,为了满足要求,在中间添加一根竖线

312 Public Sub InsertTable3(ByRef table As DataTable, ByVal introw As Integer, ByVal intcol As Integer)

313 Dim rowIndex, colIndex, NumRows, NumColumns As Integer 314 Dim Row As DataRow 315 Dim Col As DataColumn

316 If (table.Rows.Count = 0) Then 317 Exit Sub 318 End If

319 '首先是拆分选中的单元格

320 oDocument.Tables(1).Cell(introw, 3).Split(table.Rows.Count, 2)

321 '选中初始的单元格

322 oDocument.Tables(1).Cell(introw, 3).Select() 323 '将行添入表格

324 For Each Row In table.Rows 325 Try

326 oDocument.Tables(1).Cell(introw, 3).Range.InsertAfter(Row(0)) 327 oDocument.Tables(1).Cell(introw, 4).Range.InsertAfter(Row(1)) 328 Catch ex As Exception

329 oDocument.Tables(1).Cell(introw, 3).Range.InsertAfter(\" \") 330 oDocument.Tables(1).Cell(introw, 4).Range.InsertAfter(\" \") 331 End Try

332 introw = introw + 1

333 Next 334 End Sub 335 '设置对齐

336 Public Sub SetAlignment(ByVal strType As String) 337 Select Case strType 338 Case \"center\"

339 oWordApplic.Selection.ParagraphFormat.Alignment =

Word.WdParagraphAlignment.wdAlignParagraphCenter 340 Case \"left\"

341 oWordApplic.Selection.ParagraphFormat.Alignment Word.WdParagraphAlignment.wdAlignParagraphLeft 342 Case \"right\"

343 oWordApplic.Selection.ParagraphFormat.Alignment Word.WdParagraphAlignment.wdAlignParagraphRight 344 Case \"justify\"

345 oWordApplic.Selection.ParagraphFormat.Alignment Word.WdParagraphAlignment.wdAlignParagraphJustify 346 End Select 347 End Sub 348 '设置字体

349 Public Sub SetStyle(ByVal strFont As String) 350 Select Case strFont 351 Case \"bold\"

352 oWordApplic.Selection.Font.Bold = 1 353 Case \"italic\"

3 oWordApplic.Selection.Font.Italic = 1 355 Case \"underlined\"

356 oWordApplic.Selection.Font.Subscript = 1 357 End Select 358 End Sub

359 '取消字体风格

360 Public Sub DissableStyle()

361 oWordApplic.Selection.Font.Bold = 0 362 oWordApplic.Selection.Font.Italic = 0 363 oWordApplic.Selection.Font.Subscript = 0 3 End Sub

365 '设置字体字号

366 Public Sub SetFontSize(ByVal nSize As Integer) 367 oWordApplic.Selection.Font.Size = nSize 368 End Sub 369 '跳过本页

370 Public Sub InsertPageBreak() 371 Dim pBreak As Integer

372 pBreak = CInt(Word.WdBreakType.wdPageBreak)

=

=

=

373 oWordApplic.Selection.InsertBreak(pBreak) 374 End Sub 375 '转到书签

376 Public Sub GotoBookMark(ByVal strBookMark As String) 377 Dim missing = System.Reflection.Missing.Value

378 Dim BookMark = CInt(Word.WdGoToItem.wdGoToBookmark)

379 oWordApplic.Selection.GoTo(BookMark, missing, missing, strBookMark) 380 End Sub

381 '判断书签是否存在

382 Public Function BookMarkExist(ByVal strBookMark As String) As Boolean 383 Dim Exist As Boolean

384 Exist = oDocument.Bookmarks.Exists(strBookMark) 385 Return Exist 386 End Function

387 '替换书签的内容

388 Public Sub ReplaceBookMark(ByVal icurnum As String, ByVal strcontent As String) 3 strcontent = strcontent.Replace(\"0:00:00\390 oDocument.Bookmarks(icurnum).Select() 391 oWordApplic.Selection.TypeText(strcontent) 392 End Sub 393

394 '得到书签的名称

395 Public Function GetBookMark(ByVal icurnum As String, ByRef bo As Boolean) As String 396 Dim strReturn As String

397 If Right(oDocument.Bookmarks(icurnum).Name, 5) = \"TABLE\" Then 398 bo = True

399 Dim strTemp As String

400 strTemp = oDocument.Bookmarks(icurnum).Name() 401 strReturn = Mid(strTemp, 1, Len(strTemp) - 5) 402 Else

403 bo = False

404 strReturn = oDocument.Bookmarks(icurnum).Name 405 End If

406 Return strReturn 407 End Function

408 '得到书签的名称

409 Public Function GetBookMark1(ByVal icurnum As String) As String 410 Return oDocument.Bookmarks(icurnum).Name 411 End Function 412 '转到文档结尾

413 Public Sub GotoTheEnd()

414 Dim missing = System.Reflection.Missing.Value 415 Dim unit = Word.WdUnits.wdStory

416 oWordApplic.Selection.EndKey(unit, missing)

417 End Sub

418 '转到文档开头

419 Public Sub GotoTheBegining()

420 Dim missing = System.Reflection.Missing.Value 421 Dim unit = Word.WdUnits.wdStory

422 oWordApplic.Selection.HomeKey(unit, missing) 423 End Sub

424 '删除多余的一行

425 Public Sub DelUnuseRow()

426 oWordApplic.Selection.Rows.Delete() 427 End Sub 428 '转到表格

429 Public Sub GotoTheTable(ByVal ntable As Integer) 430 'Dim missing = System.Reflection.Missing.Value 431 'Dim what = Word.WdGoToItem.wdGoToTable 432 'Dim which = Word.WdGoToDirection.wdGoToFirst 433 'Dim count = ntable 434

435 'oWordApplic.Selection.GoTo(what, which, count, missing) 436 'oWordApplic.Selection.ClearFormatting() 437

438 'oWordApplic.Selection.Text = \"\"

439 oRange = oDocument.Tables(ntable).Cell(1, 1).Range 440 oRange.Select() 441

442 End Sub

443 '转到表格的某个单元格

444 Public Sub GotoTableCell(ByVal ntable As Integer, ByVal nRow As Integer, ByVal nColumn As Integer)

445 oRange = oDocument.Tables(ntable).Cell(nRow, nColumn).Range 446 oRange.Select() 447 End Sub

448 '表格中转到右面的单元格 449 Public Sub GotoRightCell()

450 Dim missing = System.Reflection.Missing.Value 451 Dim direction = Word.WdUnits.wdCell

452 oWordApplic.Selection.MoveRight(direction, missing, missing) 453 End Sub

4 '表格中转到左面的单元格 455 Public Sub GotoLeftCell()

456 Dim missing = System.Reflection.Missing.Value 457 Dim direction = Word.WdUnits.wdCell

458 oWordApplic.Selection.MoveLeft(direction, missing, missing) 459 End Sub

460 '表格中转到下面的单元格 461 Public Sub GotoDownCell()

462 Dim missing = System.Reflection.Missing.Value 463 Dim direction = Word.WdUnits.wdCell

4 oWordApplic.Selection.MoveDown(direction, missing, missing) 465 End Sub

466 '表格中转到上面的单元格 467 Public Sub GotoUpCell()

468 Dim missing = System.Reflection.Missing.Value 469 Dim direction = Word.WdUnits.wdCell

470 oWordApplic.Selection.MoveUp(direction, missing, missing) 471 End Sub

472 '文档中所有的书签总数

473 Public Function TotalBkM() As Integer 474 Return oDocument.Bookmarks.Count 475 End Function

476 '选中书签

477 Public Sub SelectBkMk(ByVal strName As String) 478 oDocument.Bookmarks.Item(strName).Select() 479 End Sub

480 '插入图片

481 Public Sub InsertPic(ByVal FileName As String)

482 Dim missing = System.Reflection.Missing.Value

483 oWordApplic.Selection.InlineShapes.AddPicture(FileName, False, True, missing).Select()

484 oShape = oWordApplic.Selection.InlineShapes(1).ConvertToShape 485 oWordApplic.Selection.WholeStory()

486 oShape.ZOrder(Microsoft.Office.Core.MsoZOrderCmd.msoSendBehindText) 487 End Sub

488 '统一调整图片的位置.也就是往上面调整图片一半的高度 4 Public Sub SetCurPicHei() 490 Dim e As Word.Shape

491 For Each e In oDocument.Shapes

492 oDocument.Shapes(e.Name).Select()

493 oWordApplic.Selection.ShapeRange.RelativeHorizontalPosition = Word.WdRelativeHorizontalPosition.wdRelativeHorizontalPositionPage

494 oWordApplic.Selection.ShapeRange.RelativeVerticalPosition = Word.WdRelativeVerticalPosition.wdRelativeVerticalPositionParagraph 495 oWordApplic.Selection.ShapeRange.LockAnchor = True 496

'oWordApplic.Selection.ShapeRange.IncrementTop(oDocument.Shapes(e.Name).Height) 497 Next 498 End Sub 499

500 Public Sub SetCurPicHei1() 501 Dim e As Word.Shape

502 For Each e In oDocument.Shapes

503 oDocument.Shapes(e.Name).Select() 504

oWordApplic.Selection.ShapeRange.IncrementTop(oDocument.Shapes(e.Name).Height / 2) 505 Next 506 End Sub

507 Public Sub SetCurPicHei2() 508 Dim e As Word.Shape

509 For Each e In oDocument.Shapes

510 oDocument.Shapes(e.Name).Select() 511

oWordApplic.Selection.ShapeRange.IncrementTop(-oDocument.Shapes(e.Name).Height / 2) 512 Next 513 End Sub

514 Public Function intToUpint(ByVal a As Integer) As String

515 Dim result As String = \"一百\" 516 Dim a1, a2 As Integer

517 Dim strs() As String = {\"零\一\二\三\四\五\六\七\八\九\十\518 If (a <= 10) Then 519 result = strs(a) 520 ElseIf (a < 100) Then 521 a1 = a / 10 522 a2 = a Mod 10 523 If (a = 1) Then

524 result = \"十\" + strs(a2) 525 End If 526 Else

527 result = strs(a1) + \"十\" + strs(a2) 528 End If

529 Return result 530 End Function

531 '合并没有参照的某一列,一般来讲对应第一列 532 'itotalrow 总行数

533 'initrow 初始开始的行数,一般情况下该值不为0,没有标题栏的一般为0 534 'intcol 列数

535 Public Sub MergeSingle(ByVal itotalrow As Integer, ByVal initrow As Integer, ByVal intcol As Integer)

536 oDocument.Tables(1).Cell(initrow + 1, intcol).Select() 537 Dim irow As Integer '当前行数

538 Dim strValue As String '循环比较的行初值 539 Dim i As Integer

0 Dim direction = Word.WdUnits.wdLine

1 Dim extend = Word.WdMovementType.wdExtend 2

3 i = 0

4 irow = 1 + initrow '初始值为1

5 For i = 2 + initrow To itotalrow + initrow 6

7 strValue = oDocument.Tables(1).Cell(irow, intcol).Range.Text

8 If (oDocument.Tables(1).Cell(i, intcol).Range.Text = oDocument.Tables(1).Cell(irow, intcol).Range.Text) Then

9 '这是对最后一次处理的特殊情况. 550 If (i = itotalrow + initrow) Then

551 oWordApplic.Selection.MoveDown(direction, (i - irow), extend) 552 If (i - irow >= 1) Then

553 oWordApplic.Selection.Cells.Merge() 5 End If

555 oDocument.Tables(1).Cell(irow, intcol).Range.Text = strValue 556 End If 557 Else

558 oWordApplic.Selection.MoveDown(direction, (i - irow - 1), extend) 559 If (i - irow - 1 >= 1) Then

560 oWordApplic.Selection.Cells.Merge() 561 End If

562 oDocument.Tables(1).Cell(irow, intcol).Range.Text = strValue 563 irow = i

5 oDocument.Tables(1).Cell(irow, intcol).Select() 565 End If 566 Next i 567 End Sub

568 '合并有参照的某一列 569 'itotalrow 总行数

570 'initrow 初始开始的行数,一般情况下该值不为0,没有标题栏的一般为0 571 'intcol 列数

572 'basecol 参照合并的那一列

573 Public Sub MergeDouble(ByVal itotalrow As Integer, ByVal initrow As Integer, ByVal intcol As Integer, ByVal basecol As Integer)

574 oDocument.Tables(1).Cell(initrow + 1, intcol).Select() 575 Dim irow As Integer '当前行数

576 Dim strValue As String '循环比较的行初值 577 Dim i As Integer

578 Dim direction = Word.WdUnits.wdLine

579 Dim extend = Word.WdMovementType.wdExtend 580

581 i = 0

582 irow = 1 + initrow '初始值为1

583 For i = 2 + initrow To itotalrow + initrow 584

585 strValue = oDocument.Tables(1).Cell(irow, intcol).Range.Text

586 If (oDocument.Tables(1).Cell(i, intcol).Range.Text = oDocument.Tables(1).Cell(irow, intcol).Range.Text) And (getdata(i, basecol) = getdata(irow, basecol)) Then

587 '这是对最后一次处理的特殊情况. 588 If (i = itotalrow + initrow) Then

5 oWordApplic.Selection.MoveDown(direction, (i - irow), extend) 590 If (i - irow >= 1) Then

591 oWordApplic.Selection.Cells.Merge() 592 End If

593 oDocument.Tables(1).Cell(irow, intcol).Range.Text = strValue 594 End If 595 Else

596 oWordApplic.Selection.MoveDown(direction, (i - irow - 1), extend) 597 If (i - irow - 1 >= 1) Then

598 oWordApplic.Selection.Cells.Merge() 599 End If

600 oDocument.Tables(1).Cell(irow, intcol).Range.Text = strValue 601 irow = i

602 oDocument.Tables(1).Cell(irow, intcol).Select() 603 End If 604 Next i 605 End Sub

606 '得到某个单元的值,如果为空的话,有两种情况. 607 '其一：是一个合并的单元格，取其上面的值 608 '其二：该单元格本来就是空值

609 Public Function getdata(ByVal introw As Integer, ByVal intcol As Integer) As String 610 Try

611 If (oDocument.Tables(1).Cell(introw, intcol).Range.Text = \"\" (oDocument.Tables(1).Cell(introw, intcol).Range.Text = Nothing)) Then 612 getdata = getdata(introw - 1, intcol) 613 Else

614 getdata = oDocument.Tables(1).Cell(introw, intcol).Range.Text 615 End If

616 Catch ex As Exception

617 getdata = getdata(introw - 1, intcol) 618 End Try 619 620

621 End Function 622End Class

Or

要想作为一个优秀的编程人员，不得不每天都进行学习，来增加自己的知识库，以免被技术所淘汰。那么对于VB.NET的学习，同样如此，不能有一刻的停歇。那么今天就为大家带来了VB.NET操作Word的一些经验，以帮助大家学习。 VB.NET操作Word之1，在project\\references 中加入microsoft word 9.0 object library VB.NET操作Word之2, 启动word 以下是代码片段： Dim wApp As Word.Application Set wApp = New Word.Application wApp.Visible = True 关闭word 以下是代码片段： wApp.Quit Set wApp = Nothing

VB.NET操作Word之3, 打开文件 以下是代码片段： Set wDoc = Documents.Add （新建） ActiveDocument.SaveAs Text1.Text （保存） Set wDoc = Documents.Open(FileName:=Text1.Text) （打开指定文件）

以上的Documents 和 ActiveDocument 均是word object 中的已实例化了的对象，即不用set obj=new obj即可以使用的对象. 就像vb中的app、debug、err等对象， 文件打开之后，获取光标所在位置mySelection即可给文件添加各种数据(文本，图像，表格等等，) VB.NET操作Word之4，插入文本 以下是代码片段： Dim mySelection As Word.Selection Set mySelection = Documents.Application.Selection 注意上面的这两行代码，只要有这两行代码，就可以使用所有的word中的宏操作。以下的代码就是从宏中拷过来的。 以下是代码片段： With mySelection .InsertAfter Text1.Text & vbCrLf .Font.Name = \"楷体_GB2312\" .Font.Size = 16 .ParagraphFormat.Alignment = 1 End With 这里有必要提到宏(macro)在word编程的重要性，几乎所有的word操作，只要你能够通过word可以实现，就可以编程实现 VB.NET操作Word之5，插入图像

以下是代码片段： Documents.Application.Selection.InlineShapes. AddPicture text1.text

VB.NET操作Word之6，插入表格 因为excel中处理表格的能力要比word的处理能力要强，所以可以在excel中生成了表格之后再复制到word当中。

要想作为一个优秀的编程人员，不得不每天都进行学习，来增加自己的知识库，以免被技术所淘汰。那么对于VB.NET的学习，同样如此，不能有一刻的停歇。那么今天就为大家带来了VB.NET操作Word的一些经验，以帮助大家学习。 VB.NET操作Word之1，在project\\references 中加入microsoft word 9.0 object library VB.NET操作Word之2, 启动word 以下是代码片段： Dim wApp As Word.Application Set wApp = New Word.Application wApp.Visible = True 关闭word 以下是代码片段： wApp.Quit Set wApp = Nothing VB.NET操作Word之3, 打开文件 以下是代码片段： Set wDoc = Documents.Add （新建） ActiveDocument.SaveAs Text1.Text （保存） Set wDoc = Documents.Open(FileName:=Text1.Text) （打开指定文件） 以上的Documents 和 ActiveDocument 均是word object 中的已实例化了的对象，即不用set obj=new obj即可以使用的对象. 就像vb中的app、debug、err等对象， 文件打开之后，获取光标所在位置mySelection即可给文件添加各种数据(文本，图像，表格等等，) VB.NET操作Word之4，插入文本 以下是代码片段： Dim mySelection As Word.Selection Set mySelection = Documents.Application.Selection 注意上面的这两行代码，只要有这两行代码，就可以使用所有的word中的宏操作。以

下的代码就是从宏中拷过来的。 以下是代码片段： With mySelection .InsertAfter Text1.Text & vbCrLf

.Font.Name = \"楷体_GB2312\" .Font.Size = 16

.ParagraphFormat.Alignment = 1 End With

这里有必要提到宏(macro)在word编程的重要性，几乎所有的word操作，只要你能够通过word可以实现，就可以编程实现 VB.NET操作Word之5，插入图像 以下是代码片段： Documents.Application.Selection.InlineShapes. AddPicture text1.text

VB.NET操作Word之6，插入表格 因为excel中处理表格的能力要比word的处理能力要强，所以可以在excel中生成了表格之后再复制到word当中。

VB.net中调Word文档(Office 2003)

文档, Word, Office

我们需要在程序中操作Word文档，虽然C#可以用来写这样的一个类，但由于VB先天的优势（对VBA的完全支持），用VB来写显然是更好的选择。下面这个类基于网上的一个类，修改了其中的一些错误，添加了几个方法，在我的运行环境（VS.NET，Office2003）中运行通过。使用时，在“引用”中添加这个类的引用，就可以直接用C#调用类中的方法来操作Word文档了。 Public Class WordOpLibClass WordOpLib

Private oWordApplic As Word.Application Private oDocument As Word.Document Private oRange As Word.Range

Private oSelection As Word.Selection Public Sub New()Sub New() '激活com word接口

oWordApplic = New Word.Application oWordApplic.Visible = True End Sub

'设置选定文本

Public Sub SetRange()Sub SetRange(ByVal para As Integer) oRange = oDocument.Paragraphs(para).Range oRange.Select() End Sub

Public Sub SetRange()Sub SetRange(ByVal para As Integer, ByVal sent As Integer) oRange = oDocument.Paragraphs(para).Range.Sentences(sent) oRange.Select() End Sub

Public Sub SetRange()Sub SetRange(ByVal startpoint As Integer, ByVal endpoint As Integer, ByVal flag As Boolean) If flag = True Then

oRange = oDocument.Range(startpoint, endpoint) oRange.Select() Else

End If End Sub

'生成空的新文档

Public Sub NewDocument()Sub NewDocument()

Dim missing = System.Reflection.Missing.Value Dim isVisible As Boolean = True

oDocument = oWordApplic.Documents.Add(missing, missing, missing, missing) oDocument.Activate() End Sub

'使用模板生成新文档

Public Sub NewDocWithModel()Sub NewDocWithModel(ByVal FileName As String) Dim missing = System.Reflection.Missing.Value Dim isVisible As Boolean = True Dim strName As String strName = FileName

oDocument = oWordApplic.Documents.Add(strName, missing, missing, isVisible) oDocument.Activate() End Sub

'打开已有文档

Public Sub OpenFile()Sub OpenFile(ByVal FileName As String) Dim strName As String Dim isReadOnly As Boolean Dim isVisible As Boolean

Dim missing = System.Reflection.Missing.Value

strName = FileName isReadOnly = False isVisible = True

oDocument = oWordApplic.Documents.Open(strName, missing, isReadOnly, missing, missing, missing, missing, missing, missing, missing, missing, isVisible, missing, missing, missing, missing)

oDocument.Activate()

End Sub

Public Sub OpenFile()Sub OpenFile(ByVal FileName As String, ByVal isReadOnly As Boolean) Dim strName As String Dim isVisible As Boolean

Dim missing = System.Reflection.Missing.Value

strName = FileName isVisible = True

oDocument = oWordApplic.Documents.Open(strName, missing, isReadOnly, missing, missing, missing, missing, missing, missing, missing, missing, isVisible, missing, missing, missing, missing)

oDocument.Activate() End Sub '退出Word

Public Sub Quit()Sub Quit()

Dim missing = System.Reflection.Missing.Value oWordApplic.Quit()

System.Runtime.InteropServices.Marshal.ReleaseComObject(oWordApplic) oWordApplic = Nothing

End Sub

'关闭所有打开的文档

Public Sub CloseAllDocuments()Sub CloseAllDocuments()

oWordApplic.Documents.Close(Word.WdSaveOptions.wdDoNotSaveChanges) End Sub

'关闭当前的文档

Public Sub CloseCurrentDocument()Sub CloseCurrentDocument() oDocument.Close(Word.WdSaveOptions.wdDoNotSaveChanges) End Sub '保存当前文档

Public Sub Save()Sub Save() Try

oDocument.Save() Catch

MsgBox(Err.Description) End Try End Sub '另存为文档

Public Sub SaveAs()Sub SaveAs(ByVal FileName As String) Dim strName As String

Dim missing = System.Reflection.Missing.Value

strName = FileName

oDocument.SaveAs(strName, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing) End Sub

'保存为Html文件

Public Sub SaveAsHtml()Sub SaveAsHtml(ByVal FileName As String) Dim missing = System.Reflection.Missing.Value Dim strName As String

strName = FileName

Dim 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()Sub InsertText(ByVal text As String) oWordApplic.Selection.TypeText(text) End Sub '插入一个空行

Public Sub InsertLineBreak()Sub InsertLineBreak() oWordApplic.Selection.TypeParagraph() End Sub

'插入指定行数的空行

Public Sub InsertLineBreak()Sub InsertLineBreak(ByVal lines As Integer) Dim i As Integer For i = 1 To lines

oWordApplic.Selection.TypeParagraph() Next End Sub '插入表格

Public Sub InsertTable()Sub InsertTable(ByRef table As DataTable) Dim oTable As Word.Table

Dim rowIndex, colIndex, NumRows, NumColumns As Integer rowIndex = 1 colIndex = 0

NumRows = table.Rows.Count + 1 NumColumns = table.Columns.Count

oTable = oDocument.Tables.Add(oWordApplic.Selection.Range(), NumRows, NumColumns)

'初始化列

Dim Row As DataRow Dim Col As DataColumn

For Each Col In table.Columns colIndex = colIndex + 1

oTable.Cell(1, colIndex).Range.InsertAfter(Col.ColumnName) Next

'将行添入表格

For Each Row In table.Rows rowIndex = rowIndex + 1 colIndex = 0

For Each Col In table.Columns colIndex = colIndex + 1

oTable.Cell(rowIndex, colIndex).Range.InsertAfter(Row(Col.ColumnName)) Next Next

oTable.AllowAutoFit = True

oTable.ApplyStyleFirstColumn = True oTable.ApplyStyleHeadingRows = True End Sub '设置对齐

Public Sub SetAlignment()Sub SetAlignment(ByVal strType As String) Select Case strType Case \"center\"

oWordApplic.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter Case \"left\"

oWordApplic.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Case \"right\"

oWordApplic.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight Case \"justify\"

oWordApplic.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify End Select End Sub '设置字体

Public Sub SetStyle()Sub SetStyle(ByVal strFont As String) Select Case strFont Case \"bold\"

oWordApplic.Selection.Font.Bold = 1

Case \"italic\"

oWordApplic.Selection.Font.Italic = 1 Case \"underlined\"

oWordApplic.Selection.Font.Subscript = 1 End Select End Sub '取消字体风格

Public Sub DissableStyle()Sub DissableStyle() oWordApplic.Selection.Font.Bold = 0 oWordApplic.Selection.Font.Italic = 0 oWordApplic.Selection.Font.Subscript = 0 End Sub '设置字体字号

Public Sub SetFontSize()Sub SetFontSize(ByVal nSize As Integer) oWordApplic.Selection.Font.Size = nSize End Sub '跳过本页

Public Sub InsertPageBreak()Sub InsertPageBreak() Dim pBreak As Integer

pBreak = CInt(Word.WdBreakType.wdPageBreak) oWordApplic.Selection.InsertBreak(pBreak) End Sub '转到书签

Public Sub GotoBookMark()Sub GotoBookMark(ByVal strBookMark As String) Dim missing = System.Reflection.Missing.Value Dim BookMark = CInt(Word.WdGoToItem.wdGoToBookmark)

oWordApplic.Selection.GoTo(BookMark, missing, missing, strBookMark) End Sub

'判断书签是否存在

Public Function BookMarkExist()Function BookMarkExist(ByVal strBookMark As String) As Boolean

Dim Exist As Boolean

Exist = oDocument.Bookmarks.Exists(strBookMark) Return Exist End Function '转到文档结尾

Public Sub GotoTheEnd()Sub GotoTheEnd()

Dim missing = System.Reflection.Missing.Value Dim unit = Word.WdUnits.wdStory

oWordApplic.Selection.EndKey(unit, missing) End Sub '转到文档开头

Public Sub GotoTheBegining()Sub GotoTheBegining() Dim missing = System.Reflection.Missing.Value Dim unit = Word.WdUnits.wdStory

oWordApplic.Selection.HomeKey(unit, missing) End Sub '转到表格

Public Sub GotoTheTable()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).Range oRange.Select() End Sub

'转到表格的某个单元格

Public Sub GotoTableCell()Sub GotoTableCell(ByVal ntable As Integer, ByVal nRow As Integer, ByVal nColumn As Integer)

oRange = oDocument.Tables(ntable).Cell(nRow, nColumn).Range oRange.Select() End Sub

'表格中转到右面的单元格

Public Sub GotoRightCell()Sub GotoRightCell() Dim missing = System.Reflection.Missing.Value Dim direction = Word.WdUnits.wdCell

oWordApplic.Selection.MoveRight(direction, missing, missing)

End Sub

'表格中转到左面的单元格

Public Sub GotoLeftCell()Sub GotoLeftCell() Dim missing = System.Reflection.Missing.Value Dim direction = Word.WdUnits.wdCell

oWordApplic.Selection.MoveLeft(direction, missing, missing) End Sub

'表格中转到下面的单元格

Public Sub GotoDownCell()Sub GotoDownCell() Dim missing = System.Reflection.Missing.Value Dim direction = Word.WdUnits.wdCell

oWordApplic.Selection.MoveDown(direction, missing, missing) End Sub

'表格中转到上面的单元格

Public Sub GotoUpCell()Sub GotoUpCell()

Dim missing = System.Reflection.Missing.Value Dim direction = Word.WdUnits.wdCell

oWordApplic.Selection.MoveUp(direction, missing, missing) End Sub '插入图片

Public Sub InsertPic()Sub InsertPic(ByVal FileName As String) Dim missing = System.Reflection.Missing.Value

oWordApplic.Selection.InlineShapes.AddPicture(FileName, False, True, missing) End Sub

End Class