Методичка | Скачать   Почта | Telegram | В контакте | Facebook | Twitter | Контакт
ГЛАВНАЯ СКРИНШОТЫ МАКРОСЫ ИСТОРИЯ ТВОРЧЕСТВО ИНСТРУКЦИИ ПАМЯТКА КОНТАКТ НОВОСТИ

МАКРОС M040_Документ_Экзекутор 

ГРУППА

Документ - Document [М]

НАЗНАЧЕНИЕ

Диалог обработки групп элементов документа.

ОПИСАНИЕ

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

Поддержка групп элементов (перебор): страницы, разделы, блоки текста, таблицы (в т.ч. строки, столбцы, ячейки, шапки, подзаголовки), рисунки, списки, поля любого типа, сноски, закладки, параграфы, строки текста, слова и др. Элементы с оригинальными параметрами: таблица с объединенными ячейками или без, нумерованный или маркированный список, иллюстрация заданного типа и формата, параграф без знака абзаца и др.

Кроме встроенного набора элементов, "Экзекутор" позволяет использовать стандартный поиск Word для отбора элементов. Т.е. достаточно настроить стандартный поиск и "Экзекутор" будет перебирать и обрабатывать искомые элементы. Дополнительно поиск усилен фильтрами, а также проверкой по месту (в начале или конце параграфа, слова, фразы и др.).

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

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

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

Можно работать в режиме поиска, без обработки элементов. Отличительные особенности: поиск сразу во всех частях документа; поиск одновременно во всех открытых документах; дополнительные фильтры искомых элементов.

Для работы с "Экзекутором" надо освоить запись макросов. Это простая операция сводится к нажатию кнопок "Начать запись" и "Остановить запись". Эти кнопки расположены по-разному, в зависимости от версии Word (см. справку). После начала записи, Ваши операции с документом будут сохраняться в макросе, вплоть до остановки записи. Проверить правильность записи можно выполнив записанный макрос. Не все действия пользователя можно записать в макрос, поэтому проверку делать обязательно.

Пример 1. Вставка тире в пустые ячейки таблиц открытых документов.

  • Сначала создадим обрабатывающий макрос:
    • Откроем документ с таблицей
    • Поместим курсор в любую пустую ячейку таблицы
    • Включим запись макроса, назвав его "Заполнение_ячейки"
    • Вручную наберем текст "-", затем обнулим отступы абзаца и центрируем его
    • Остановим запись макроса
  • Теперь запустим "Экзекутор":
    • На вкладке "Макрос" укажем "Заполнение_ячейки"
    • На вкладке "Документ" отметим все открытые документы
    • На вкладке "Область" укажем "Главная часть"
    • На вкладке "Элемент" укажем "Таблица" > "Ячейка таблицы"
    • На вкладке "Фильтр" укажем "Пустые"
    • Жмем кнопку "Пуск", в результате чего во всех пустых ячейках открытых документов появится центрированное тире
  • Записанный макрос "Заполнение_ячейки" можно сохранить и использовать повторно

Пример 2. Очистка колонтитулов.

  • Создадим обрабатывающий макрос:
    • Откроем документ
    • Включим запись макроса, назвав его "Очистка_области"
    • Нажмем клавишу Delete или Ctrl+X
    • Остановим запись макроса
  • Запустим "Экзекутор":
    • На вкладке "Макрос" укажем "Очистка_области"
    • На вкладке "Область" укажем "Часть документа" > "Верхние колонтитулы" и/или "Нижние колонтитулы"
    • На вкладке "Элемент" укажем "Область" > "Область"
    • Жмем кнопку "Пуск"
  • Макрос "Очистка_области" подходит для очистки или удаления любых элементов поддерживаемых "Экзекутором". Например, для удаления рисунков, списков, очистки таблиц и др.

Пример 3. Добавление названий к рисункам.

  • Создадим обрабатывающий макрос:
    • Откроем документ с рисунками
    • Выберем любой рисунок
    • Включим запись макроса, назвав его "Названия_рисунков"
    • Выполним стандартную операцию вставки названия с нужными параметрами
    • Остановим запись макроса
  • Запустим "Экзекутор":
    • На вкладке "Макрос" укажем "Названия_рисунков"
    • На вкладке "Область" укажем "Главная часть "
    • На вкладке "Элемент" укажем "Иллюстрация" > Тип "Рисунок"
    • Жмем кнопку "Пуск"
  • По такой же схеме можно создавать названия таблиц, формул и др.

