Hacer referencia al elemento del documento activo

Para hacer referencia al párrafo activo, tabla, campo u otro elemento de documento, use la propiedad Selection para devolver un objeto Selection . Desde dicho objeto Selection puede obtener acceso a todos los párrafos o al primer párrafo de la selección. En el siguiente ejemplo, se aplica un borde alrededor del primer párrafo de la selección.

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

En el siguiente ejemplo se aplica un borde alrededor de cada párrafo de la selección.

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

En el siguiente ejemplo, se aplica sombreado a la primera fila de la primera tabla de la selección.

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

Si la selección no contiene una tabla, se produce un error. Utilice la propiedad Count para determinar si la selección incluye una tabla. En el siguiente ejemplo, se aplica sombreado a la primera fila de la primera tabla de la selección.

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

En el siguiente ejemplo, se aplica sombreado a la primera fila de todas las tablas de la selección. La repetición For Each...Next se utiliza para recorrer cada una de las tablas de la selección.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.