陈炜 02/18/2006
当我们在 FP2003 中插入表格或新建网页时都可以启用布局表格,通过 FP2003 中新增的对象 FPLayoutRegion 可以访问布局表格的相关属性。运用这个 VBA 对象我们可以使用宏制定自己特定的表格风格,并通过一键完成对表格的布局更改。
在 FP2003 中的 FPLayoutRegion 对象需要通过 ActiveDocument 的 layoutTablesAndCells 返回指定的内容,在这里我们使用 findByID 方法返回指定表格。
注:在 FP2003 中的布局表格会有特定标示,如 <!-- MSCellFormattingTableID="1" --> 标示单元格的 ID,这是唯一的,可以通过 findByID 方法返回该表格。
例如我们有一个表格,其 HTML 标记为:
<table cellpadding="0" cellspacing="0" width="682" height="494">
<!-- MSCellFormattingTableID="1" -->
<tr>
<td height="494" width="682">
<!-- MSCellFormattingType="content" -->
</td>
</tr>
</table>
那么,我们可以使用 findByID(1) 来返回它:
'声明一个 FPLayoutRegion 对象
Dim objLRegion As FPLayoutRegion
'返回 MSCellFormattingTableID="1" 的表格
Set objLRegion = ActiveDocument.layoutTablesAndCells.findByID(1)
在返回一个表格以后,我们就可以使用 FPLayoutRegion 的方法了。
当我们在 FP2003 中插入表格或新建网页时都可以启用布局表格,通过 FP2003 中新增的对象 FPLayoutRegion 可以访问布局表格的相关属性。运用这个 VBA 对象我们可以使用宏制定自己特定的表格风格,并通过一键完成对表格的布局更改。
在 FP2003 中的 FPLayoutRegion 对象需要通过 ActiveDocument 的 layoutTablesAndCells 返回指定的内容,在这里我们使用 findByID 方法返回指定表格。
注:在 FP2003 中的布局表格会有特定标示,如 <!-- MSCellFormattingTableID="1" --> 标示单元格的 ID,这是唯一的,可以通过 findByID 方法返回该表格。
例如我们有一个表格,其 HTML 标记为:
<table cellpadding="0" cellspacing="0" width="682" height="494">
<!-- MSCellFormattingTableID="1" -->
<tr>
<td height="494" width="682">
<!-- MSCellFormattingType="content" -->
</td>
</tr>
</table>
那么,我们可以使用 findByID(1) 来返回它:
'声明一个 FPLayoutRegion 对象
Dim objLRegion As FPLayoutRegion
'返回 MSCellFormattingTableID="1" 的表格
Set objLRegion = ActiveDocument.layoutTablesAndCells.findByID(1)
在返回一个表格以后,我们就可以使用 FPLayoutRegion 的方法了。
本文介绍如何在FP2003中利用VBA宏及FPLayoutRegion对象进行布局表格的操作,包括访问表格属性及快速修改表格样式。
3404

被折叠的 条评论
为什么被折叠?



