Удаление не нужных элементов текста

Не успел глянуть сегодня - но идея =>:
1) Поиск всех таблиц
2) Проверка элементов таблицы
2.1. (1;1)="Назад" с TRIM
2.2. (2;1)="Содержание"
если совпадает - убить таблицу и перейти к следующей

В вашем случае 3 варианта записей в таблице:
Содержание;Дальше...
Назад;Содержание;Дальше...
Назад;Содержание
я сделал обобщение и получил 2 условия - см ниже Left - т.к. выяснилось, что там в конце еще передается символ ? абзаца... Думаю, такой точности проверки достаточно
Поскольку в тексте есть и таблицы только в 1 столбец, то добавлено еще 1 условие

Sub TblDeleter()

Dim myTable As Table

    For Each myTable In ActiveDocument.Tables
        If myTable.Rows(1).Cells.Count > 1 Then
            If Left(myTable.Cell(1, 1).Range.Text, 5) = "Назад" And Left(myTable.Cell(1, 2).Range.Text, 5) = "Содер" _
                Or Left(myTable.Cell(1, 1).Range.Text, 5) = "Содер" And Left(myTable.Cell(1, 2).Range.Text, 5) = "Дальш" Then
                myTable.Delete
            End If
        End If
    Next myTable
End Sub

А вообще - вы, видимо не любопытны... ваша задача скорее рутинная из-за необходимости специфических условий - работа же с таблицами как таковыми минимальна - первые же 3-5 запросов в Yandex/Google дали бы вам ответ

От администратора: Пожалуйста, оформляйте код специальными тегами code.

Отредактировано admin (13.10.2010 14:53:09)

Да, это макрос - по крайней мере мне не известно как задать 2 условия в поиске и есть ли спец. символ поиска обозначающий таблицы.

Вручную это делается так (у меня англ версия, поэтому привожу клав. комбин:
1) отжать клавишу NumLock
2) Ctrl+G -> открывается диалог GoTo - выбираете там таблицу и жмете Next(следующ).
3) закрываете диалог
4) Alt + Num5 - выделится вся таблица (если забыли 1 - впечатаются ♣ )
5) Shift+Del - просто Del очистит таблицу
6) Ctrl+Alt+Y - переход на следующую таблицу - это вообще полезная комбинашка чтобы не вызывать повторно диалог поиска...

Отредактировано VBA-addict (13.10.2010 14:37:21)

Num5 это кнопка 5 на цифровом блоке - самая правая часть клавиатуры
Иллюстрация 1
N / * -
7 8 9 +
4 5 6 +
1 2 3 E
0 0 . E

Видимо, вы меняли назначение клавиш по умолчанию - легко проверить
Меню Tools\Customise\Keyboard - встать на поле New Shortcut Key и нажать вашу комбинацию
у меня на <Alt +Num5> показывает Currently assigned to: TableSelectTable

Если у вас иное - выберите слева в поле Categories - Table, а в поле Commands - TableSelectTable - и назначьте свои клавиши - тогда их и применяйте....

Сервис\Настройка\Сочетания клавиш -> Категории:Таблица ->Команды:TableSelectTable

Ну сообразите же сами хоть чуть-чуть...

З.Ы.

  а вы чуть выше надписи Del на этой кнопке смотреть пробовали? 

Отредактировано VBA-addict (13.10.2010 19:41:01)

Вопрос в том - а в чем макрособоязнь-то? У меня ваш документ макрос прошерстил где-то сек за 10...
Если вы так круты, что можете быстрее вручную - снимаю шляпу

В общем, получилось так, что мы тут дольше топик пишем, чем можно было бы запустить макрос со всеми объяснениями как это делать

Отредактировано VBA-addict (13.10.2010 19:46:02)

VBA-addict
Спасибо за макрос! Еще желательно было бы иметь макрос для удаления любых таблиц в документе. Что надо изменить?

Отредактировано tigr (14.10.2010 09:27:24)

Ура! Заработало!

VBA-addict
Спасибо за макрос для удаления любых таблиц в документе. Аналогичный макрос для удаления рисунков можно?