удаление таблиц
Скажите, пожалуйста, а можно в ворде, если есть много таблиц их удалить, но не в ручную, а как бы в настройках, типа удалить все таблицы:) чтобы просто остался лист со словами.
|
kontox, удалить или преобразовать в текст?
|
Iska, именно удалить. Т.е. представьте, что есть 55 листов, на каждом текст в таблице, в ручную (резинкой) это опупеть можно удалять. Нет ли какой нить спец. тулзы?))
|
Макросом
Код:
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
быстрее |
Цитата:
Цитата kontox
представьте, что есть 55 листов, на каждом текст в таблице, в ручную (резинкой) это опупеть можно удалять. »
|
Представил ;). Затем нажал «Alt-F11», «Ctrl-G», в окно «Immediate» вставил строку:
Код:
For i = ThisDocument.Tables.Count To 1 Step -1 : ThisDocument.Tables.Item(i).Delete : Next i
Стал в конец вставленной строки, нажал «Enter». |
kontox, отнюдь. Я очень многого не знаю, и раз от раза открываю для себя что-то новое.
|
Время: 16:18.
© OSzone.net 2001-
