Sub UsuwaWszystkieTabele()
'deklaracja zmiennej jako tabela
    Dim tabela As Table
    For Each tabela In ActiveDocument.Tables
'wyszukuje w aktywnym dokumencie wszystkie tabele i usuwa je
        tabela.Delete
    Next tabela
End Sub