Microsoft Word 对象

Microsoft Word 对象(17)
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



运用其他普通对象

本节提供了关于运用一些普通Word对象的信息和技巧。

使用HeaderFooter对象

HeaderFooter对象既可以表示一个页眉也可以表示一个注脚。HeaderFooter对象是HeaderFooter集合的一个成员，它可以在Section对象中使用。Headers(index)或Footer(index)属性返回了一个单独的HeaderFooter对象，在这里index是WdHeaderFooterIndex常量的一个值。

以下的示例创建了一个Range对象(aRange)，该对象表示活动文档第一节的主要注脚。在该示例设置Range对象之后，它删除了已有的注脚文本。它还向注脚添加了AUTHOR域以及两个表和FILENAME域。

Set oRange = ActiveDocument. Sections(1). Footers (wdHeaderFooterPrimary). Range

With oRange

.Delete

.Fields. Add Range :=oRange, Type :=wdFieldFileName, Text :="\p"

.InsertAfter Text :=VBTab

.InsertAfter Text :=VBTab

.Collapse Direction :=wdCollapseStart

.Fields.Add Range :=oRange, Type :=wdFieldAuthor