5 métodos para aplicar rapidamente a cor de preenchimento de uma célula da tabela em toda a linha, coluna ou tabela

Neste artigo, oferecemos cinco métodos para aplicar rapidamente a cor de preenchimento de uma célula da tabela a toda a linha, coluna ou tabela.

Você pode notar que, ao copiar em uma célula de tabela no Word, obtém apenas o conteúdo da célula, mas nunca a cor de preenchimento. Portanto, queremos mostrar cinco soluções alternativas para resolver esse problema.    

Método 1: obter manualmente o valor RGB da célula da tabela

1. Primeiro de tudo, selecione a célula cuja cor de preenchimento você precisa obter.
2. Em seguida, clique na guia "Design".
3. Encontre o comando abaixo de “Shading” e clique no botão suspenso desse comando.
4. No menu, escolha “Borders and Shading” para abrir a mesma caixa de diálogo de nome.
5. Em seguida, na caixa aberta, clique na guia "Sombreamento".
6. Vá para o campo "Preencher" e clique no botão suspenso.
7. E selecione “Mais cores” para abrir a caixa “Cores”.
8. Escolha “RGB” para o campo “Modelo de cor”. Obtenha o valor RGB abaixo.
9. Em seguida, feche todas as caixas e posicione o cursor dentro da célula desejada. Ou você pode selecionar várias células, linhas, colunas ou até mesmo a tabela inteira.
10. E clique no botão suspenso no comando “Shading” para selecionar “More Colors”.
11. Insira o valor RGB na guia "Personalizado" e clique em "OK".

Método 2: Abra o painel “Revelar formatação”

A ideia é semelhante: obter o valor RGB e aplicá-lo às células, linhas, colunas ou à tabela inteira desejadas.

1. Em primeiro lugar, coloque o ponteiro de inserção dentro da célula preenchida.
2. Em seguida, pressione “Shift+F1” para abrir o painel “Revelar formatação”. E você poderá ver o valor RGB da célula na seção “Sombreamento”.
3. Siga os passos 9 a 11 no método 1.

Método 3: Aplicar cor de preenchimento de uma célula à tabela inteira via VBA

Como sugere o subtítulo, aqui está a forma de unir toda a mesa em uma só cor.

1. Para começar, posicione o ponteiro de inserção dentro de uma célula colorida.
2. Pressione “Alt+F11” para acionar o editor VBA.
3. Em seguida, clique no projeto “Normal” e clique na guia “Inserir”.
4. Em seguida, escolha “Módulo” nesse menu.
5. Abra-o com um clique duplo.
6. E cole os seguintes códigos lá:

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 fim, clique em “Executar” ou pressione “F5”.

Método 4: Aplique a cor de preenchimento de uma célula à linha inteira via VBA

1. Primeiro, coloque o cursor dentro de uma célula.
2. Em seguida, instale e execute uma macro seguindo exatamente as mesmas etapas do método 3.
3. Em seguida, substitua os códigos acima por estes:

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 a cor de preenchimento de uma célula à coluna inteira via VBA

1. Provavelmente, coloque o cursor dentro de uma célula primeiro.
2. Em seguida, instale e execute uma macro corretamente.
3. Substitua a macro por 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

Lidar com problemas de palavras

Existem e sempre existirão problemas no processo de utilização do Word. Portanto, é necessário aprender o truque certo para lidar com todos esses problemas irritantes. Uma das medidas que você deve tomar é conseguir um Correção de palavras ferramenta com antecedência. Então você não entrará em pânico quando um documento for corrompido.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo recuperar excel e pdf reparar produtos de software. Para mais informações visite www.datanumen.com