April tiene una tabla en su documento de Word. Una fila está formateada con un relleno de color personalizado para que coincida con el color del logotipo de la empresa. April ahora quiere copiar ese color de relleno a otras filas. Ella esperaba usar el Copiar formato, pero eso solo copia el formato de texto, no el color de relleno usado en las celdas de la tabla. April se pregunta si hay alguna forma de copiar el color de relleno de una fila a otra.

Hay algunas formas de abordar este problema. Una es simplemente usar las herramientas que están disponibles en Word. Siga estos pasos:

  1. Seleccione la fila que ya está llena con el color deseado.

  2. Muestre la barra de herramientas Tablas y bordes (haga clic en Ver | Barras de herramientas | Tablas y bordes).

  3. Haga clic en la flecha hacia abajo a la derecha de la herramienta Colores de sombreado en la barra de herramientas. (La herramienta parece un cubo de pintura derramado). Word muestra una paleta de colores.

  4. Haga clic en Más colores de relleno. Word muestra el cuadro de diálogo Colores. (Consulte la Figura 1.) El color de la fila seleccionada ya debería aparecer en el cuadro de diálogo.

  5. Haga clic en Aceptar. (Tenga en cuenta que no realizó cambios en el cuadro de diálogo; simplemente hizo clic en Aceptar).

  6. Seleccione las otras filas de la tabla cuyo color de fondo desea cambiar.

  7. Haga clic en la herramienta Colores de sombreado en la barra de herramientas Tablas y bordes.

El color deseado se aplica a las filas seleccionadas.

Después de aplicar el color deseado, si desea aplicarlo en otro lugar (tal vez en otra tabla o en algunas celdas que se perdió), todo lo que necesita hacer es seleccionar las celdas y presionar F4. El sombreado se repite en las celdas seleccionadas.

Si necesita hacer esto bastante con varias tablas o en varios documentos, es posible que desee considerar el uso de una macro para hacer el sombreado. Una pequeña macro práctica es la siguiente:

Sub ShadeTable()

Dim backColor As Long     Dim foreColor As Long

If Selection.Information(wdWithInTable) Then         With Selection.Tables(1)

backColor = .Cell(1, 1).Shading.BackgroundPatternColor             foreColor = .Cell(1, 1).Shading.ForegroundPatternColor             .Shading.BackgroundPatternColor = backColor             .Shading.ForegroundPatternColor = foreColor         End With     Else         MsgBox "Put the insertion point in a table"

End If End Sub

La macro sombrea una tabla completa en función del sombreado utilizado en la primera celda de la primera fila de la tabla. Todo lo que necesita hacer es asegurarse de colocar el punto de inserción en algún lugar dentro de la tabla antes de ejecutarlo.

Esta macro es una variación de la macro mencionada en el siguiente sitio web:

http://www.wordbanter.com/showthread.php?t=84194

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (10931) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Copying_Fill_Color_in_a_Table [Copiando el color de relleno en una tabla].