Сортировка абзацев в частных объявлениях

[Mityura]

Здравствуйте, уважаемые форумчане!
Необходимо отсортировать текст (пример фрагмента большого файла) следующего вида:

ПРОДАМ​

"С.-Эскудо" 12.2005 г., б/п, 4ВД, авт., с/с, литье, туманки, подогревы зеркал, сидений, дворников, сер., 785 т.р. Тел. 485-945.
"Т.-Раш" 2006 г., б/п, 4ВД, авт., с/с, литье, туманки, сонары, спойлер, CD, син., 665 т.р. Тел. 485-945.
"ММС-Паджеро" 2006 г., б/п, 4ВД, авт., с/с, литье, туманки, спойлер, серебр., 3-двер., нов. куз., 990 т.р. Тел. 485-945.
снегоуборочник "Хонда", бенз., 4-такт., на гусеничном ходу, в отл. сост., б/п, из Яп. Тел. 8-914-624-4562.​

КУПЛЮ​

"ВАЗ-2105" в люб. сост., с докум. Тел. 8-914-787-6689.
а/м в пред. 40 т.р., дрова не предл., "Тойота", "Ниссан". Тел. 8-914-622-2883.
"Т.-Королла", "Т.-Спринтер", унив., рессоры, 4ВД, диз., кор. авт., не ранее 96 г., 100 т.р. Тел. 8-909-836-0773.
​

ОБМЕН

"Хонда-CRV" 99 г., 4ВД, авт., бенз., серебр., V-2000, модель двиг. В20В, хор. сост., 390 т.р., обмен, ваша допл. Тел. 8-914-022-0000.
1,5-комн. кв. – на "Т.-Ленд-Крузер-Прадо" не позднее 2000 г., с допл. Тел. 8-914-620-5315, 8-914-789-4886.
​

АРЕНДА

в аренду джип. Тел. 8-962-290-8892.
а/м в аренду на разные сроки, с посл. выкупом. Тел. 8-914-781-7012. РАМКА
​

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

 

[Mityura]

Ответ: Сортировка абзацев в частных объявлениях

В принципе, сортировка абзацев не проблема.
А вот как определить диапазоны абзацев между рубриками, чтобы потом эти диапазоны перебрать с помощью цикла для сортировки?

 

[Skvoznyak]

Ответ: Сортировка абзацев в частных объявлениях

это же очевидно - по стилю рубрики. как наткнулись на него - так и диапазон кончился.

 

[Mityura]

Ответ: Сортировка абзацев в частных объявлениях

это же очевидно - по стилю рубрики. как наткнулись на него - так и диапазон кончился.

Пожалуйста, пример создания таких диапазонов, если можно.

 

[Skvoznyak]

Ответ: Сортировка абзацев в частных объявлениях

myParagraphs = myStory.paragraphs;

start=0;
counter=0;
while (counter<myParagraphs.length)
{
if (myParagraphs[counter].appliedParagraphStyle=="rubrika") 
{
sortParagraphs(start,counter-1);
start=counter+1;
}
counter++;
}

примерно так, если на скорую руку. доделать, думаю, сможете

 

[boriskasmoscow]

Ответ: Сортировка абзацев в частных объявлениях

http://adobeindesign.ru/2010/04/26/sort-diapazon/