Пример 4. Выборка абзацев, содержащих слово "Глава".

  • Создадим обрабатывающий макрос:
    • Откроем документ
    • Поместим курсор в параграф со словом "Глава"
    • Включим запись макроса, назвав его "Выборка_глав"
    • Курсор в начало абзаца: Ctrl+Стрелка вверх
    • Выделение абзаца: Ctrl+Shift+Стрелка вниз
    • Копируем абзац в буфер: Ctrl+C
    • Курсор в конец документа: Ctrl+End
    • Вставляем абзац из буфера: Ctrl+V
    • Остановим запись макроса
  • Запустим "Экзекутор":
    • На вкладке "Макрос" укажем "Выборка_глав"
    • На вкладке "Область" укажем "Главная часть"
    • На вкладке "Элемент" укажем "Поиск"
    • Перейдем в документ и откроем окно поиска (Ctrl+F)
    • В окне поиска, в поле "Найти", введем текст "Глава"
    • Выборка будет помещаться в конце документа, поэтому, во избежание зацикливания, параметр "Направление" зададим "Назад"
    • Нажмем кнопку "Найти далее"
    • Закроем окно поиска и вернемся в "Экзекутор"
    • Жмем кнопку "Пуск"

Пример 5. Замена текста во всех надписях документа (в колонтитулах, в группах, на полотне).

  • Создадим обрабатывающий макрос:
    • Создадим макрос, который, получив от "Экзекутора" надпись, будет выполнять внутри нее поиск и замену:
      - откроем обрабатываемый документ
      - перейдем в редактор Visual Basic (Alt+F11)
      - в модуле ThisDocument введем код макроса:
      Sub Надпись_Замена(ByRef myShape As Shape)
          With myShape.TextFrame.TextRange.Find
              .Text = "Найти"
              .Replacement.Text = "Заменить"
              .Execute Replace:=wdReplaceAll
          End With
      End Sub
    • Можно подправить код макроса, задав другие параметры поиска.
  • Запустим "Экзекутор":
    • На вкладке "Макрос"
      • отметим флаг "Включать в список макросы с параметрами"
      • укажем имя макроса "Надпись_Замена"
      • отметим флаг "Передавать элемент макросу первым параметром"
    • На вкладке "Область" нажмем кнопку "X", для обработки всех частей документа
    • На вкладке "Элемент" выберем "Иллюстрация" и укажем тип:
      • снимем флаг "Иллюстрация" и отметим флаг "Текстовый контейнер"
      • отметим флаг "Различать элементы в группе и на полотне"
    • Жмем кнопку "Пуск"

Записанные для "Экзекутора" макросы сохраняйте. Тогда, в следующий раз, можно сразу приступать к обработке, пропустив этап создания макроса. Это позволит постепенно автоматизировать многие операции.

ЗАПУСК
  • Вкладка "Методичка" на ленте
    • группа "Макрос" > меню "Документ" > пункт "Экзекутор"
  • Панель инструментов "Методичка"
    • меню "Макрос" > меню "Документ" > пункт "Экзекутор"
  • Сочетание клавиш
    • нет
  • Имя макроса (Alt + F8)
    • M040_Документ_Экзекутор
СМОТРИ ТАКЖЕ
Файлы
СКРИНШОТЫ

Макрос Документ - Экзекутор

Макрос Документ - Экзекутор

Макрос Документ - Экзекутор

Макрос Документ - Экзекутор

Макрос Документ - Экзекутор

Макрос Документ - Экзекутор

Макрос Документ - Экзекутор

Макрос Документ - Экзекутор

Макрос Документ - Экзекутор

Макрос Документ - Экзекутор

Макрос Документ - Экзекутор

Макрос Документ - Экзекутор

http://mtdmacro.ru/ | © Александр, 2007-2023 | alex@mtdmacro.ru | mtdmacro@gmail.com