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