Question

要引用活动的段落、表格、域或其他文档元素，可使用 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