O Microsoft Word permite aplicar a formatação aograndes trechos de enmasse de texto. Você pode copiar a formatação aplicada a um bit 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ê deseja alterar o estilo para todas as tabelas em um documento específico, precisará selecionar cada uma individualmente e alterar o estilo. A alternativa é usar uma macro para fazer isso.
Localizar estilo de tabela
Antes de criar a macro, você precisa encontraro nome do estilo da tabela que você deseja aplicar. Isso é bem fácil. Abra o documento do Word para o qual você deseja alterar os estilos de tabela. Clique dentro de uma tabela e, em seguida, vá para a guia Design na guia Ferramentas da tabela.
Passe o cursor do mouse sobre o estilo de tabela que você deseja aplicar a todas as tabelas, e uma dica de ferramenta informará como é chamada. Anote o nome e você está 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. Habilite a barra de ferramentas Desenvolvedor e, em seguida, retorne ao seu documento.
Na guia Desenvolvedor, clique em Macros. Dê o seguinte nome;
ApplyTableStyle
Clique em criar e digite o seguinte no códigocaixa, no entanto, você precisa editar esta linha: tbl.Style = "Medium Shading 2 - Accent 1". Substitua o bit dentro das aspas pelo nome do estilo da tabela que você copiou na etapa anterior. Não remova as aspas do código. Basta digitar o nome do estilo da 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

É tudo o que você precisa fazer. Uma vez executada, a macro mudará automaticamente o estilo para todas as tabelas. Se você precisar usar um estilo de tabela diferente, precisará remover essa macro, pois ela altera proativamente o estilo de todas as tabelas para o especificado na macro.
Se você precisar alterar qual estilo a macrose aplicar, você 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 do documento. Obviamente, isso seria mais fácil se o Microsoft Word tivesse uma opção interna para fazer isso. Parece uma falha estranha para o aplicativo.
Comentários