Лабораторная работа №5. Автоматизация обработки текстовых документов. Программирование в среде Microsoft Word

Цель лабораторной работы

Лабораторная работа служит для получения практических навыков по использованию возможностей языка Visual Basic for Applications при создании процедур обработки текста с помощью свойств и методов объектов Word 2000.

Основные сведения об объектах Word, их свойствах и методах

Visual Basic for Applications поддерживает набор объектов, соответствующих элементам Word. Используя свойства и методы этих объектов можно автоматизировать все операции в Word. Однако целесообразно автоматизировать выполнение тех операций, для реализации которых нет стандартных средств в Word или их выполнение стандартными средствами является трудоемкой или рутинной работой.

Наиболее важными являются:

• Объект Document представляющий собой новый или созданный ранее открытый документ.

Основными свойствами объекта Document являются:

Count – количество открытых в данный момент документов;

ActiveDocument – активный документ.

Некоторые методы объекта Document и коллекции Documents:

Open – открывает файл, содержащий существующий документ и автоматически добавляет его в коллекцию;

Add – добавляет новый пустой документ;

Save – сохраняет изменения в существующем документе без закрытия;

SaveAs (только для объекта) – сохраняет активный вновь созданный документ в текущей папке;

Item – позволяет получить доступ к элементу коллекции;

Activate (только для объекта) – активизирует открытый документ;

PrintOut (только для объекта) – печать документа;

Close – закрывает документ.

• Объекты Character (символ), Word (слово), Sentence (предложение), Paragraph (абзац), Section (раздел документа), задающие структуризацию текста документа.

Все эти объекты имеют свойства:

Count – свойство возвращает количество элементов в коллекции;

First – свойство возвращает объект, являющийся первым элементом коллекции;

Last - свойство возвращает объект, являющийся последним элементом.

Коллекции Characters, Words, Sentences имеют единственный метод Item(Index).

Коллекция Paragraphs имеет все вышеперечисленные для данной группы коллекций свойства и множество свойств, значения которых определяют формат абзаца.

Формат абзаца может быть определен и с помощью методов. Приведем некоторые методы коллекции Paragraphs:

Item – определяет элемент коллекции;

Add – добавление нового пустого абзаца (параметр метода указывает точку вставки, задается объектом Range);

InsertParagraph, InsertParagraphAfter, InsertParagraphBefore – осуществляют вставку пустого абзаца вместо текста или после, или перед текстом, задаваемым объектом Selection или Range;

Reset – удаляет форматирование, сделанное вручную, применяя к абзацу формат, заданный стилем абзаца;

Indent, Outdent – увеличивают, уменьшают отступ абзаца от края листа;

TabHangingIndent(Count), TabIndent(Count) – увеличивают (Count>0), уменьшают (Count <0) выступ или отступ абзаца от края листа на заданное количество позиций;

Space1, Space2, Space15 – устанавливают межстрочный интервал (одинарный, двойной, полуторный).

• Объекты Range (диапазон) и Selection (выделение), представляющие части документа.

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

Свойствами объекта Range являются:

Start – начальная символьная позиция диапазона.

End – конечная символьная позиция диапазона.

Text – позволяет получить или изменить содержимое объекта.

Объект Selection задает выделенную в документе область (фрагмент). Выделенный в документе фрагмент задает непрерывную область элементов, но не является диапазоном, заданным своим началом и концом. Выделить можно только один фрагмент, поэтому один объект Selection может быть активен в данный момент времени. Объект Selection может быть получен с помощью свойства Selection или метода Select других объектов.

Ниже приведены некоторые методы присущие объектам Selection и Range:

Move – метод перемещения точки вставки;

MoveStart, MoveEND – методы изменения значения свойств Start и End;

Collapse – сворачивает диапазон к его началу или концу.

Next – метод получения ссылки на очередной элемент коллекции объектов в диапазоне или выделенном фрагменте;

Delete - удаляет текст входящий в диапазон.

InsertAfter , InsertBefore вставляет текст до или после текста, входящего в диапазон. После вставки текста диапазон расширяется, включая в себя вставленный текст.

Copy – копирует объект в буфер обмена;

Cut - перемещает объект в буфер обмена;

