[решено] удаление таблиц

[kontox]

Скажите, пожалуйста, а можно в ворде, если есть много таблиц их удалить, но не в ручную, а как бы в настройках, типа удалить все таблицы:) чтобы просто остался лист со словами.

[Iska]

kontox, удалить или преобразовать в текст?

[kontox]

Iska, именно удалить. Т.е. представьте, что есть 55 листов, на каждом текст в таблице, в ручную (резинкой) это опупеть можно удалять. Нет ли какой нить спец. тулзы?))

[okshef]

Макросом
Sub TablesCut()
Set td = ThisDocument
For Each tabl In td.Tables
tabl.Select
Selection.Cut
Next
End Sub

Учтите, содержимое таблиц будет удалено.
P.S.
Или замените
tabl.Select
Selection.Cut
на
tabl.Delete
быстрее

[Iska]

представьте, что есть 55 листов, на каждом текст в таблице, в ручную (резинкой) это опупеть можно удалять. »
Представил ;). Затем нажал «Alt-F11», «Ctrl-G», в окно «Immediate» вставил строку:
For i = ThisDocument.Tables.Count To 1 Step -1 : ThisDocument.Tables.Item(i).Delete : Next i
Стал в конец вставленной строки, нажал «Enter».

[kontox]

Iska, вы гений ворда)))

[Iska]

kontox, отнюдь. Я очень многого не знаю, и раз от раза открываю для себя что-то новое.