Neste artigo, veremos duas maneiras úteis de aplicar o mesmo estilo a todas as tabelas do seu documento do Word.
De vez em quando, precisamos criar tabelas em nosso documento do Word para colocar e organizar vários dados. E se houver várias tabelas, seria melhor aplicar o mesmo estilo a elas para tornar o arquivo mais profissional. Por esta razão, gostaríamos de mostrar a você 2 métodos nos próximos textos.
Método 1: Aplicar o mesmo estilo a uma tabela individualmente
Após inserir uma tabela no documento, posicione o cursor dentro da tabela para abrir a guia “Ferramentas de Tabela”. Em seguida, clique em “Design” e escolha um estilo de tabela na biblioteca “Estilos de Tabela”.
No entanto, caso você queira um estilo novo para suas tabelas, você pode personalizar um novo seguindo as etapas a seguir.
- Em primeiro lugar, clique no botão “Mais” no grupo “Estilos de tabela”.
- Em seguida, escolha “Novo estilo de tabela”.

- Agora, na caixa de diálogo “Criar novo estilo a partir da formatação”, nomeie primeiro o novo estilo.
- Em seguida, defina a formatação como fonte, tamanho da fonte, bordas, cor de preenchimento, etc.
- E selecione a opção “Novos documentos baseados neste modelo”.
- Por fim, clique em “OK”.
Se você deseja formatar o modelo de tabela de uma maneira mais exclusiva, dê uma olhada neste artigo: 2 métodos para alternar cores de linhas ou colunas em sua tabela do Word
Método 2: manipular tabelas em lotes
No método 2, temos uma macro para você selecionar todas as tabelas existentes em um documento ativo. Depois que as tabelas são selecionadas, você pode aplicar qualquer estilo para elas em lotes.
- Primeiro, clique na guia “Desenvolvedor” na faixa de opções.
- Em seguida, clique em “Visual Basic” para acionar o editor VBA.
- Em seguida, insira um novo módulo clicando em “Normal” e depois em “Inserir”.
- No menu suspenso, escolha “Módulo”.
- Clique duas vezes no novo módulo para abrir a área de codificação e cole os códigos:
'Select all tables in a Word document.
Sub SelectAllTables()
Dim objDoc As Document
Dim objTable As Table
Application.ScreenUpdating = False
'Initialization
Set objDoc = ActiveDocument
'Set each table in document as a range editable to everyone.
With objDoc
For Each objTable In .Tables
objTable.Range.Editors.Add wdEditorEveryone
Next
objDoc.SelectAllEditableRanges wdEditorEveryone
objDoc.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End With
End Sub
- Por fim, pressione o botão “Executar”.
Agora todas as tabelas já devem estar selecionadas. Você pode aplicar um estilo integrado ou recém-criado a todas as tabelas do documento atual.
Lide com a perda de dados do Word
A perda de dados críticos pode ser uma ruína da vida digital das pessoas. O que é sarcástico é que sentimos arrependimento somente depois que o que foi feito foi feito. Como não adianta lamentar a perda, sugerimos que você adquira uma ferramenta para recuperar erro de documento Word docx o mais cedo possível.
Introdução do autor:
Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo Produto de recuperação Excel xls e pdf reparar produtos de software. Para mais informações visite www.datanumen.com




