Разделить таблицу по условию

@NTalisman · Регистрация: 29.03.2013

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста, доделать или переделать

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "MYTHIC"
            .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.SplitTable
    Selection.InsertBreak Type:=wdPageBreak
    End Sub

Большую таблицу необходимо разбить на отдельные по условию (в данном случае каждая таблица начинается со строки с текстом « MYTHIC»), и каждая таблица должна быть на отдельном листе.
В макросах не очень соображаю, поэтому не знаю, как сделать, чтобы действия макроса распространялись на всю таблицу.
Спасибо.

@NTalisman · 05.09.2013, 15:30 **[ТС]**

Вы не правы. Я к Вашему макросу "прицепила" кое-что из макроса ViterAlex - и тоже работает.
Так что спасибо всем, кто помог.

@nekulikov · 12.02.2026, 11:15

Сообщение от ViterAlex

Вставлю свои пять копеек. Поиск ключевого слова выполняется встроенным механизмом поиска, а не перебором ячеек. Количество разбивок вставляется перед первой таблицей в ячейку

Здравствуйте!
В ворд файле необходимо разделить таблицу по нескольким подзаголовкам. Нужно только разделение таблицы, без разрыва, без переноса на новую страницу.
Используя код ув. ViterAlex получается разделить таблицу только по одному подзаголовку, а в моей таблице их 9 разных.
Так вот, как составить код чтобы он делил таблицу по нескольким разным подзаголовкам? Подскажите, пожалуйста.

Новые блоги и статьи Все статьи Все блоги /
Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .
Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .	Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15 anaschu 23.05.2026 Внезапно хорошее здоровье сотрудников не нужно капиталистам?))	Модель здравоСохранения 15. Как мы чинили AnyLogic модель рабочего коллектива: сочленение диаграммы состояний болезней и поломок в ресурспул anaschu 23.05.2026 Как мы чинили AnyLogic модель рабочего коллектива Сегодня разобрались с пятью багами, из-за которых модель либо падала с ошибкой, либо давала совершенно бессмысленные результаты. Каждый баг был. . .

@NTalisman 160 / 0 / 1 Регистрация: 29.03.2013 Сообщений: 48
	05.09.2013, 15:30 [ТС]
	Вы не правы. Я к Вашему макросу "прицепила" кое-что из макроса ViterAlex - и тоже работает. Так что спасибо всем, кто помог. 0