微软帝国产品的互兼容性使得我们采用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行的单元格,将其合并,并将合并后的单元格的内容赋值为:“合并”。
wordDoc.InlineShapes.AddPicture(Application.StartupPath + "\_gan_" + i1.ToString + ".Png",False,True,wordDoc.Paragraphs.Last.Range)上一句代码在word文档的末尾添加了一个应用程序根目录下的一个叫_gan_i1.Png的图片。