Note: The other languages of the website are Google-translated. Back to English

Como selecionar todas as tabelas em um documento do Word?

É fácil selecionar uma tabela no Word clicando no símbolo de tabela de seleção de ponto botão no canto superior esquerdo da tabela conforme a captura de tela abaixo. Você também pode selecionar uma tabela com o recurso Selecionar Tabela. No entanto, existe alguma maneira de selecionar rapidamente todas as tabelas de uma vez no documento do Word? Os métodos neste artigo o ajudarão a superar isso. 


Selecione todas as tabelas no Word com código VBA

Selecione facilmente todas as tabelas no Word com o Kutools for Word


Selecione todas as tabelas no Word com código VBA

1. pressione outro + F11 chaves para abrir o Microsoft Visual Basic para aplicativos janela.

2. Na abertura Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo, Em seguida, copie e cole o seguinte código VBA na janela Módulo;

Código VBA: Selecione todas as tabelas no documento atual:

Sub selecttables()
Dim mytable As Table

For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
End Sub

3. aperte o F5 chave para executar o código

Então, todas as tabelas são selecionadas no documento atual imediatamente.


Selecione facilmente todas as tabelas no Word com o Kutools for Word

Comparando com o uso de um código VBA para selecionar todas as tabelas em um documento, o Kutools for Word Selecionar tabelas utilitário é bastante útil. Você pode usar este recurso para selecionar tabelas em uma seleção ou em todo o documento. Faça o seguinte:

Kutools for Word : Com mais de 100 suplementos úteis do Word, livre para tentar sem limitação em 60 dias.

Clique Kutools > Tabelas > Selecionar tabelas. Veja a imagem:

Nota: Para selecionar tabelas na seleção, você precisa primeiro selecionar o intervalo e depois aplicar o recurso.

Então você pode ver os resultados da seguinte forma.

Selecione as tabelas na seleção:

Selecione as tabelas em todo o documento:

Se você deseja ter um teste gratuito deste utilitário, vá para baixe gratuitamente o software primeiro e, em seguida, aplique a operação de acordo com as etapas acima.


Demonstração: selecione facilmente todas as tabelas no Word com o Kutools for Word



Ferramentas de produtividade de palavras recomendadas

 

Kutools para Word - Mais de 100 recursos avançados para Word, economize 50% do tempo

  • Operações complicadas e repetidas podem ser executadas com processamento único em segundos.
  • Insira várias imagens em pastas em um documento do Word de uma vez.
  • Mescle e combine vários arquivos do Word em pastas em um na ordem desejada.
  • Divida o documento atual em documentos separados de acordo com o título, quebra de seção ou outros critérios.
  • Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns, e assim por diante ...
Comentários (10)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
muito obrigado ele é um bom programa mas depois de alguns dias parou e exige senha e nome de usuário
Este comentário foi feito pelo moderador no site
excelente macro e muito fácil
Este comentário foi feito pelo moderador no site
Código bacana no início, mas definitivamente corrompeu um monte de tabelas no Word 2010. Arruinou meu arquivo muito bem e tive que reverter para uma versão anterior. Seja cauteloso!
Este comentário foi feito pelo moderador no site
Maravilhoso consegui a solução usando o código VBA. Muito obrigado
Este comentário foi feito pelo moderador no site
O código modificado a seguir seleciona todas as tabelas, exceto as que possuem apenas uma linha: Sub SelAllTbls() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table For Each Tbl In ActiveDocument.Tables If Tbl.Rows.Count > 1 Then Tbl.Range. Editors.Add (-1) End If Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub O código a seguir seleciona apenas as linhas de cabeçalho: Sub selallHeaders() On Error Resume Next ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl como tabela para cada Tbl em ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Eu tenho muito mais desses códigos que selecionam as últimas linhas, todos os marcadores, parágrafos pequenos / longos, etc. Assista ao meu vídeo a seguir: https://www.youtube.com/watch?v=p_ZhufliFw8
Este comentário foi feito pelo moderador no site
Existem várias tabelas em um documento (cerca de 200). Quero selecionar todas essas tabelas apenas e colá-las em um novo documento no formato de tabela. Quando seleciono as tabelas conforme o procedimento acima, durante a operação de colagem, ele as cola como texto e não como tabela. Você pode por favor me ajudar?
Este comentário foi feito pelo moderador no site
Parece que essas macros não funcionam no Word 2016
Este comentário foi feito pelo moderador no site
Funciona no Word 2016. Qual erro você está recebendo?
Este comentário foi feito pelo moderador no site
Eu já entendo. Para macros de trabalho corretas, o cursor não deve estar na tabela quando você chama macros. Obrigada.
Este comentário foi feito pelo moderador no site
Muito legal o método. Obrigada
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL