引用活动文档元素

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