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

前端之家收集整理的这篇文章主要介绍了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的图片

猜你在找的VB相关文章