VB.NET操作WORD(VBA)

最新推荐文章于 2018-07-10 15:02:00 发布

ganyiyang

最新推荐文章于 2018-07-10 15:02:00 发布

阅读量1.1k

点赞数 1

文章标签： vb.net vba 文档 table html 360

Public Class WordOpLib
2

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

Public Sub New()
12

' 激活com word接口
13

oWordApplic = New Word.ApplicationClass
14

oWordApplic.Visible = False
15

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

End If
33

End Sub
34

' 生成空的新文档
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
54

Dim isReadOnly As Boolean
55

Dim isVisible As Boolean
56

Dim missing = System.Reflection.Missing.Value
57

strName = FileName
59

isReadOnly = False
60

isVisible = True
61

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

oDocument.Activate()
64

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

strName = FileName
72

isVisible = True
73

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

' 关闭当前的文档
89

Public Sub CloseCurrentDocument()
90

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
154

' 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
164

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

Next
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)
189

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( " , " ).Length = 2 Then
220

MergeDouble(totalrow, strm( 0 ), strm(i).Split( " , " )( 1 ), strm(i).Split( " , " )( 0 ))
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
254

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

' 将行添入表格
264

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
289

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 "
354

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
364

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)
389

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
454

' 表格中转到左面的单元格
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
464

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

' 统一调整图片的位置.也就是往上面调整图片一半的高度
489

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
540

Dim direction = Word.WdUnits.wdLine
541

Dim extend = Word.WdMovementType.wdExtend
542

543

i = 0
544

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

For i = 2 + initrow To itotalrow + initrow
546

547

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

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

' 这是对最后一次处理的特殊情况.
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()
554

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
564

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
589

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