Лабораторная работа № 2 Программирование макросов в ms Word

Цель работы: изучить основные приемы автоматизации обработки текстов при разработке макросов Visual Basic для MS Word:

1. организация экранных форм;

2. копирование и форматирование текстов, обработка и поиск заданных фрагментов;

3. обмен с OLE-приложениями.

Основные правила программирования на Visual Basic для MS Word аналогичны правилам для MS Excel. По материалу, используемому в данной работе, имеются следующие дополнения.

1) Работа с диалоговыми окнами производится следующим образом:

' открытие файла

Set dlg = Dialogs(wdDialogFileOpen)

aButton = dlg.Display

fSelected = dlg.Name

If aButton = -1 Then

Set MyDoc = Documents.Open(fSelected)

End If

' сохранение файла

Set dlg = Dialogs(wdDialogFileSaveAs)

aButton = dlg.Display

fSelected = dlg.Name

fFormat = dlg.FileType

If aButton = -1 Then

MyDoc.SaveAs FileName:=fSelected, FileFormat:=fFormat

End If

2. Обращение к открытым документам производится через список Documents.

3. Обращение к словам, абзацам, буквам, предложениям, разделам, таблицам документа производится соответственно через его списки Words, Paragraphs, Characters, Sentences, Sections, Tables.

4. Обращение к OLE-приложениям производится аналогично приведенному примеру:

If Tasks.Exists("Microsoft Excel") = True Then

Set xlObj = GetObject(, "Excel.Application")

Else

Set xlObj = CreateObject("Excel.Application")

End If

xlObj.Visible = True

File = xlObj.GetOpenFilename("Файлы Excel,*.xls")

If File <> False Then

xlObj.Workbooks.Open File

xlObj.Activesheet.UsedRange.Copy

xlObj.ActiveWorkBook.Close (False)

MyDoc.Range.Paste

End If

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

Вариант 1. Создание нового документа. Запуск Excel с загрузкой указанной пользователем книги. Копирование содержимого первого листа книги в документ Word в виде таблицы. Печать документа. Сохранение документа.

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

Пример к варианту 2. Автоматизация рассылки уведомлений должникам. Пользователь составляет документ вида: "Уважаемый ...! Настоящим извещаем Вас о наличии за Вами задолженности в размере ...", указывает:

• таблицу должников формата (ФИО, Сумма),

• слова текста, после которых осуществляется вставка полей таблицы ("Уважаемый", "размере").

Макрос в цикле создает новый документ для каждой строки таблицы, реализует вставку в соответствии с указаниями пользователя, сохраняет документ под названием ФИО.

Вариант 3. Загрузка текста MS DOS. Форматирование. Печать. Сохранение документа.

Вариант 4. Загрузка текста MS DOS. Форматирование. Вставка таблицы из Excel (см. вариант 1). Печать. Сохранение документа.

Вариант 5. Загрузка текста MS DOS и предоставление его пользователю для редактирования, форматирования и сохранения в качестве шаблона. Запуск Excel с загрузкой указанной пользователем книги. В цикле производятся: создание документа по шаблону, копирование полей каждой записи таблицы Excel в указанные места созданного документа, печать документа, сохранение документа (см. вариант 2).

Вариант 6. Создание нового документа и таблицы в соответствии с заданным пользователем установками. Запуск Excel с созданием новой книги. Копирование созданной таблицы в книгу Excel. Печать. Сохранение книги.

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

Вариант 8. Создание нового документа и предоставление его пользователю для редактирования и сохранения в качестве шаблона. Загрузка указанного пользователем текста MS DOS, содержащего список. В цикле производятся: создание документа по шаблону, копирование полей каждой записи таблицы (списка) в указанные места созданного документа, печать документа, сохранение документа (см. вариант 2).

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

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

Вариант 11. Загрузка текста MS DOS, содержащего таблицу (разделитель - символ табуляции). Запуск Excel с созданием новой книги. Копирование таблицы в книгу Excel. Печать. Сохранение книги.

Вариант 12. Задача, обратная варианту 2. Указание позиций в тексте фиксированной структуры, из которых брать данные (например, после слов "Уважаемый", "размере"). Открытие указанного пользователем списка документов. Запуск Excel с созданием новой книги. Формирование таблицы на первом листе книги из данных, извлеченных указанным способом из открытых документов.

Требования к отчету.

1. Титульный лист.

2. Цель работы.

3. Задание в соответствии с вариантом.

4. Листинги.

5. Экранная форма.

6. Сформированный лист.

7. Результаты выполнения функции печати (если требуется в соответствии с заданием).

8. Выводы. Указать, какие возможности Visual Basic по автоматизации обработки данных были выявлены при выполнении работы (мультиформатность данных, удобство использования разработанных макросов, обмен между OLE-приложениями и т.д.)