Автоматизированные архивные технологии
Главная страница Автоматизация архивной деятельности
Новости
Статьи
Программы
   АвтоАФ 10
   АвтоОпись
   ОРФ
   Свежий взгляд
   Скриншоты
Скачать
Купить
FAQ (ЧаВО)
Отзывы
Автор
Обзор софта
Разное
Книги
Ссылки
Карта сайта
 

Добавление пункта меню Проверить опись в Word

Программа «АвтоОпись»

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

Добавьте макрос

1. В Word выберите меню Сервис | Макрос | Макросы…

2. В поле «Макросы из» выберите «Normal.dot (общего шаблона)».

3. В поле «Имя» введите название нового макроса, например «RunAutoOpis».

4. Нажмите кнопку «Создать».

5. В Microsoft Visual Basic между Sub и End вставьте текст макроса:

    Shell ("C:\Program Files\AutoOpis\AutoOpis.exe /run")

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

    Sub RunAutoOpis()
    '
    ' RunAutoOpis Макрос
    ' Макрос создан 23.03.2006 Пользователь
    '
      Shell ("C:\Program Files\AutoOpis\AutoOpis.exe /run")
    End Sub

Если программа установлена в другом месте, измените путь. Параметр «/run» сразу запускает проверку описи.

6. Закройте редактор Microsoft Visual Basic.

Добавьте кнопку в меню Файл

1. Выберите меню Сервис | Настройка…, закладку «Команды».

2. В левом столбце «Категории» выберите «Макросы».

3. В правом столбце «Команды» выберите «Normal.NewMacros.RunAutoOpis».

4. Перетащите этот элемент в нужное место, например в меню Файл.

5. Щёлкните правой кнопкой мыши по новому элементу меню Normal.NewMacros.RunAutoOpis, измените «Имя» на нужное, например «Проверить опись».

Добавьте кнопку на панель инструментов

1. Выберите меню Сервис | Настройка…, вкладку «Команды».

2. В левом столбце «Категории» выберите «Макросы».

3. В правом столбце «Команды» выберите «Normal.NewMacros.RunAutoOpis».

4. Перетащите этот элемент в нужное место на панели инструментов.

5. Щёлкните правой кнопкой мыши по новой кнопке «Normal.NewMacros.RunAutoOpis», измените «Имя» на нужное, например «Проверить опись».

6. Щёлкните правой кнопкой мыши по новой кнопке «Проверить опись», выберите меню Основной стиль, чтобы кнопка не занимала много места.

7. При необходимости щёлкните правой кнопкой мыши и выберите меню Выбрать значок для кнопки. Только выбор значков небольшой.

Проверка

1. Откройте опись.

2. Выберите меню Файл | Проверить опись или нажмите кнопку на панели инструментов.

Удаление кнопок

1. Выберите меню Сервис | Настройка…. Закладка «Команды».

2. Щёлкните правой кнопкой по пункту меню или кнопке, выберите меню Удалить.

Удаление макроса

1. Выберите меню Сервис | Макрос | Макросы…

2. В поле «Макросы из» выберите «Normal.dot (общего шаблона)».

3. Нажмите кнопку Удалить. На вопрос нажмите «Да».

Статья Автоматизация работы с архивными описями в электронном виде

Скриншоты моих программ

Описание программ FreshEyeGUI и АвтоАФ.

 

Понравилась статья? Расскажите о ней друзьям!

© 2004–2022 Сергей Плотников, сайт Автоматизированные архивные технологии
Rambler's Top100