VBA для тех кто любит думать


VBA и Office XP - часть 90


Посмотрим в справке - по слову “Execute” (рис. 5.16).

 

05_16.bmp

Рис. 5.16. Справка по слову Execute.

 

Так, получаем четыре ссылки: “For information about the Execute method, click one of the following object names: Dialog, Find, KeyBinding, MailMerge”. В Microsoft Office 2000/XP это окно Справочной системы VBA несколько красивее, но перечень обьектов, к котором может быть применен метод Execute, в нем такой же, разве что отдельно приводятся ссылки на примеры кода. Нас интересует вторая ссылка - “Find”, так как мы работаем именно с этим обьектом. Открываем (рис. 5.17)...

 

05_17.bmp

Рис. 5.17. Справка по команде Execute обьекта Find.

 

Так и есть - команда “.Execute” запускает команду поиска и замены на выполнение: “Runs the specified find operation. Returns True if the find operation is successful.”. Из текста справки также узнаем, что все параметры поиска и замены можно было бы задать и в скобках, а, кроме того, результат выполнения команды можно записать в переменную - успешен ли был поиск или нет (то есть были ли найдены в данном сеансе работы команды “Найти и заменить” искомые элементы), принимающую значения соответственно "True" или "False". Сейчас данная возможность не требуется, однако запомнить ее стоит - мало ли когда пригодится.

Продолжаем изучать записанную макрокоманду.

 

ActiveDocument.Save

 

Вопросов не вызывает - это команда сохранения активного документа.

 

ActiveDocument.SaveAs FileName:="Доклад1.rtf", FileFormat:=wdFormatRTF, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= False

 

А вот здесь уже понадобится редактирование. Это команда “Сохранить Как…” - поскольку соответствующая команда Word представляет собой диалоговое окно, то в текст макроса помещаются все возможные параметры, как соответствующие установленным по умолчанию, так и нет: “AddToRecentFiles” - добавлять ли ярлык в папку “Recent”, “EmbedTrueTypeFonts” - внедрять ли шрифты TrueType.




Начало  Назад  Вперед