Paste – позволяет поместить содержимое буфера в область, заданную объектом Range или Selection.

Содержание лабораторной работы

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

• создание процедуры преобразования набранного в английской раскладке клавиатуры текста в соответствии с русской раскладкой на основе предлагаемого алгоритма и ее отладка;

• написание процедуры создания нового документа, содержащего текст для отладки вышеуказанной процедуры;

• самостоятельное создание процедуры преобразования набранного в русской раскладке клавиатуры текста в соответствии с английской раскладкой и ее отладка;

• создание процедуры, создающей инструментальную панель с кнопками для запуска макросов преобразования текста.

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

Процедура преобразует текст выделенного фрагмента активного документа (объект Selection).

Выполнение лабораторной работы

1. Открыть новый документ Word и сохранить его в рабочей папке с именем Lab5.doc.

2. Создать новый модуль с именем Конвертор. Для этого:

• выполнить команду Сервис\Макрос\Редактор VisualBasic;

• добавить новый модуль командой Вставка\Модуль;

• в окне свойств задать имя - Конвертор.

3. Добавить в модуль Конвертор текст процедуры, преобразующий введенные в английской раскладке клавиатуры символы в соответствии с русской раскладкой. Для этого:

• установить курсор в окно модуля и выполнить команду Вставка/Процедура;

• в окне Вставка процедуры ввести имя Conv _En_Ru, выбрать тип процедуры - Подпрограмма (Sub), выбрать область определения процедуры - Общая (Public), нажать "Ok";

• ввести текст приведенной ниже процедуры Conv_En_Ru:

Public Sub Conv_En_Ru()

'Преобразование символов в соответствии с русской раскладкой клавиатуры

Const Str_En = "`qwertyuiop[]asdfghjkl;zxcvbnm,./" + _

"~QWERTYUIOP{}ASDFGHJKL:ZXCVBNM<>?"

Const Str_Ru = "ёйцукенгшщзхъфывапролджячсмитьбю." + _

"ЁЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЯЧСМИТЬБЮ,"

Dim Sym As String, Sym1 As Range

Dim PosSym As Byte

Dim TextResult As String

TextResult = ""

For Each Sym1 In Selection.Characters

Sym = Sym1

PosSym = InStr(Str_En, Sym)

If PosSym > 0 Then

Sym = Mid$(Str_Ru, PosSym, 1)

Else

Select Case Sym

'Кавычки переходящие в "э"

Case Chr(39): Sym = "э"

Case Chr(145): Sym = "э"

Case Chr(146): Sym = "э"

Case Chr(34): Sym = "Э"

Case Chr(147): Sym = "Э"

Case Chr(148): Sym = "Э"

Case Chr(171): Sym = "Э"

Case Chr(187): Sym = "Э"

Case Else: 'Кодировки совпадают

End Select

End If

TextResult = TextResult + Sym

Next

Selection.LanguageID = wdRussian

Selection.TypeText TextResult

End Sub

4. Подготовить пример для отладки процедуры. Для этого в окне редактора VBA нажать на инструментальной панели "Стандартная" кнопку "Вид Microsoft Word" и, перейдя в документ Word, создать таблицу. Ввести в первую ячейку первой строки текст всех символов, расположенных на алфавитно-цифровых клавишах в нижнем и верхнем регистре соответственно, расположив их в четыре строки, аналогично их расположению на клавиатуре:

