Основы алгоритмизации и программирования. Открыть в приложении Word исходный доку­мент

Открыть в приложении Word исходный доку­мент.

Ввести команду [Сер­вис-Макрос-Макросы...]. На открывшейся диало­говой панели Макросы выбрать имя нужного макроса и щелкнуть по кнопке Выполнить.

Auto Open

AutoEiec Man

AutoEi LMan

Detet mr«OSVer*cn

OetermreWhichApp

DalMonCBan^)

HdePCFWritarUI

PrrUPDFFile

ShutdownDetMon

ToggtePOFToob*

ядяид дд

Ы*фоемиз

~3

"3

угрнноеич ниоэп*' Д-чтрикемч

гтш

Макрос хранится в файле

Редактирование текста.с1ос в каталоге \textbook\VBA\

CD-ROM

Щ-

Макрос является стандартным программным модулем на языке VBA, поэтому имеется возможность его доработки пу­тем редактирования непосредственно программного кода.

6. Открыть в приложении Word исходный документ. Ввести команду [Сервис-Макрос-Макросы...]. На открывшейся диалоговой панели Макросы выбрать имя нужного мак­роса и щелкнуть по кнопке Изменить.

7. Появится окно Программный код, содержащее програм­мный код стандартного программного модуля:

Sub Редактирование()

Selection.MoveRight Unit:=wdCharacter, _

Count:=15, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdCharacter, Count:=7

Selection.Paste

End Sub

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

В первой строке программы для выделения символов применяется метод MoveRight (переместить вправо) с тремя аргументами. Первый аргумент определяет единицу переме­щения по документу и получает значение символа текста (Unit:=wdCharacter). Второй аргумент задает количество символов (Count:=15). Третий аргумент фиксирует, что все символы необходимо выделить (Extend:=wdExtend).