MS Word: Como remover todas as tabelas?

Question

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

Como posso fazer isso?

Eu encontro o link , no qual você pode usar 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

    

Answer 1

Você está perdendo o For em For Each :

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