Visual basic microsoft word 2007

Выделим первый участок текста, который нужно отформатировать.

Рис. 1.2. Окно настройки свойств макроса

знакомый вам Normal.dotm. Сохранять привязку сочетаний клавиш к макросам в Normal.dotm следует лишь в том случае, если вы, во-первых, на предыдущем шаге сохранили макрос в Normal.dotm, а во-вторых, хотите, чтобы данное сочетание работало во всех остальных документах MS Word, а не только в текущем документе.

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

В процессе записи макроса указатель мыши дополняется значком с изображением кассеты. Щелчок правой кнопкой не действует. Поэтому нам нужно отформатировать текст, пользуясь вкладками ленты Microsoft Word. Так и поступим. Настроим необходимые параметры форматирования, снова перейдем на вкладку Вид и нажмем там на кнопку Остановить запись (рис. 1.4.)

Рис. 1.4. Остановка записи макроса

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

После записи макроса самое время его протестировать. Для этого выделим текст и нажмем Ctrl + Alt + Shift + A. Если все сделано правильно — текст будет отформатирован.

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

Для этого нажмите кнопку настройки панели быстрого доступа (она находится справа от панели) и в появившемся меню выберите пункт Другие команды. Появится окно для настройки команд Microsoft Word (рис. 1.5.).

Всписке Выбрать команды из выберите Макросы.

Вполе, которое расположено ниже, появятся ссылки на доступные макросы. Выделите нужный и нажмите на кнопку Добавить>>. Ссылка на него появится в поле Настройка панели быстрого доступа. В списке настройки этого поля выберем документ, который мы в данный момент редактируем — тем самым мы внесем изменения лишь в панель быстрого доступа этого документа.

Рис. 1.5. Назначение макроса кнопке панели быстрого доступа

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

Здесь вам нужно выбрать понравившийся значок для кнопки макроса и ввести в поле Отображаемое имя текст, который будет появляться при наведении на кнопку вызова макроса указателя мыши. Вот, что получилось в итоге (рис. 1.6.).

Рис. 1.6. Кнопка для быстрого вызова макроса на панели быстрого запуска

Сохраняя файл Microsoft Word, содержащий макросы, обязательно убедитесь в том, что вы сохраняете его в формате .docm (Документ Word с поддержкой макросов). Дело в том, что используемый по умолчанию формат .docx (Документ Word) не поддерживает макросы. Если вы сохраните документ с макросами в таком формате, результаты работы будут утеряны.

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

Чтобы использовать макросы — свои и тем более созданные другими — вам, возможно, понадобится изменить настройки безопасности Microsoft Office.

1.3. Макросы и безопасность

Microsoft Office снабжен собственной системой безопасности, основная задача которой — противодействие проникновению макровирусов — вредоносных программ на языке VBA.

Макровирусы — это основная проблема, которую породил язык программирования, встроенный в офисные программы. Безопасность работы с макросами сводится к очень простому правилу: не следует разрешать выполнение макросов, если вы не знаете точно, для чего нужны эти макросы.

Если вы открываете документ, который содержит подозрительный, с точки зрения системы, макрос, при настройках безопасности по умолчанию этот макрос блокируется. В Microsoft Word выводится такое сообщение (рис. 1.7.).

Рис. 1.7. Предупреждение системы безопасности

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

Включить это содержимое, либо запретить, выбрав Установить защиту от неизвестного содержимого.

Для настройки системы безопасности в Microsoft Word нажмите на кнопку Microsoft Office, далее — на кнопку Параметры Word. В левой части появившегося окна выберите пункт Центр управления безопасностью. На странице центра управления безопасностью нажмите кнопку Параметры центра управления безопасностью. Появится окно настройки параметров макросов (рис. 1.8.).

Практика показывает, что при интенсивном использовании собственных макросов, удобнее и безопаснее всего использовать пункт, установленный по умолчанию —

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

