VB编写word中的表格，合并单元格操作、添加图片等

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

1、创建表格：

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

2、合并单元格：

table.Cell(2, 1).Select()'选中第一个单元格
wordDoc.Application.Selection.MoveDown(5, 5, 1)'移动到第六行，中间的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)

上一句代码在word文档的末尾添加了一个应用程序根目录下的一个叫_gan_i1.Png的图片。