VB.net中合并word中的表格

时间:2023-03-09 13:33:29
VB.net中合并word中的表格

软帝国产品的互兼容性使得我们采用vb.net编程语言操作Microsoft Word文档变得相当容易。针对本文的主题,网络上已经有很多大牛博客做了详细的介绍,基本的我就不再赘述,只是自己在做项目的时候需要用到合并单元格的操作,一时难以在网上找到准确的答案,如今终于琢磨出来,遂决定跟大家分享一下我的经验,免得后来者再走弯路。

1、创建表格:

 Imports MSWord = Microsoft.Office.Interop.Word
Dim table1 As MSWord.Table = wordDoc.Tables.Add(wordDoc.Paragraphs.Last.Range, , , Missing.Value)

2、合并单元格:

 table.Cell(, ).Select()'选中第一个单元格
wordDoc.Application.Selection.MoveDown(, , )'移动到第六行,中间的5代表移动的行数
wordDoc.Application.Selection.Cells.Merge()'执行合并操作
wordDoc.Application.Selection.Range.Text = "合并"'合并后的单元格赋值

以上代码的意思就是,选中表格的第一列中从第二行到第6行的单元格,将其合并,并将合并后的单元格的内容赋值为:“合并”。

3、添加图片:

wordDoc.InlineShapes.AddPicture(Application.StartupPath + "\_gan_" + i1.ToString + ".Png", False, True, wordDoc.Paragraphs.Last.Range)