VB.net中合并word中的表格

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

一、建立表格：

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

二、合并单元格：

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

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

 三、添加图片：

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