Пример №3. Как открыть новый документ-записку

Диалог с пользователем

Тема: Организация диалога с пользователем средствами VBA

Несомненно, самая лучшая система контроля за выполнением задачи — человек. Здесь вы освоите основные способы программирования в VBA, с помощью которых можно заставить программу отвечать на запросы конкретных пользователей. Для этого существует три способа.

С помощью окон сообщений, которые выдают некоторую информацию и ожидают ответа пользователя, обычно Да или Нет.

Можно использовать окна, в которых пользователь должен ввести информацию в виде строки.

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

Окна сообщений и окна ввода будут рассмотрены в данном пункте; диалоговые окна подробно описаны в следующей лекции. Как и обычно, всякий раз работа начинается с записи макроса, а затем с помощью VBA записанная макрокоманда принимает все более совершенный вид.

Допустим, что большую часть своего времени вы проводите за составлением документов-записок. Вы можете создать автоматически выполняющийся макрос, который всякий раз при запуске Word будет открывать новый документ-записку. Чтобы это сделать, выполните следующие действия.

1. Дважды щелкните на кнопке ЗАП, расположенной в строке состояния. Появится диалоговое окно Запись макроса.

2. В поле Имя макроса введите имя макрокоманды, например AutoExec и, чтобы начать запись макроса, щелкните на кнопке ОК.

3. В меню Файл выберите команду Создать.

4. Щелкните на вкладке Записки.

5. После этого дважды щелкните на пиктограмме Современная записка, чтобы создать новый документ с шаблоном Современная записка.

6. Чтобы прекратить запись макрокоманды, дважды щелкните на кнопке ЗАП.

Только что записанный вами макрос имеет вид, как показано на рисунке 8.1. Он прост и понятен. Макрокоманда применяет метод Add к объекту Document; другими словами, просто создает новый документ. Она задает свойство Template, указывая полный путь к файлу и имя используемого шаблона. В конце концов макрос устанавливает значение False для свойства NewTemplate, а это, в свою очередь означает, то вы создаете новый документ, а не шаблон.