Como Usar VBA no Word para Aplicar Formatação Condicional em Todas as Tabelas

Você precisa aplicar as mesmas regras de formatação condicional em todas as tabelas de um documento do Word, mas fazer isso manualmente para dezenas ou centenas de tabelas é impraticável. O Word não possui um recurso de formatação condicional como o Excel, então você deve usar VBA para automatizar a tarefa. Este artigo explica como escrever e executar uma macro VBA que percorre todas as tabelas do documento ativo e aplica formatação às células com base nos valores ou em outras condições. Você aprenderá o código exato, como modificá-lo para suas regras e como evitar armadilhas comuns.

Entendendo o VBA do Word para Formatação de Tabelas

O VBA (Visual Basic for Applications) do Word é uma linguagem de programação incorporada aos aplicativos do Microsoft Office. Você pode usá-lo para automatizar tarefas repetitivas de formatação que não são possíveis apenas com os recursos nativos do Word. A formatação condicional em tabelas é uma dessas tarefas. Diferente do Excel, o Word não possui uma caixa de diálogo de formatação condicional. Em vez disso, você escreve uma macro que percorre cada célula de cada tabela, verifica uma condição (como um valor de célula, resultado de fórmula ou propriedade da célula) e aplica formatação como cor de fundo, cor da fonte ou negrito.

Antes de escrever a macro, você precisa habilitar a guia Desenvolvedor no Word. Vá em Arquivo > Opções > Personalizar Faixa de Opções e marque a caixa Desenvolvedor. A guia Desenvolvedor dá acesso ao editor do Visual Basic e às ferramentas de macro. Você também precisa salvar seu documento como um arquivo habilitado para macro com a extensão .docm. Se salvar como .docx, todo o código VBA será removido.

Pré-requisitos para Executar Macros VBA

As configurações de segurança do Word devem permitir macros. Vá em Arquivo > Opções > Central de Confiabilidade > Configurações da Central de Confiabilidade > Configurações de Macro. Selecione Habilitar todas as macros (não recomendado para códigos não confiáveis) ou Desabilitar todas as macros com notificação e, em seguida, permitir a macro quando solicitado. Para documentos criados por você, a primeira opção é segura e conveniente. Para documentos de outras fontes, revise o código antes de habilitar.

Passos para Escrever e Executar uma Macro de Formatação Condicional

Os passos a seguir orientam você na criação de uma macro que destaca todas as células em cada tabela onde o valor da célula é maior que 100. Você pode adaptar a condição e a formatação conforme sua necessidade.

1. Abra o editor VBA
   Pressione Alt+F11 no teclado. A janela do Visual Basic for Applications é aberta. Se o painel do Gerenciador de Projetos não estiver visível, pressione Ctrl+R para exibi-lo.
2. Insira um novo módulo
   No Gerenciador de Projetos, clique com o botão direito em Normal ou no nome do seu documento em Projeto. Escolha Inserir > Módulo. Uma janela de código em branco aparece.
3. Cole o código de formatação condicional
   Copie e cole o seguinte código na janela do módulo:

   Sub FormatTablesConditional()
       Dim tbl As Table
       Dim cell As Cell
       Dim cellValue As Variant
       
       For Each tbl In ActiveDocument.Tables
           For Each cell In tbl.Range.Cells
               ' Converte o texto do intervalo da célula em número para comparação
               cellValue = Val(cell.Range.Text)
               
               ' Verifica condição: valor maior que 100
               If cellValue > 100 Then
                   ' Aplica cor de fundo amarela
                   cell.Range.Shading.BackgroundPatternColor = wdColorYellow
                   ' Opcional: deixa a fonte em negrito
                   cell.Range.Font.Bold = True
               End If
           Next cell
       Next tbl
       
       MsgBox "Formatação condicional aplicada a todas as tabelas."
   End Sub
   

4. Execute a macro
   Pressione F5 enquanto o cursor estiver dentro do código da macro, ou vá para a guia Desenvolvedor no Word, clique em Macros, selecione FormatTablesConditional e clique em Executar. A macro processa todas as tabelas do documento ativo.
