создание именного указателя

[Sasha_Smirnov]

If j2 > 2 And InStr("QWERTYUIOPASDFGHJKLZXCVBNMЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮЁ", Mid(s2, 1, 1)) > 0 Then

попробуйте заменить на

If j2 > 2 And Mid(s2, 1, 1) Like "[A-zА-ЯЁ]" Then

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

...сэкономятся многие часы рутинной работы. А для редакторов-профи даже не часы - дни и недели.

То есть то, на что вам требуются лишь часы, — у профессионалов занимает аж целые недели?!

Ещё с 95-го ворда есть спецсредства (см. рис.), но даже умеючи — долго!!!

[caute]

То есть то, на что вам требуются лишь часы, — у профессионалов занимает аж целые недели?!

дилетанту, вроде меня, приходится раз в десять лет этим заниматься, а профи - раз в неделю

Ещё с 95-го ворда есть спецсредства

гения, который с помощью этих "спецсредств" сумеет автоматически составить именной указатель, немедля заберут в Редмонд (в музей). Вы сами-то пробовали, Саша?

[caute]

может, убрать иллюстрации? а то в экран у меня страница не вмещается.
и выпячивать себя как-то нехорошо
Лучше подскажите, пожалуйста, как макросом привести список номеров типа:
225, 360, 787
100, 273
к виду
100, 225, 273, 360, 787

[shanemac51]

посмотрела немного с утра
НЕОБХОДИМ КАТАЛОГ C:\RAB

-в ворде убрала предел=32000, можно одной порцией с формированием текстового файла
-затем в екселе текстовик уплотняется в требуемый вид в дополнительный лист
-в листе можно корректировать ЛИСТ1
---убирать ненужные позиции(сделано)-- ЗВЕЗДОЧКА В 1-М СТОЛБЦЕ
---группировать энштейнов(пока не доделала--идея есть реальная)
---на выходе перевод в ворд

не забудьте сделать архив для каждого источника
пример в приложении

[caute]

shanemac51
если я такой указатель верстальщику пошлю, скажет, что я у него хлеб отнимаю
красиво не надо, в книжке свое форматирование будет
группировать эйнштейнов - это уже роскошь, не так трудно их поудалять вручную вместе с прочей ерундой случайной.

Sasha_Smirnov
главное ведь, что дает этот макрос, - даже не номера страниц (это, как выяснилось, Индизайн кое-как умеет, только с падежами там напряг), а первичная выборка имён для указателя. Глазами в огромном тексте их трудно выбирать, чтобы пометить как "элемент указателя", да и можно пропустить какие-то имена по невнимательности, и поди упомни, какие уже раньше помечал, какие нет, когда их две-три сотни.
А когда они в столбик, да с номерами страниц, - это легко и надежно. Отсекай себе лишнее, аки скульптор.
Удивляюсь, что в редакциях до сих пор такой макрос не сделали себе для облегчения труда.

[shanemac51]

ПОПРОБУЙТЕ

-разметьте c:\rab
-word.bas запишите в шаблон worda, выполните
-сформируется c:\rab\00.txt
-запустите bibl01.xlsm
-на лист1 кнопка уплотнит слова из листа 00 в лист1
-в листе1 удобно удалять лишнее, набив * в столбец1
-и вывести в ворд

-пересчет номеров я доделаю вечером, это несложно

[caute]

00.txt был создан, эксель его всосал, а вот лист1 выдал ошибку



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

[shanemac51]

я пускала несколько раз, все было ок

проверь имена листов
-00
-лист1

их нельзя переименовывать

какая у вас версия екселя

макрос рекордером записан
попробуй, пройдет ли компиляция

в буфере большой объем данных --разрешить

п.с. какой размер 00.txt и какова оперативка компа

в строках

попробуй заменить строку на числовую

SortOn:=0, Order:=1, DataOption:=0

[caute]

офис 2003 - и word, и эксель
ничего не переименовывал, я послушный - всё по инструкции
00.txt - 205 kb
оперативка - 4 gb (но винда 32-битная, столько не умеет юзать)
в буфер разрешил сохранять (иначе сразу error 400 выдает)
кнопка Compile VBAProject выдает ту же ошибку "xlSortOnValues"

шаня, у меня сохранился вчерашний файлик со всем необходимым, осталось только вычистить его от лишних слов и нумерацию причесать, это можно и ручками - не хочу девушку мучать, там на 2-3 часа работы всего
главное дело вы мне помогли сделать

[shanemac51]

--отсортируй вручную по столбцам 2 и 3 лист1
--затем  заблокируй строки
oт 
    ChDir "C:\rab"
до 
    End With
включительно и запусти m32a отдельно