Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

Como selecionar todas as tabelas em um documento do Word?

É fácil selecionar uma tabela no Word clicando no dot-select-table-symbol 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, grátis para experimentar sem limitação em 60 dias.

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

Importante: 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 ...
Saiba mais Faça o download Comprar
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alex · 4 years ago
    It seeems that this macros does not work in Word 2016
    • To post as a guest, your comment is unpublished.
      Suril · 4 years ago
      It works in Word 2016. What error are you getting?
      • To post as a guest, your comment is unpublished.
        Alex · 4 years ago
        I understand already.
        For correct work macros cursor must to be not in table when you call macros.
        Thank you.
  • To post as a guest, your comment is unpublished.
    Iqbal · 4 years ago
    There are multiple tables in a document (about 200). I want to select all these tables only and paste them in a new document in the table format. When I select the tables as per above procedure then during paste operation it pastes them as text and not as table. Can you please help me?
  • To post as a guest, your comment is unpublished.
    Suril · 4 years ago
    The following modified code selects all tables, except tables having only one row:
    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

    The following code select only the header rows:
    Sub selallHeaders()
    On Error Resume Next
    ActiveDocument.DeleteAllEditableRanges (-1)
    Dim Tbl As Table
    For Each Tbl In ActiveDocument.Tables
    Tbl.Rows(1).Range.Editors.Add (-1)
    Next
    ActiveDocument.SelectAllEditableRanges (-1)
    ActiveDocument.DeleteAllEditableRanges (-1)
    End Sub

    I have many more such codes that select last rows, all bullets, small / long paras, etc. Watch my following video:
    https://www.youtube.com/watch?v=p_ZhufliFw8
  • To post as a guest, your comment is unpublished.
    Vinoth Murali · 4 years ago
    Wonderful I got the solution by using the VBA code. Thank you so much
  • To post as a guest, your comment is unpublished.
    JPF · 5 years ago
    Nifty code at first but it definitely corrupted a bunch of tables in Word 2010. Screwed up my file pretty good and had to revert back to an earlier version. Be wary!
  • To post as a guest, your comment is unpublished.
    rodrigo · 6 years ago
    excellent macro and very easy
  • To post as a guest, your comment is unpublished.
    refaat · 7 years ago
    thank you so much
    he is good program but after few days stopped and require password and user name