Информационный сайт

 

Реклама
bulletinsite.net -> Книги на сайте -> Программисту -> Васильев А. -> "VBA в Office 2000 учебный курс" -> 83

VBA в Office 2000 учебный курс - Васильев А.

Васильев А., Андреев А. VBA в Office 2000 учебный курс — Спб.: Питер, 2001. — 432 c.
ISBN 5-8046-0193-8
Скачать (прямая ссылка): vbauchebniykurs2001.djvu
Предыдущая << 1 .. 77 78 79 80 81 82 < 83 > 84 85 86 87 88 89 .. 154 >> Следующая

Метод Show
Метод Show отображает окно диалога и выполняет действия, аналогичные выполнению соответствующей команды MS Word. Данный метод возвращает целое число (аналогично методу Display), указывающее кнопку, нажатую пользователем, для закрытия окна диалога.
Синтаксис метода Show:
Expression.Show(TimeOut)
Элементы синтаксиса метода Show имеют назначения, аналогичные рассмотренным ранее для метода Display.
Метод Update
Метод Update обновляет значения, отображаемые во встроенном окне диалога Этот метод применяется, если значения в окне диалога были ранее изменены в программе и требуется получить или изменить текущие значения.
Создание шаблона
223
Пример работы со встроенными окнами диалога
Рассмотрим небольшой пример использования окна диалога Открытие документа. Обратите внимание на различия методов Show, Display и Execute.
Sub WorkWithDialogsO
Dim WorkDialog As Dialog Dim WorkDoc As Document
'Используем окно диалога Открытие документа для открытия 'файла. Приведем три различных способа использования 'встроенного окна диалога: с использованием метода Show,
'метода Display и метода Execute
Set WorkDialog = Dialogs(wdDialogFileOpen)
WorkDialog.Show 'Метод Display
If WorkDialog.Display = -1 Then
Set WorkDoc = Documents.Open(FileName:= _
WorkDi alog.Name, AddToRecentFi1es:=True)
End If
'Метод Execute
WorkDialog.Name = "Новый документ"
WorkDi alog.Execute End Sub
Создание шаблона
Следует отметить, что использование VBA для автоматизации работы с MS Office может быть очень разнообразным и ограничено только вашими потребностями и фантазией. В качестве практического примера применения VBA ниже рассмотрена процедура создания шаблона, включающего в себя несколько модулей, расширяющих стандартные функциональные возможности редактора MS Word.
Хотя этот пример и не позволяет охватить всех возможностей использования VBA, тем не менее он даст представление о принципах использования панелей команд и некоторых принципов программирования.
Например, вам часто приходится оформлять однотипные документы. Для облегчения данной задачи мы можем создать шаблон, который будет содержать панели инструментов со специальными кнопками для выполнения тех или иных действий.
Перед тем как приступить к созданию шаблона, давайте сначала познакомимся с Технологией реализации кнопок панелей инструментов. В основе работы каждой из кнопок лежит запуск соответствующего ей макроса.
ПРИМЕЧАНИЕ Макросом в большинстве приложений MS Office называется реализованной на языке VBA процедура, содержащаяся в стондортном модуле. В MS Access макросам называется последовотельность специольных макрокомонд.
224
Урок 8. Создание приложений для MS Word
Чтобы создать кнопку на панели инструментов, запускающую макрос, необходимо выполнить следующее:
1. Используя команду Сервис > Настройка или команду Вид > Панели инструментов > Настройка, вызовите окно диалога Настройка.
2. Выберите вкладку Команды, затем нажмите на категории Макросы.
В результате в списке Команды будут отображены все доступные для использования макросы, каждому из которых соответствует определенная кнопка.
3. Выберите в списке Команды нужный макрос и с помощью мыши перетащите его на предварительно открытую панель инструментов. Это приводит к установке кнопки на встроенной панели инструментов.
В том случае, если вы хотите разместить кнопку на собственной панели инструментов, ее сначала необходимо создать. Это можно сделать как с помощью интерфейса пользователя, так и программным способом.
ПРИМЕЧАНИЕ Инагдо удобнее назначить макросу горячую клавишу.
Теперь настала очередь создания панели инструментов.
1. Выберите команду Сервис > Настройка. Отображается окно диалога Настройка, изображенное на рис. 8.4.
Настройка
JK Форматирование |Г~ Microsoft I МС Visual Ваас дЯ»: Web
. !П~ Web-компоненты ЩГ WordArt ЩГ* Автотекст I |Р Базы да»«ых ||Г Буфер обиена ;1||Г Вывод функциональных клавиш ЩГ Контекстные иеню lljn Настройка изображения ЩГ- Настройка объема
тт>
Рис* 8.4. Окно диалога Настройка
2. Нажмите кнопку Создать. В результате появляется окно диалога Срздание панели инструментов (рис. 8.5). *
3. Введите имя создаваемой панели и шаблон (или Документ), где эта панель будет храниться.
Теперь остается создать кнопку для вызова нужного макроса и поместить ее на панель инструментов. Ниже приведен пример макроса, предназначенного для автоматизации работы с таблицей.
Создание шаблана
225
Рис. 8.5 Окно диалога Создание панели инструментов
Макрос, позволяющий создать таблицу
и одновременно задать атрибуты ее ячеек
Sub InsertTableO
Dim TableRow As Long ’Количество строк таблицы
Dim TableColumn As Long ’Количество столбцов таблицы
Dim InsTable As Table Dim TableCell As Cell Dim i As Long
'Открываем окно диалога Вставка таблицы With Dialogs(wdDialogTableInsertTablej If .Display = -1 Then 'Если нажата кнопка OK,
'то берем значения, введенные в качестве количества
'столбцов и строк таблицы
TableColumn = .NumColumns TableRow = .NumRows 'В позиции курсора вставляем текст 'и задаем его отрибуты With Selection
Предыдущая << 1 .. 77 78 79 80 81 82 < 83 > 84 85 86 87 88 89 .. 154 >> Следующая
Реклама
Авторские права © 2009 AdsNet. Все права защищены.
Rambler's Top100