Questão MS Word: Como remover todas as tabelas?


Eu preciso executar o programa de verificação de texto no meu documento (gramaticalmente), e eu preciso remover todas as tabelas.

Como eu posso fazer isso?

eu acho https://www.extendoffice.com/documents/word/1208-word-remove-delete-all-tables.html , em que você poderia usar o VBA

Sub Removetables ()
Dim oTable As Table
Each oTable In ActiveDocument.Tables
oTable.Delete
Next oTable
End Sub

mas Each oTable In ActiveDocument.Tables me dá erro quando eu o executo. Eu estou no MS Word 2013 no Mac


4


origem


Você pode selecionar qualquer tabela e, em seguida, ir para a guia Layout em Ferramentas de tabela e clicar em Converter em texto. Isso excluirá as tabelas e as tornará um texto simples. - iSR5


Respostas:


Você está sentindo falta do For dentro For Each:

Sub Removetables ()
    Dim oTable As Table
    For Each oTable In ActiveDocument.Tables
    oTable.Delete
    Next oTable
End Sub

11



Não pensei que poderia ser tão simples. Eu não estou familiarizado com a sintaxe do VBA. - cqcn1991
Você pode querer passar pelas tabelas de trás para frente, excluindo do final. - Lobachevsky
@Lobachevsky, por que isso? O For For não será repetido, mesmo se um for excluído? Ou isso faz algum renumerar estranho ou algo assim? - Jake
@ Jake Pages re-arranjo ... (suponho) ... Word gosta de expressar sua criatividade com o rearranjo de espaço (Imagens que mudam de página e assim por diante ...):). Começando de você permitir ele (Word) para fazer mais vezes ... (n * (n-1) / 2) com n tabelas, em vez de n. - Hastur