[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, отнюдь. Я очень многого не знаю, и раз от раза открываю для себя что-то новое.