利用VBA 处理表格

利用VBA 处理表格,标签：word2003教程,word2007教程,http://www.xxk123.com
End With
Next
End If

12.6.7 引用活动元素
    要引用活动段落、表格、域或其他文档元素，可使用 Selection属性返回一个 Selection 对象。通过 Selection 对象，可以访问 所选内容中的所有段落或第一个段落。

下面的代码为所选内容的第一张表格第一行应用底纹。
Selection.Tables （ 1 ） .Rows （ 1 ） .Shading.Texture =
wdTexture10Percent

    如果所选内容中没有表格，则会产生错误。使用 Count 属性可以判定所选内容中是否有表格。下面的代码为所选内容的第一张表格第一行应用底纹。

If Selection.Tables.Count >= 1 Then
Selection.Tables（1）.Rows（1）.Shading.Texture =
wdTexture10Percent
Else
MsgBox "Selection doesn't include a table"
End If

    下面的代码为所选内容中每张表格的第一行应用底纹。For Each...Next 循环用来循环遍历所选内容中的每个表格。

If Selection.Tables.Count >= 1 Then
For Each aTable In Selection.Tables

aTable.Rows （ 1 ） .Shading.Texture =
wdTexture10Percent
Next aTable
End If

上一页  [1] [2]