MS Word: Как удалить все таблицы?

Question

Мне нужно запустить программу проверки текста на моем документе (Grammarly), и мне нужно удалить все таблицы.

Как мне это сделать?

Я нахожу https://www.extendoffice.com/documents/word/1208-word-remove-delete-all-tables.html , в котором вы можете использовать VBA

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

но Each oTable In ActiveDocument.Tables дает мне ошибку при запуске. Я нахожусь на MS Word 2013 на Mac

Answer 1

Вы пропускаете For In For Each:

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