Word VBA教程:引用活动文档元素

要引用活动的段落、表格、域或其他文档元素,可使用Selection属性返回一个Selection对象。通过 Selection对象,可访问选定内容中的所有段落或第一段。下列示例将边框应用于选定内容的第一段。


Sub BorderAroundFirstParagraph()
    Selection.Paragraphs(1).Borders.Enable = True
End Sub

下列示例将边框应用于选定内容中的每一个段落。


Sub BorderAroundSelection()
    Selection.Paragraphs.Borders.Enable = True
End Sub

下列示例将底纹应用于选定内容中第一张表格的首行。


Sub ShadeTableRow()
    Selection.Tables(1).Rows(1).Shading.Texture = wdTexture10Percent
End Sub

如果选定的内容不包含表格,将导致出错。可使用Count属性判定选定内容中是否包含表格。下列示例将底纹应用于选定内容中第一张表格的首行。


Sub ShadeTableRow()
    If Selection.Tables.Count >= 1 Then
        Selection.Tables(1).Rows(1).Shading.Texture = wdTexture25Percent
    Else
        MsgBox "Selection doesn't include a table"
    End If
End Sub

下列示例将底纹应用于选定内容中每张表格的首行。For Each...Next 循环用于在选定内容的每张表格中循环。


Sub ShadeAllFirstRowsInTables()
    Dim tblTable As Table
    If Selection.Tables.Count >= 1 Then
        For Each tblTable In Selection.Tables
            tblTable.Rows(1).Shading.Texture = wdTexture30Percent
        Next tblTable
    End If
End Sub

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号