Перед записью макроса выделим ячейки, из которых будем копировать данные. Далее перейдем на вкладку Вид и запустим с нее запись макроса (рис. 1.9.).

Вкладка ленты Вид в Microsoft Word и Microsoft Excel содержит кнопку Макросы. Она расположена над раскрывающимся меню, которым мы пользовались до сих пор. Воспользуемся ею. Откройте один из документов MS Word, содержащий макросы, и

нажмите на эту кнопку. Появится окно Макрос (рис. 1.10.), которое предназначено для управления макросами.

Рис. 1.10. Окно управления макросами в MS Word

В данном случае в окне Макрос отображается список макросов из открытого документа. Чтобы посмотреть макросы, находящиеся в других местах (например, в Normal.dotm), воспользуйтесь списком Макросы из.

Имя выделенного макроса (этот тот самый макрос, который мы записали выше) отображается в строке Имя. Именно с этим макросом мы можем совершать различные действия в данном окне. В частности, здесь доступны следующие варианты:

Выполнить — выполняет макрос. Вместо того, чтобы пользоваться кнопкой быстрого вызова макроса или настраиваемой комбинацией клавиш, для выполнения макроса можно воспользоваться этой кнопкой. Это удобно для запуска макросов, которые используются очень редко.

Изменить — нажав на эту кнопку, вы откроете редактор Visual Basic, который позволяет изменять макросы и создавать собственные программы.

Создать — наберите в строке Имя желаемое имя нового макроса и нажмите на эту кнопку — система создаст новый пустой макрос и откроет его в редакторе.

Удалить — удаление макроса.

1.6. Выводы

Теперь вы можете создавать простые макросы и автоматизировать с их помощью некоторые операции.

2. Начинаем программировать

Вторая часть посвящена началам программирования на VBA. Здесь будут рассмотрена вкладка Разработчик, дающая доступ к возможностям VBA из приложений MS Office 2007, основы объектно-ориентированного программирования и объектных моделей приложений MS Office. Так же здесь будут рассмотрены вопросы совместного использования Office 2007 и более старых версий Office, не поддерживающих новые форматы файлов без установки дополнительного ПО.

2.1. Редактор Visual Basic 2.1.1. Задание

Записать в Microsoft Word макрос, который автоматически вводит в позицию курсора слово «Привет». Отредактировать макрос вручную таким образом, чтобы он выводил «До свидания».

2.1.2. Решение

Начнем запись макроса (Назовем его «Privet»), введем с клавиатуры слово «Привет», после чего остановим запись.

Откроем окно Макросы нажатием соответствующей кнопки на панели Вид, выберем наш макрос и нажмем на кнопку Изменить. Перед нами откроется окно редактора Visual Basic с открытым в нем макросом (рис. 2.1.)

Рис. 2.1. Окно редактора Visual Basic

Окно редактора включает в себя несколько рабочих областей — окон, служащих для выполнения различных действий. На рис. 2.1. в окне редактора присутствуют три рабочих области:

0

1 14.06.2012 05:23:41

2 Ответ от Alex_Gur 14.06.2012 20:05:06

3 Ответ от Alex_Gur 14.06.2012 20:08:46

4 Ответ от Alex_Gur 14.06.2012 20:22:22

5 Ответ от Alex_Gur 15.06.2012 17:08:49

6 Ответ от Alex_Gur 15.06.2012 17:17:29

Sub [Наименование_макроса]()
     (…)
End Sub

Sub Мой_макрос01()
     (…)
End Sub

Sub Hello1()
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.TypeText Text:="Привет, мир!"
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    Selection.Font.Name = "Times New Roman"
    Selection.Font.Size = 36
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.Font.Bold = wdToggle
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

7 Ответ от Alex_Gur 15.06.2012 17:20:07

8 Ответ от Alex_Gur 15.06.2012 17:26:57

9 Ответ от Alex_Gur 01.03.2013 08:53:57