荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Jobs (温少), 信区: Visual
标 题: Microsoft Word 对象--运用Table、Column、Row和Cell
发信站: BBS 荔园晨风站 (Sun Jan 16 18:17:06 2000), 转信
运用Table、Column、Row和Cell对象
Word对象模型包含了表格对象，也包含了表格中各种不同元素的对象。可以随同
Document对象、Range对象、Selection对象使用Table属性来返回Table集合。
Table(index)返回了一个单独的Table对象，在这里index是表格的索引号。索引
号代表在选定内容、范围或文档中表格的位置。以下的示例将选定内容中的第一
个表格转换为文本。
If Selection. Tables. Count >= 1 Then
Selection. Tables(1). ConvertToText Separator :=wdSeparateByTabs
End If
可以随同Column对象、 Range 对象、Row对象或 Selection对象使用Cells属性来
返回Cells集合。用户可以通过使用Table对象的Cell方法或是索引Cells集合来获
得一个Cell对象。以下的两条语句都能够设置myCell为一个Cell 对象，该Cell对
象代表活动文档中表格一的第一个单元格。
Set myCell = ActiveDocument. Tables(1). Cell(Row :=1, Column :=1)
Set myCell = ActiveDocument. Tables(1). Columns(1). Cells(1)
注释 要在一个表格的一个单元格中插入文字，可以使用Text属性、InsertAfter
方法或者随Range对象使用InsertBefore方法。可以随Cell对象使用Range属性来
返回一个Range对象。以下的示例在表格一的每一个单元格中插入连续的单元格序
号。
i = 1
For Each c In ActiveDocument. Tables(1). Range. Cells
c. Range. InsertBefore Text :="Cell " & i
i = i + 1
Next c
可以随同Table对象、Range对象或Selection对象使用Column属性来返回Columns
集合。Columns(index)返回了一个单独的Row对象，在这里index是索引号。以下的示例给表
格一的第一行加底纹。
ActiveDocument. Tables(1). Rows(1). Shading. Texture = wdTexture10Percent
修改图形表格的行与列
当用户试图使用在一个图形表格(或者任何表格，其中有两个以上相邻的单元格被
合并，但是行与列没有统一)中某一单独的行或列时，就可能出现一个运行时错误
。如果活动文档中的第一个表格的每列含有不一致的行号，以下的示例就会出错
。
ActiveDocument. Tables(1). Rows(1). Borders.Enable = False
用户可以首先使用SelectColumn或SelectRow方法来选定某个特定行或列的单元格
，以此避免这样的错误。当用户选好了行或列，再随Selection对象使用Cells属
性。以下的示例选定了活动文档中表格一的第一行。该示例使用Cells属性返回所
选的单元格(在第一行中所有单元格)，以便可以删除边框。
If ActiveDocument. Tables(1). Uniform = False
ActiveDocument. Tables(1). Cell(1, 1). Select
With Selection
.SelectRow
.Cells. Borders. Enable = False
End With
End If
以下的示例选定了表格一的第一列。该示例使用了一个For Each...Next循环来向
选定内容(第一列的所有单元格)中的每个单元格添加文字。
If ActiveDocument. Tables(1). Uniform = False
ActiveDocument. Tables(1). Cell(1, 1). Select
Selection. SelectColumn
i = 1
For Each oCell In Selection. Cells
oCell.Range. Text = "Cell " & i
i = i + 1
Next oCell
End If
--
好好学习，天天向上！！！！
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.11.111]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店