Автоматическое формирование списка сокращений (аббревиатур)

Вроде старался коментировать подробно:) Сейчас вспомнил, что у меня в нем изначальное условие, что файлы лежат на сервере, если их нет, идет поиск в целевой папке, и только потом запрашивается у пользователя, чтобы он показал где лежат данные файлы. Пробовал на домашнем компе - тормоза в начале работы макроса - секунд девять. Завтра уберу сетевое расположение файлов из макроса и постараюсь выложить!

Вроде сделал проще, закоментировал обращение к сетевому диску, так оно мне еще понадобится.. А также может понадобиться и другим:)
Выкладываю три файла во вложении:
Sokr_slov.dot - собственно шаблон с макросом - необходимо расположить в директории STARTUP для WORDа.
Исключения для сокращений.doc
Сокращения с расшифровками.doc
К этим двум файлам при первом запуске сам запросит показать путь. В дальнейшем они будут лежать по следующему пути: C:\Program Files\Microsoft Office\OFFICE11\Sokr
Запускать пока из списка возможных макросов (да, нужно шаблон с макросом подключить как надстройку, если он сам не подключится).
Ну а теперь обращение к знатокам - хотелось бы внести следующие дополнения в данный макрос.

1. Сделать автоматический установщик - чтобы шаблон копировался в папку старта ворда для текущего пользователя - так как предстоит устанавливать его на достаточно большом количестве компьютеров.
2. Добавить панель инструментов и меню для запуска данного макроса - по выбору пользователя (меню - для дальнейшего расширения и добавления других макросов)
3. Код, скорее всего, неоптимален. Буду рад любым пожеланиям по его улучшению без потери уже существующей функциональности.
4. После готовности макроса защитить его от комбинации клавишь [Ctrl]+[Break], так как макрос работает с файлами, которые в инвизибле, и при его остановке файлы останутся открытыми, но доступ к ним будет отсутствовать и ворд можно будет только из панели процессов удалить..
Заранее благодарен за любую помощь и комментарии!

Отредактировано andrkar (11.03.2010 04:43:45)

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

Environ$("APPDATA")

Вождь - спасибо! Вот это уже куда более дельный совет! Обязательно его использую!

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

Наверное, понимается следующее.
Создается отдельная глава документа (или отдельный раздел) с заголовком "Перечень сокращений",
размещается в указанном месте документа (в начале или в конце) и название должно автоматически включаться  в оглавление (содержание) документа.
По аналогии с предметным указателем, перечнем терминов  и т. п.

Может кому-то будет интересно вот такое решение данного вопроса (см.приложенный файл)

Пользоваться достаточно просто и удобно. Как пользоваться написано в самом файле. А теперь почему удобно: сокращения, используемые в документах, как правило, не склоняются, поэтому очень удобно все сокращения заменить на ссылки, и при желании поменять это сокращение (редко, но бывает) заменить нужно только текст закладки, а ссылки поменяются автоматом.
В документе сделано так, что форматирование списка ГОСТов и сокращений соответствует стилю "Указатель 1", задаём его форматирование и всё.
Единственный момент, который решить мне не удалось, ток это расстановка знака ";" в списке сокращений после их описания и постановка "." в последней строчке списка. Тут можно было только либо ставить "." после всех, либо ";", я выбрал "." и вроде никто не придирался (в ГОСТах этот момент чётко не регламентирован).

Конечно это не полный список сокращений и ГОСТов, используемых в нашей организации, я только начал, но идея думаю понятна. Список будет дополняться.
Если кому этот вариант интересен и есть вопросы, пишите, отвечу.

Обозначения и стандарты.docx - можно для 2003го? - Обозначения и стандарты.doc

очень муторно... заумно...
двойной щелчек мыши и если выделенное то что надо, тогда меняем
как сделать знаю после выделения, а охота по щелчку