`1234567890-=\~!@#$%^&*()_+| qwertyuiop[]QWERTYUIOP{} asdfghjkl;'ASDFGHJKL:" zxcvbnm,./ZXCVBNM<>?

Скопировать введенный текст во вторую ячейку первого ряда и затем выделить содержимое второй ячейки;

4. Выполнить процедуру Conv_En_Ru. Для этого:

• перейти в редактор VBA;

• выполнить команду Запуск\Запуск макроса или нажать клавишу F5, или нажать кнопку Запуск подпрограммы/UserForm.

6. Проанализировать полученный результат. Возможно получение следующих результатов:

• выполнение процедуры завершилось аварийно - следует исправить синтаксическую ошибку и повторить выполнение процедуры;

• выполнение процедуры завершилось успешно, однако преобразование символов выполнилось неправильно - следует искать алгоритмическую ошибку, исправить ее и повторить выполнение программы;

• выполнение процедуры завершилось успешно, преобразование символов в соответствии с русской раскладкой выполнилось правильно - процедура отлажена и готова к использованию.

7. Добавить в модуль Конвертор процедуру Otl_э создания нового документа, содержащего текст на кавычки для отладки той части алгоритма процедуры Conv_En_Ru, которая преобразует введенный символ в букву "э". Текст процедуры:

Public Sub otl_э()

Dim Str_Sym As String

Set New_Doc = Documents.Add

New_Doc.Activate

Str_Sym = Chr(39) + Space(2) + Chr(145) + Space(2) + Chr(146) + Space(2)

Str_Sym = Str_Sym + Chr(34) + Space(2) + Chr(147) + Space(2) + _

Chr(148) + Space(2) + Chr(171) + Space(2) + Chr(187)

New_Doc.Paragraphs(1).Range.InsertBefore Text:=Str_Sym

New_Doc.SaveAs FileName:="Temp.doc"

End Sub

7. Выполнить процедуру Otl_э, убедиться в создании документа с именем Temp.doc. Документ должен содержать следующий текст кавычек: ' ‘ ’ " “ ” « ».

8. Выполнить процедуру Conv_En_Ru, убедиться в правильности преобразования кавычек в букву "э".

9. По аналогии с алгоритмом процедуры Conv_En_Ru, самостоятельно разработать процедуру Conv_Ru_En преобразования набранного в русской раскладке клавиатуры текста в соответствии с английской раскладкой и добавить ее в модуль Конвертор. Подготовить пример для отладки процедуры Conv_Ru_En. Для этого скопировать содержимое второй ячейки первой строки таблицы документа Lab5.doc в первую и вторую ячейки второй строки. Текст из второй ячейки второй строки выделить. Выполнить отладку процедуры.

10. Добавить в модуль Конвертор процедуру, создающую инструментальную панель Преобразование с кнопками для запуска процедур преобразования текста Conv_En_Ru и Conv_Ru_En.

Текст процедуры:

Public Sub CreatePanel()

' Создание панели

Dim bar As CommandBar

Dim ctrl As CommandBarButton

Dim found As Boolean

found = False

' поиск в коллекции CommandBars создаваемой панели

For Each bar In CommandBars

If bar.Name = "Преобразование" Then found = True

Next

If Not found Then CommandBars.Add Name:="Преобразование",_ Position:=msoBarTop

Set bar = CommandBars("Преобразование")

On Error Resume Next

'Добавление кнопок на панель

Set ctrl = bar.FindControl(Tag:="Conv_En_Ru")

If ctrl Is Nothing Then

Set ctrl = bar.Controls.Add(Type:=msoControlButton)

With ctrl

.Caption = "En->Ru"

.OnAction = "Conv_En_Ru"

.TooltipText = "Перевод в русскую раскладку клавиатуры"

.Style = msoButtonCaption

.Tag = "Conv_En_Ru"

End With

End If

Set ctrl = bar.FindControl(Tag:="Conv_Ru_En")

If ctrl Is Nothing Then

Set ctrl = bar.Controls.Add(Type:=msoControlButton)

With ctrl

.Caption = "Ru->En"

.OnAction = "Conv_Ru_En"

.TooltipText = "Перевод в английскую раскладку клавиатуры"

.Style = msoButtonCaption

.Tag = "Conv_Ru_En"

End With

End If

bar.Visible = True

End Sub

Пояснения к тексту процедуры:

Перед созданием панели проверяется, не существует ли панель с таким именем. Если панель существует, то она выводиться на экран и процедура завершает свою работу. Перед созданием кнопки с помощью метода FindControl проверяется, нет ли на панели кнопки с указанной меткой. Если нет, то кнопка добавляется. Caption задает текст на кнопке, OnAction осуществляет связь с кнопкой процедуры, Tag определяет метку, связанную с кнопкой.

Выполнить отладку процедуры.

12. Продемонстрировать результаты работы процедур преподавателю.

13. Удалить панель Преобразование и сохранить файл Lab5.doc.