Selecionar todas as tabelas do documento
Neste tutorial criaremos um código VBA com o objetivo de Selecionar Todas as Tabelas do Documento.
Observe que na imagem abaixo temos um documento com três tabelas e digamos que necessitamos selecionar todas ao mesmo tempo, seja para aplicar uma mesma formatação em todas elas, seja para excluí-las todas de uma vez ou copiá-las para um novo local.
![Tabelas Selecionar tabelas](Selecionar-todas-as-tabelas-do-documento_arquivos/image001.jpg)
Para executar esta tarefa criaremos uma macro com a ajuda do Editor do Visual Basic.
No ambiente de programação criaremos um código VBA que selecionará todas as tabelas no documento.
Na Guia Desenvolvedor, no Grupo Código clique em Visual Basic ou pressione “ALT + F11” para abrir o Editor do Visual Basic.
![Editor do Visual Basic Editor do Visual Basic](Selecionar-todas-as-tabelas-do-documento_arquivos/image002.jpg)
No menu Inserir clique em Módulo.
![Inserir Módulo Inserir Módulo](Selecionar-todas-as-tabelas-do-documento_arquivos/image003.jpg)
Na Janela de Código adicione o seguinte código:
Sub selecionatabelas()
Dim mTab As Table
Application.ScreenUpdating = False
For Each mTab In ActiveDocument.Tables
mTab.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
Application.ScreenUpdating = True
End Sub
Deverá ficar como na imagem abaixo:
![Selecionar todas as tabelas do documento Selecionar todas as tabelas do documento](Selecionar-todas-as-tabelas-do-documento_arquivos/image004.jpg)
Feche o Editor do Visual Basic clicando no menu Arquivo e em Fechar e voltar para Microsoft Word.
![Fechar e Voltar para o Word Fechar e Voltar para o Word](Selecionar-todas-as-tabelas-do-documento_arquivos/image005.jpg)
Clique na Guia Desenvolvedor e no Grupo Código clique em Macros.
![Macro Macro](Selecionar-todas-as-tabelas-do-documento_arquivos/image006.jpg)
Selecione a macro “selecionatabelas” e clique no botão Executar.
![Executar Macro Executar Macro](Selecionar-todas-as-tabelas-do-documento_arquivos/image007.png)
Observe que quando a macro é executada todas as tabelas do documento são selecionadas.
![todas as tabelas selecionadas todas as tabelas selecionadas](Selecionar-todas-as-tabelas-do-documento_arquivos/image008.jpg)
Faça download do arquivo usado como exemplo neste tutorial: Baixar Arquivo