5. Salve o documento como habilitado para macro
   Pressione Ctrl+S. Na caixa de diálogo Salvar Como, escolha Documento Habilitado para Macro do Word (.docm) no menu suspenso Tipo de Arquivo. Nomeie seu arquivo e clique em Salvar.

Modificando a Condição e a Formatação

Para alterar a condição, edite a linha If cellValue > 100 Then. Por exemplo, use If cellValue < 50 Then para valores abaixo de 50, ou If cellValue = 0 Then para células vazias ou com zero. Para comparar texto, substitua Val(cell.Range.Text) por Trim(cell.Range.Text) e use comparações de string como If Trim(cell.Range.Text) = "Atrasado" Then.

Para alterar a formatação, modifique as linhas dentro do bloco If. Para cor de fundo, substitua wdColorYellow por outras constantes como wdColorRed, wdColorGreen ou wdColorBlue. Para cor da fonte, use cell.Range.Font.Color = wdColorRed. Para bordas de célula, use cell.Range.Borders.Enable = True com propriedades adicionais de borda.

Problemas Comuns ao Executar Macros VBA em Tabelas

Mesmo com o código correto, você pode encontrar problemas. As seções a seguir cobrem os problemas mais frequentes e suas soluções.

A Macro Não Faz Nada ou Pula Tabelas

Certifique-se de que o documento contém tabelas. A macro percorre ActiveDocument.Tables. Se a contagem for zero, nenhuma formatação ocorre. Adicione uma linha de depuração: Debug.Print ActiveDocument.Tables.Count na janela Imediata (Ctrl+G) para verificar. Verifique também se o documento não está protegido. Se o documento tiver restrições de edição, a macro pode falhar.

Erro: Run-time Error 5941 ou 4605

Esses erros ocorrem quando a macro tenta acessar uma tabela ou célula que não existe. Isso pode acontecer se você excluir uma tabela dentro de um loop sem ajustar a coleção. Para evitar isso, não exclua tabelas dentro do loop. Se precisar excluir linhas ou células, faça o loop de trás para frente, da última tabela para a primeira, usando um loop For com Step -1.

O Valor da Célula Inclui Marca de Parágrafo

A propriedade cell.Range.Text inclui uma marca de parágrafo no final, o que faz com que Val() leia apenas a parte numérica. Para comparações de texto, use Trim(cell.Range.Text) para remover espaços iniciais/finais e a marca de parágrafo. Para comparações numéricas, Val() já lida com isso, mas se a célula contiver caracteres não numéricos, Val() retorna 0 e pode gerar falsos positivos. Nesse caso, use IsNumeric() para verificar primeiro.

Formatação Condicional com VBA vs Formatação Manual

Item	Macro VBA	Formatação Manual
Tempo de configuração	10-15 minutos para escrever o código	Segundos por tabela, horas para muitas tabelas
Consistência	Exatamente as mesmas regras para todas as tabelas	Sujeito a erro humano e variação
Reutilização	Execute novamente em novos dados com um clique	Precisa refazer a formatação a cada vez
Habilidade necessária	Conhecimento básico de VBA	Não requer programação
Tipo de arquivo	Requer formato .docm	Funciona com qualquer arquivo .docx

A abordagem VBA é muito mais eficiente para documentos com muitas tabelas ou quando os dados são atualizados regularmente. A formatação manual é melhor para documentos avulsos com apenas uma ou duas tabelas.

Agora você pode aplicar formatação condicional a todas as tabelas de um documento do Word usando VBA. Comece copiando a macro fornecida e ajuste a condição e as propriedades de formatação de acordo com seus dados. Para automação mais avançada, explore o uso de instruções Select Case para múltiplas condições ou aplique formatação a linhas inteiras em vez de células individuais. Um próximo passo concreto é salvar sua macro no modelo Normal.dotm para que ela fique disponível para todos os documentos futuros.