Como usar um estilo ou VBA para atribuir apenas a aparência desejada para todas as tabelas no Word

O artigo, Como controlar o alinhamento horizontal de uma tabela do Word, mostra como salvar uma tabela formatada como uma tabela rápida no Microsoft Word. Em seguida, você pode inserir o shell da tabela, formatá-lo e começar a inserir os dados imediatamente. Uma Tabela Rápida pode economizar muito tempo. Mas usar esse recurso não é a única maneira de rapidamente colocar as tabelas em forma.

VEJA: 83 dicas do Excel que todo usuário deve dominar (TechRepublic)

Neste artigo, mostrarei como aplicar o mesmo estilo a todas as tabelas do documento, uma a uma. Também mostrarei um procedimento VBA que fará a mesma coisa, mas muito mais rápido e com pouco esforço de sua parte.

Estou usando o Microsoft 365 em um sistema Windows 10 de 64 bits. (Recomendo que você não atualize para o Windows 11 até que todos os problemas sejam resolvidos.) O Word Online não oferece e a nenhuma das opções discutidas neste artigo. Para sua conveniência, você pode baixar os arquivos de demonstração .docm, .doc e .cls. Se você estiver trabalhando com seus próprios arquivos, precisará saber como inserir e modificar tabelas, mas fornecerei muitas instruções básicas.

Como aplicar um estilo a uma tabela no Word

Não importa como isso aconteça, mas muitas vezes você acaba com algumas tabelas com formatos diferentes. Você pode estar pegando dados online ou recebendo tabelas de colaboradores. Independentemente de como isso aconteça, você provavelmente desejará que todas as tabelas tenham a mesma aparência.

Se você tiver um documento com apenas algumas tabelas incompatíveis, combine o recurso Localizar do Word com o estilo de tabela de sua escolha. Você ará de mesa em mesa, mas não demorará muito porque Find encontrará as mesas para você, pulando todo o outro conteúdo. Você pode usar o estilo de tabela integrado ou personalizado. Ambos estarão disponíveis na galeria de tabelas.

Agora, vamos trabalhar com um exemplo rápido. O pequeno documento mostrado em Figura A tem três tabelas. Os formatos e alinhamento são diferentes para todos os três. Usando Localizar, você selecionará e formatará, um por um. Portanto, não é uma ótima opção para um documento grande com muitas tabelas.

Figura A

Para formatar todas as três tabelas usando um estilo, faça o seguinte:

1. Na guia Home, clique em Editing e escolha Find. Fazê-lo vai abrir o de navegação.
2. Clique no menu suspenso Pesquisar documento (ao lado do ícone da lupa) e selecione Tabelas (Figura B).
3. Fazê-lo vai exibir dois novos ícones no para avançar e retroceder no documento.
4. Clique na seta para baixo e o Word encontrará a próxima tabela no documento (Figura C). Não se surpreenda se você precisar clicar nesse botão mais de uma vez, mas você pode ver as alças de seleção quando uma tabela é selecionada, então use isso como seu guia.
5. Com uma tabela selecionada, clique na guia contextual Table Design e escolha um estilo na galeria Table Styles. Eu escolhi List Table List Colorful (o verde). Eu simplesmente cliquei em um na galeria; não importa qual estilo você usa para nossos propósitos.
6. Depois de aplicar o estilo, clique na seta para baixo novamente para selecionar a próxima tabela e aplique o mesmo estilo da galeria.

Repita o último o mais uma vez e pronto, como você pode ver na Figura D. Se estiver trabalhando com seu próprio arquivo, talvez seja necessário repetir essa última etapa mais de uma vez.

Figura B

Figura C

Figura D

Isso foi rápido e fácil – se você tiver apenas algumas mesas. Mas opa…. Apliquei um estilo semelhante à segunda tabela por acidente! Em um documento tão simples, você pode corrigir esse problema rapidamente, mas é um problema em potencial, portanto, tenha cuidado.

Se você tiver diferentes requisitos de encapsulamento ou alinhamento, poderá criar tabelas personalizadas e aplicar o estilo personalizado da mesma maneira. Se você tiver muitas tabelas incompatíveis, um procedimento VBA será mais rápido e evitará erros. Antes de prosseguirmos, porém, você desejará fechar o arquivo de demonstração sem salvar ou clicar em Ctrl+Z três vezes para desformatar as tabelas para que sejam incompatíveis na próxima seção.

O procedimento VBA

A formatação de tabelas usando o VBA é fácil – é necessário muito pouco código. Saber quais propriedades alterar é a chave para acertar. No nosso caso, queremos aplicar o mesmo estilo que usamos na seção anterior, “List Table 6 Colorful” a todas as tabelas de um documento e é isso que Listagem A faz.

Listagem A

Sub ApplyListTable6Colorful()

‘Aplica estilo interno a todas as tabelas do documento.

Dim tbl como tabela

On Error GoTo ErrHandler

Para cada tbl em ActiveDocument.Tables

tbl.Style = “Lista Tabela 6 Colorida – Acento 6”

Próximo

Sair Sub

ErrHandler:

MsgBox “Erro” & Err.Number & ” ” & Err.Description

Finalizar Sub

O procedimento define um objeto de tabela e usa a instrução For Each para percorrer todas as tabelas no documento, de maneira semelhante à maneira como o recurso Localizar manual faz. A instrução tbl.Style = “List Table 6 Colorful – Accent 6” aplica esse estilo a cada tabela.

O nome do estilo deve ser completo; você pode encontrá-lo ando o mouse sobre a miniatura na galeria. Embora eu não tenha feito isso, você pode adicionar mais formatos à instrução For Each. Depois de digitar tbl. O VBA exibirá uma lista de propriedades e eventos possíveis. O tratamento de erros é básico e, em um procedimento tão simples, deve ser adequado, mas esteja preparado para testar minuciosamente antes de tomar essa decisão.

Se você estiver usando uma versão da faixa de opções, salve a pasta de trabalho como um arquivo habilitado para macro. Se estiver trabalhando na versão de menu, pule esta etapa.

Para entrar no procedimento, pressione Alt + F11 para abrir o Editor do Visual Basic (VBE). No Project Explorer à esquerda, selecione ThisDocument. Você pode inserir o código manualmente ou importar o arquivo .cls para . Além disso, a macro está nos arquivos .docm, .doc e .cls para . Se você inserir o código manualmente, não cole desta página da web. Em vez disso, copie o código em um editor de texto e cole esse código no módulo ThisDocument. Isso removerá quaisquer caracteres da Web fantasmas que possam causar erros.

Para executar o código, retorne ao documento e clique na guia Desenvolvedor. No grupo Macros, clique em Macros. Selecione ApplyListTable6Colorful na caixa de diálogo mostrada na Figura E e clique em Executar. Os resultados são instantâneos.

Figura E

É improvável que você queira ar por essa rotina todas as vezes, portanto, considere adicionar o procedimento à Barra de Ferramentas de o Rápido (QAT) ou a um grupo personalizado na faixa de opções. Para obter instruções, leia Como adicionar macros do Office à barra de ferramentas QAT para o rápido.