O Microsoft Word permite que você aplique a formatação a grandes trechos de texto em massa. Você pode copiar a formatação aplicada a um trecho de texto e aplicá-la a parágrafos e seções inteiras com apenas alguns cliques. Infelizmente, o mesmo não vale para tabelas. Se você quiser alterar o estilo de todas as tabelas em um determinado documento, terá que selecionar cada uma individualmente e alterar o estilo. A alternativa é usar uma macro para fazer isso.
Localizar estilo de tabela
Antes de poder criar a macro, você precisa encontrar o nome do estilo de tabela que deseja aplicar. Isso é muito fácil. Abra o documento do Word para o qual deseja alterar os estilos de tabela. Clique dentro de uma tabela e vá para a guia Design na guia Ferramentas de tabela.
Passe o cursor do mouse sobre o estilo de tabela que deseja aplicar a todas as tabelas e uma dica de ferramenta informará como é chamado. Anote o nome e você estará pronto para criar a macro.
Macro de estilo de tabela
Ative a guia Desenvolvedor no Word acessando Arquivo>Opções>Personalizar faixa de opções. Ative a barra de ferramentas do desenvolvedor e retorne ao seu documento.
Na guia Desenvolvedor e clique em Macros. Dê-lhe o seguinte nome;
AplicarTableStyle
Clique em criar e digite o seguinte na caixa de código, no entanto, você precisa editar esta linha: tbl.Style = “Medium Shading 2 – Accent 1”. Substitua o bit dentro das aspas pelo nome nome do estilo de tabela que você copiou na etapa anterior. Não remova as aspas do código. Basta digitar o nome do estilo de tabela e executá-lo.
Sub ApplyTableStyle() Dim tbl As Table For Each tbl In ActiveDocument.Tables tbl.Style = "Medium Shading 2 - Accent 1" Next End Sub
Isso é tudo que você tem que fazer. Depois que a macro for executada, ela mudará automaticamente o estilo de todas as tabelas. Se você precisar usar um estilo de tabela diferente , precisará remover essa macro porque ela altera proativamente o estilo de todas as tabelas para aquele que você especificou na macro.
Se você precisar alterar o estilo que a macro aplica, será necessário editar o código e substituir o nome do estilo que deseja aplicar. A macro aplica estilos a todas as tabelas atuais e novas no documento. Obviamente, isso seria mais fácil se o Microsoft Word tivesse uma opção integrada para fazer isso. Parece uma falha estranha para o aplicativo.