如何用vba获取word文档中表格的标题段落文字?





一篇word文档经常会有很多表格,每个表格一般都会有标题。

标题或者是在表格的第一行或者是独立于表格之外位于表格之上的一个段落行。

如下图所示

word 表格标题

可以使用如下的代码获得表格的标题内容:

实现的关键点在于用Range对象的Expand方法,它可以将原来的Range对象按照词、句、或者段落扩展选中,然后自动更新Range对象为选中后的Range对象。

在本例中先将oRng对象赋值为表格以上的第一个文字所代表的Range对象,然后按照段落扩展为整行Range对象。

发表评论