5 métodos para aplicar rápidamente el color de relleno de una celda de tabla a toda la fila, columna o tabla

En este artículo, le ofreceremos cinco métodos para aplicar rápidamente el color de relleno de una celda de tabla a toda la fila, columna o tabla.

Es posible que observe que cuando copia en una celda de una tabla en Word, solo obtiene el contenido de la celda, pero nunca el color de relleno. Por lo tanto, queremos mostrarle cinco soluciones para abordar este problema.    

Método 1: obtener manualmente el valor RGB de la celda de la tabla

1. En primer lugar, seleccione la celda cuyo color de relleno necesita obtener.
2. A continuación, haga clic en la pestaña "Diseño".
3. Busque el comando debajo de "Sombreado" y haga clic en el botón desplegable de ese comando.
4. En el menú, elija "Bordes y sombreado" para abrir el cuadro de diálogo del mismo nombre.
5. A continuación, en el cuadro abierto, haga clic en la pestaña "Sombreado".
6. Vaya al campo "Rellenar" y haga clic en el botón desplegable.
7. Y seleccione "Más colores" para abrir el cuadro "Colores".
8. Elija "RGB" para el campo "Modelo de color". Obtenga el valor RGB a continuación.
9. Luego, cierra todas las casillas y coloca el cursor dentro de la celda deseada. También puedes seleccionar varias celdas, filas, columnas o incluso toda la tabla.
10. Y haga clic en el botón desplegable en el comando "Sombreado" para seleccionar "Más colores".
11. Introduzca el valor RGB en la pestaña "Personalizado" y haga clic en "Aceptar".

Método 2: abrir el panel "Mostrar formato"

La idea es similar: obtener el valor RGB y luego aplicarlo a las celdas, filas, columnas o a la tabla completa que se deseen.

1. En primer lugar, coloque el puntero de inserción dentro de la celda llena.
2. A continuación, presione "Shift + F1" para abrir el panel "Mostrar formato". Y podrá ver el valor RGB de la celda en la sección "Sombreado".
3. Siga los pasos del 9 al 11 del método 1.

Método 3: aplique el color de relleno de una celda a toda la tabla a través de VBA

Como sugiere el subtítulo, esta es la forma de unir toda la mesa en un solo color.

1. Para empezar, coloque el puntero de inserción dentro de una celda coloreada.
2. Presione "Alt + F11" para activar el editor de VBA.
3. A continuación, haga clic en el proyecto "Normal" y haga clic en la pestaña "Insertar".
4. Luego elija "Módulo" en ese menú.
5. Ábralo haciendo doble clic.
6. Y pegue los siguientes códigos allí:

Sub ApplyColorOfOneCellToEntireTable()
  Dim nRowIndex As Integer
  Dim nColumnIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nRowIndex = Selection.Cells(1).RowIndex
    nColumnIndex = Selection.Cells(1).ColumnIndex
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1)
    nCellBackColor = .Cell(nRowIndex, nColumnIndex).Shading.BackgroundPatternColor
    nCellForeColor = .Cell(nRowIndex, nColumnIndex).Shading.ForegroundPatternColor
    .Shading.BackgroundPatternColor = nCellBackColor
    .Shading.ForegroundPatternColor = nCellForeColor
  End With
End Sub

7. Por último, haga clic en "Ejecutar" o presione "F5".

Método 4: aplique el color de relleno de una celda a toda la fila a través de VBA

1. Al principio, coloque el cursor dentro de una celda.
2. A continuación, instale y ejecute una macro siguiendo exactamente los mismos pasos del método 3.
3. A continuación, reemplace los códigos anteriores con estos:

Sub ApplyColorOfOneCellToEntireRow()
  Dim nRowIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nRowIndex = Selection.Cells(1).RowIndex
    nCellBackColor = Selection.Cells(1).Shading.BackgroundPatternColor
    nCellForeColor = Selection.Cells(1).Shading.ForegroundPatternColor
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1).Rows(nRowIndex).Shading
    .BackgroundPatternColor = nCellBackColor
    .ForegroundPatternColor = nCellForeColor
  End With
End Sub

Método 5: aplique el color de relleno de una celda a toda la columna a través de VBA

1. Probablemente, primero coloque el cursor dentro de una celda.
2. Luego instale y ejecute una macro correctamente.
3. Reemplace la macro con esta:

Sub ApplyColorOfOneCellToEntireColumn()
  Dim nColumnIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nColumnIndex = Selection.Cells(1).ColumnIndex
    nCellBackColor = Selection.Cells(1).Shading.BackgroundPatternColor
    nCellForeColor = Selection.Cells(1).Shading.ForegroundPatternColor
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1).Columns(nColumnIndex).Shading
    .BackgroundPatternColor = nCellBackColor
    .ForegroundPatternColor = nCellForeColor
  End With
End Sub

Manejar problemas de Word

Hay y siempre habrá problemas en el proceso de uso de Word. Por lo que es muy necesario aprender el truco correcto para lidiar con todos estos problemas molestos. Una de las medidas que debes tomar es hacerte con un Corrección de palabras herramienta por adelantado. Entonces no entrará en pánico una vez que un documento se corrompa.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo recuperar excel y pdf reparar productos de software. Para más información visite www.datanumen.com