Удалить все таблицы в документе

[Balexander]

Добрый день.
Нужно удалить все таблицы в документе.
Пытаюсь это сделать следующим образом:

Sub main()
Dim m_tabl As Integer
Dim t_tabl As Integer
m_tabl = ActiveDocument.Tables.Count
If m_tabl <> 0 Then
For i_tabl = 1 To m_tabl
ActiveDocument.Tables(i_tabl).Delet e
Next
MsgBox "Все таблицы удалены"
End If
End Sub

Однако, когда таблиц больше одной программа выдает ошибку, что программа ссылается на несуществующую таблицу. Подскажите, пожалуйста, в чем тут проблема?

[forumWord]

Sub Макрос1()
Do While ActiveDocument.Tables.Count <> 0
    ActiveDocument.Tables(1).Delete
Loop
MsgBox "В документе таблиц нет"
End Sub