O Microsoft Word permite aplicar a formatação a grandes trechos de texto em massa. Você pode copiar a formatação aplicada a um pedaço de texto e aplicá-la a parágrafos e seções inteiros com apenas alguns cliques. Infelizmente, o mesmo não se aplica às tabelas. Se você quiser alterar o estilo de todas as tabelas em um documento específico, terá que selecionar cada uma individualmente e alterar o estilo. A alternativa é usar uma macro para fazer isso.
Encontrar estilo de tabela
Antes de 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 você 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 lhe dirá como é chamado. Anote o nome e você estará pronto para criar a macro.
Macro de estilo de tabela
Habilite a guia Desenvolvedor no Word acessando Arquivo>Opções>Personalizar faixa de opções. Ative a barra de ferramentas do desenvolvedor e, em seguida, retorne ao seu documento.
Na guia Desenvolvedor e clique em Macros. Dê-lhe o seguinte nome;
ApplyTableStyle
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 entre aspas pelo 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 alterará 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 o que você especificou na macro.
Se você precisar alterar qual estilo a macro se aplica, precisará 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.