Работа с макросами

 

 

Прежде чем выполнять работу "макросы" прочтите все задания.

В слове "макрос", ударение падает на букву а

 

 

Если в MS Word не подключена вкладка Разработчик, ее нужно подключить: Файл / Параметры / Настройка ленты / Основные вкладки / установит флажок против Разработчик.

  1. Изучить материал

  2. Создать документ MS Word c именем вида Фамилия-макрос.

  3. Установить параметр Включить все макросы (Файл / Параметры / Центр управления безопасностью / Параметры Центр управления безопасностью,, / Параметры макросов / Включить все макросы (см. пример)

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

Фамилия Имя

Отчество

День рождения
Орлова Ева Адамовна 32 мартобря

 

Примечание: Для того, чтобы создать макрос, рисующий таблицу, необходимо:

  • Выбрать команду Запись макроса... (Вид / Макросы / Запись макроса... - см. пример);

  • Sic! Выбрать  Макрос доступен для Фамилия-макрос (документ) (нельзя сохранять макрос в общем шаблоне Normal.dot)!;

  • Дать макросу в качестве имени свою Фамилию;

  • В примечании записать свои ФИО (см. пример)

  • Рисовать и заполнять таблицу при включенном режиме записи макроса с помощью меню Вставка и клавиш клавиатуры (для установки параметров шрифта, ввода текста, перемещения по ячейкам (стрелки) и выделения текста - выделение слов: Shift+Ctrl+стрелки);

  • Нажать кнопку "Остановить запись". Макрос сохранить в созданном Вами документе (не в общем шаблоне)!

  • Нажать кнопку "OK";

     
     
    Примечание: Вместо Орловой Евы Адамовны должны быть Ваши ФИО.

  1. Удалить таблицу из документа Фамилия-макрос, сохранить Фамилия-макрос как "Документ Word с поддержкой макросов" и закрыть его.

  2. Проверить работоспособность макроса: вновь открыть документ и выполнить макрос (Вид / Макросы / Макросы / Фамилия...).

  1. В документе  Word  Фамилия-макрос создать еще один макрос (лучше под именем Surname), который будет заменять текст черного цвета на текст красного цвета (почитать о макросе на странице в модуле "Макрос замены цвета текста". Проверить работоспособность макроса.

  2. Скопировать архив с файлами:

  • kmp.txt (текстовый файл, в кодировке ANSI (!), содержит текст, который является объектом замен выполнении макроса kmpX - о нем можно прочесть на странице в модуле "Макрос автозамены")

  • macros-replacement.docm (документ Word с поддержкой макросов, содержит макрос kmpX для осуществления замен во внешнем файле)

  1. Переименовать:

  • каталог macros-replacement в macros-Surname (вместо Surname - Ваша Фамилия латиницей)

  • текстовый файл kmp в файл Surname (должна быть ваша Фамилия латиницей). Он должен быть в кодировке ANSI

  • документ Microsoft Word (с поддержкой макросов) в ФамилияМ

  1. Отредактировать макрос kmpX так, чтобы он:

  • в файле Surname (из каталога macros-Surname (вместо Surname - Ваша Фамилия латиницей) расположенного непосредственно на диске D: )

  • заменял слово Имя - на Ваше Имя

  • заменял слово Фамилия - на Вашу Фамилию

  • заменял слово Surname - на Вашу Фамилию латиницей

  • заменял слово Дата на Ваш день рождения в формате: День Месяц Год (например: первое января 1999)

  • заменял слово Лакомство на ваше любимое блюдо....

  1. Проверить работу отредактированного макроса kmpX.

  2. Создать документ ФамилияМ.xlsm  (документ Excel с поддержкой макросов), а в нем (не в общих или активных шаблонах, но именно в документе) макрос для осуществления замен во внешнем файле, чтобы он:

  • в файле Surname (из каталога macros-Surname (вместо Surname - Ваша Фамилия латиницей) на диске D: )

  • заменял Ваше Имя слово Имя

  • заменял Вашу Фамилию на слово Фамилия

  • заменял Вашу фамилию латиницей на слово Surname

  • заменял Ваш День Месяц Год рождения (например: первое января 1999) на слово Дата

  • заменял название Вашего любимого блюда на слово Лакомство ....
     

    Важно!

    1. Указать в коде макроса абсолютный адрес целевого файла на компьютере
      (
      файл Surname   на диске D:    в папке macros-Surname!)

    Пример фрагмента кода для случая Орловой:

    • Open "D:\macros-Orlova\Orlova.txt" For Input As #1: s = Input(LOF(1), 1): Close #1
      v = Split(s, vbCrLf)
      Open "
      D:\macros-Orlova\Orlova.txt" For Output As #1

    1. Разместить этот файл (текстовый файл Orlova) именно по этому адресу!

    Пример для случая Орловой:

    • текстовый файл под именем Orlova в папке macros-Orlova  на диске D:

    В противном случае на компьютере преподавателя макрос не будет исполняться!

     

  1. По образцу заполнить свойства документов ФамилияМ.docm и ФамилияМ.xlsm.

  2. Скопировать архив с документом Word с поддержкой макросов, переименовать документ kmpZ в ФамилияZ

  3. Почитать о содержащемся в нем макросе на странице в модуле Макрос с Мастером

  4. Ввести в документ текст (100-200 знаков с Вашими ФИО), опробовать на тексте работу макроса вводя в форму (см. рисунок) параметры замен.

  5. Отредактировать форму макроса так, чтобы (см. рисунок):

  • в строке Отредактирован... были Ваши Фамилия Имя Отчество и текущая дата

  • на кнопке kmp-найти было - ФИО-найти (аббревиатура Ваших Фамилии Имени Отчества)

  • на кнопке kmp-заменить было - ФИО-заменить (аббревиатура Ваших Фамилии Имени Отчества)

  1. Сохранить ФамилияZ как документ Word с поддержкой макросов.

  2. Заархивировать каталог macros-Surname с текстовым документом Фамилия.txt и документами с работоспособными макросами: Фамилия-макрос, ФамилияМ.docm и ФамилияМ.xlsm, ФамилияZ

  3. Отослать архив macros-Surname преподавателю с отзывом.

  4. Для умных: открыв ФамилияМ.docm и ФамилияМ.xlsm, ФамилияZ с помощью архиватора WinRAR установить, в каких каталогах, файлах и форматах содержится код и описание макросов

kmp