Программирование на vba в word. Использование vba при решении задач в Word. Встроенные диалоговые окна

Что визуального в Visual Basic для приложений? К счастью, VBA во многом избавляет от необходимости нудного печатания программного кода. В одних случаях вы записываете команды, которые нужны в приложении, и используете их в качестве отправной точки при создании новой программы.В

VBA против Visual Basic Помимо того, что VBA не позволяет вам создавать отдельные приложения, одно из основных отличий состоит в том, что программы, написанные на VBA, работают медленнее, чем программы, написанные на Visual

Различия между VBA и Visual Basic VBA имеет очень много общего с Visual Basic, своим старшим братом, предназначенным для создания независимых приложений. А раз языки похожи, вы можете перенести большую часть своих навыков в программировании на VBA в Visual Basic. Однако вам следует помнить о

Вызов редактора Visual Basic Редактор Visual Basic служит командным центром для работы в VBA. В нем вы должны находиться при разработке VBA-форм, создании VBA-кода, тестировании и отладке VBA программ. Экспертом по использованию редактора Visual Basic вы станете после прочтения главы 5, а пока

Краткое знакомство с редактором Visual Basic Первые обращения к редактору Visual Basic могут вас озадачить. Наверное, присутствие меню и панелей инструментов вверху экрана покажется вам привычным, но вот что означает это обилие окон? Предсказать их взаимное расположение

Глава 5. Редактор Visual Basic к вашим услугам. В этой главе...~ Поиск команд в системе меню редактора Visual Basic~ Отображение, перемещение и настройка панелей инструментов~ Понимание и использование закрепления панелей инструментов и окон~ Сражение с толпами окон редактора Visual Basic~

Пользовательский интерфейс редактора Visual Basic Редактор Visual Basic является стандартным блюдом Microsoft- меню, панели инструментов и комбинации клавиш выглядят и работают очень похоже на Microsoft Office. Вы будете чувствовать себя как дома, если используете VBA с приложениями из Office.С

Среда разработки eMbedded Visual Basic 3.0 Для краткости в этой главе для обозначения среды eMbedded Visual Basic 3.0 будет использовано сокращение eVB.Запустить eVB можно либо при помощи команды меню Пуск (Пуск? Программы? Microsoft eMbedded Visual Tools ? eMbedded Visual Basic 3.0), либо найти в папке установки

Отличия eVB и Visual Basic для. NET В основном отличия VB.NET от eVB связаны с интеграцией языка VB с Compact Framework и определяются именно внутренней структурой самой CF.Типы данныхВ eVB был один-единственный тип данных на все случаи жизни, Variant, который достался eVB по наследству от VB Script. Visual

Delphi и Visual Basic 1. Есть ли в Delphi эквивалент массива элементов управления из Visual Basic? Hет. Компоненты Delphi не имеют свойства Index, подобное VB. Однако, имеются три основные причины, почему вы хотите использовать их в VB, и для каждой из них есть решение в Delphi. Причина 1. Вы хотите

Эта книга поможет освоить интегрированную среду разработки VBA и научиться программировать в VBA с использование объектов, их свойств, методов и событий. Обсуждаемые приемы программирования иллюстрируются примерами, которые можно сразу же опробовать на практике. Полученные знания вы сможете применить как для настройки и усовершенствования популярный офисных приложений, включая приложения Office XP, так и для создания собственных приложений.

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

Книга:

Работа с текстом в Word VBA

Работа с текстом в Word VBA

Объекты Range и Selection являются отправными точками для практически любых операций, которые вы сможете выполнять с текстом с помощью Word VBA. Некоторые из этих действий можно применять к документам в целом, но в общем случае вам необходим диапазон или выделенная область, прежде чем вносить изменения.

У объектов Range и Selection достаточно много общего, но есть и несколько ключевых отличий. Оба объекта представляют непрерывные последовательности символов, над которыми вы сможете выполнять различные операции. Оба объекта имеют много общих свойств и методов. Однако некоторые свойства и методы уникальны для выделенных областей, а другие - для диапазонов. Значительные различия состоят и в том, что объект Selection соответствует выделению в области окна: тексту, графическому изображению или любому другому объекту, в то время как объекты Range существуют независимо от выделенной области и всегда содержат текст.

Используйте объект Selection в том случае, если ваша процедура зависит от пользователя, например, он должен указать текст, с которым будут проведены определенные действия, или в том случае, если вам необходимо показать пользователю, какой именно текст будет изменен. В других ситуациях намного лучше подходят объекты Range. Они обеспечивают большую скорость выполнения программ и меньше отпугивают пользователя: Word обновляет содержимое экрана при каждом изменении содержимого выделенной области, а при изменении диапазона содержимое экрана не обновляется. Кроме того, изменения диапазонов не отражаются на выделенных областях, созданных пользователем.

Несмотря на их различия, объекты Selection и Range можно создавать один из другого. Эта возможность оказывается чрезвычайно важной, так как многие функции редактирования работают только с диапазонами. В противоположность этому, единственный способ отобразить содержимое диапазона пользователю- выделить его. Используйте следующие простые приемы.

* Для выделения диапазона используется его метод Select. Например, для объекта RangeR команда имеет вид RangeR. Select.

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

Помните: если метод, относящийся к текстовым данным, вызывается для диапазона, а вы хотите применить его к выделенной области, просто включите в свой код инструкцию Selection . Range . ИмяМетода.

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

Метод Expand увеличивает существующий диапазон или выделенную область, добавляя блок текста в их конец. Блок может представлять собой символ, слово, абзац или что-нибудь другое. Вы можете добавить только один заранее определенный блок; кроме того, добавление подобных блоков в начале диапазона или выделенной области не допускается.

Для добавления к выделенной области слова, которое будет следовать сразу за ней, используйте такую инструкцию:

Selection.Expand(wdWord)

Вы можете использовать любую из следующих констант для расширения объекта; wdCharct er, wdWord, wdSent ence, wdParagraph, wdSection, wdStory, wdCell, wdColumn, wdRow, wdTable и (только для объектов Selection) wdLine. По умолчанию используется константа wdWord.

Теперь нам следует остановиться на одном щекотливом моменте: объекты Selection (но не диапазоны) также содержат метод Expand. Этот метод включает соответствующее средство Word, которое позволяет расширять выделенную область при перемещении указателя мыши. Каждый раз, когда программа вызывает метод Extend, выделенная область увеличивается на блок текста, который следует сразу за точкой вставки: текущее слово, предложение, абзац, выделенный фрагмент пли целый документ. Если вы указали аргумент в виде одного символа, например, Selection.Expand ("С"). выделенная область будет расширена вплоть до первого встретившегося указанного символа.

Word VBA позволяет вам повторно определять начало и конец диапазона или выделенной области. Только имейте в виду, что методы, в имени которых присутствует слово Move, изменяют расположение диапазона или выделенной области: они не перемещают текст, который содержится в указанном объекте.

Метод Move изменяет диапазон или выделенную область, начиная с их сжатия, отмечая их расположение, а в них уже нет никакого текста. Расположение совпадает с началом исходного объекта. После этого метод Move перемещает "сжатый" объект в соответствии с вашими инструкциями. По окончании перемещения вы можете использовать методы Expand и Mover,nd для наполнения объекта текстом.

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

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

oTheRange .Move Unit: = waParagraph, Count, : = -2

Методы MoveStart. и MoveEnd работают практически так же, как и метод Move, только они изменяют начальную или конечную точку диапазона или выделенной области соответственно. Приведенная ниже инструкция перемешает начало выделенной области на три слова ближе к концу документа:

Select-on.KoveStart Unit: = wdWord, Count:= 3

Обратите внимание на то, что если вы перемещаете начальную точку объекта в конец, Word сожмет диапазон или выделенную область и переместит их в соответствии с указанными инструкциями.

Еще одна пара методов, Start Of или EndOf, перемешает или расширяет начало или конец диапазона или выделенной области. Метод Start Of перемещает начало объекта обратно к началу текущего блока, в то время как метод EndOt перемешает конец объекта вперед к концу текущего блока.

Вы можете использовать аргумент Extend с любым методом для контроля над действиями Word. Если перемешаемая сторона объекта уже находится с того края, к которому вы пытаетесь ее переместить, ничею не происходит. Используйте константу wdMove для сжимания объекта или константу wdExtend для перемещения только указанной стороны. Ниже приведен соответствующий пример:

Selection. Start Of Unit:= wdSentence, Extend:= wdMove

Очень часто вам необходимо сжать диапазон или выделенную область в точку, которая не содержит никакого текста. С технической точки зрения свернутые диапазон или выделенная область - это такие диапазон или выделенная область, начальная и конечная точки которых совпадают. Сжатие подобных объектов оказывается важным в тех ситуациях, когда вам необходимо вставить поле, таблицу или другой элемент до или после выделенной области или диапазона, обойдясь без замены текста. (Вы можете вставить обычный текст, новые абзацы, а также некоторые другие элементы в "несжатые" диапазон или выделенную область).

Используйте метод Collapse для сжатия диапазона или выделенной области. Вы можете сжать объект к его начальной или конечной точке, используя необязательный аргумент Direction. Приведенная ниже инструкция сжимает выделенную область к ее начальной точке:

Selection.Collapse

А этот пример сжимает выделенную область к ее конечной точке:

Selection.Collapse(Direction:=wdCollapseEnd)

Если вы сожмете диапазон, который заканчивается знаком абзаца, к его конечной точке (используя константу wdCollapseEnd), Word разместит сжатый диапазон после знака абзаца (это означает, что сжатый диапазон будет находиться в следующем абзаце). Если же вы хотите разместить что-то перед знаком абзаца исходного диапазона, вы должны сначала переместить диапазон обратно с помощью метода MoveEnd, используя инструкцию, подобную этой:

Диапазон.MoveEnd Unit:= wdCharacter, Count:= -1

Удалить весь текст в диапазоне или выделенной области совсем несложно: просто используйте метод Delete соответствующего объекта. Вы можете использовать и метод Cut, если хотите удалить текст и поместить его в буфер обмена. Конечно же, метод Сору копирует текст в буфер обмена, не оказав влияния на текст в диапазоне или выделенной области.

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

Хотя использование буфера обмена для передачи текста из одного места в другое кажется вполне привычным, этот метод не всегда оказывается самым эффективным. Намного удобнее использовать свойства Text или FormattedText диапазона или выделенной области. Залайте эти свойства равными диапазону или выделенной области, содержащим текст, который вы хотите передать, и все. Объект назначения должен быть сжат до тех пор, пока передаваемый текст не должен будет заменить существующий текст в объекте.

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

With ActiveDocument.Bookmarks("TheBookmark")

ActiveDocument.Range(Start:=.Start, End=.Start)

RangeY.Text = Selection.Text

Для передачи вместе с текстом и его форматирования просто замените свойство Text свойством FormattedText.

Простейшим для запоминания приемом добавления текста является задание свойства Text диапазона или выделенной области равным тексту, который вы решили вставить. Это проиллюстрировано на примере, показанном ниже:

Range2.Text = "Эй, эй! А ведь дома-то никого нет!"

Просто запомните, что использование свойства Text приводит к замене любого существующего в объекте. Во избежание этого (если только вы действительно не хотите заменить существующий текст), сначала сожмите объект.

Используйте методы Insert Before или Insert After объектов Range или Selection для вставки текста в определенном месте документа, не затрагивая при этом существующий текст. Эти методы позволяют вставить новый текст непосредственно перед или после указанного объекта соответственно. Word включает вставленный текст в выделенную область или диапазон.

При использовании любого из методов единственным аргументом является текст, который вы хотите вставить. Приведенный ниже фрагмент кода вставляет новый абзац, содержащий слова Dairy Entry в начало выделенной области (обратите внимание на использование такой константы VBA, как vbCr, для добавления знака абзаца). После этого в конец добавляется новый абзац, который начинается с текущей даты. Если вы выделили целый абзац до выполнения этого кода, абзац, содержащий текущую дату, появится после знака абзаца в выделенной области.

Цель лабораторной работы

Лабораторная работа служит для получения практических навыков по использованию возможностей языка Visual Basic for Applications при создании процедур обработки текста с помощью свойств и методов объектов Microsoft Word.

Основные сведения об объектах Word , их свойствах и методах

Visual Basic for Applications поддерживает набор объектов, соответствующих элементам Word. Используя свойства и методы этих объектов можно автоматизировать все операции в Word. Однако целесообразно автоматизировать выполнение тех операций, для реализации которых нет стандартных средств в Word или их выполнение стандартными средствами является трудоемкой или рутинной работой.

Наиболее важными являются:

ОбъектDocument представляющий собой новый или созданный ранее открытый документ.

Основными свойствами объекта Document являются:

Count - количество открытых в данный момент документов;

ActiveDocument - активный документ.

Некоторые методы объекта Document и коллекции Documents :

Open - открывает файл, содержащий существующий доку­мент и автоматически добавляет его в коллекцию;

Add - добавляет новый пустой документ;

Save - сохраняет изменения в существующем документе без закрытия;

Save As (только для объекта) - сохраняет активный вновь созданный документ в текущей папке;

Item - позволяет получить доступ к элементу коллекции;

Activate (только для объекта) - активизирует открытый документ;

PrintOut (только для объекта) - печать документа;

Close - закрывает документ.

ОбъектыCharacter (символ).Word (слово).Sentence (предложение),Paragraph (абзац).Section (раздел документа), задающие структуризацию текста документа.

Все эти объекты имеют свойства:

Count - свойство возвращает количество элементов в коллекции;

First - свойство возвращает объект, являющийся первым элементом коллекции;

Last - свойство возвращает объект, являющийся последним

элементом.

КоллекцииCharacters , Words , Sentences имеют единственный метод Item (Index ) .

КоллекцияParagraphs имеет все вышеперечисленные для данной группы коллекций свойства и множество свойств, значе­ния которых определяют формат абзаца.

Формат абзаца может быть определен и с помощью методов. Приведем некоторые методы коллекции Paragraphs:

Item - определяет элемент коллекции;

Add - добавление нового пустого абзаца (параметр метода указывает точку вставки, задается объектом Range );

InsertParagraph , InsertParagraphAfter , InsertParagraphBefore - осуществляют вставку пустого абзаца вместо текста или после, или перед текстом, задаваемым объектом Selection или Range ;

Reset - удаляет форматирование, сделанное вручную, применяя к абзацу формат, заданный стилем абзаца;

Indent , Outdent - увеличивают, уменьшают отступ абзаца от края листа;

TabHangingIndent ( Count ), TabIndent ( Count ) - увеличивают (Count >0), уменьшают (Count <0) выступ или отступ абзаца от края листа на заданное количество позиций;

Space 1, Space 2, Space 15 - устанавливают межстрочный интервал (одинарный, двойной, полуторный).

ОбъектыRange (диапазон) иSelection (выделение), представляющие части документа.

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

Свойствами объекта Range являются:

Start - начальная символьная позиция диапазона.

End - конечная символьная позиция диапазона.

Text - позволяет получить или изменить содержимое объекта.

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

Ниже приведены некоторые методы присущие объектам Selection и Range :

Move - метод перемещения точки вставки;

MoveStart , MoveEND - методы изменения значения свойств Start и End;

Collapse - сворачивает диапазон к его началу или концу.

Next - метод получения ссылки на очередной элемент коллекции объектов в диапазоне или выделенном фрагменте;

Delete - удаляет текст входящий в диапазон.

InsertAfter , InsertBefore вставляет текст до или после текста, входящего в диапазон. После вставки текста диапазон расширяется, включая в себя вставленный текст.

Copy - копирует объект в буфер обмена;

Cut - перемещает объект в буфер обмена;

Paste - позволяет поместить содержимое буфера в область, заданную объектом Range или Selection.

Пакет Word в сочетании с VBA предоставляет широкие возможности для работы с текстом или фрагментами текста. Можно вызвать для обработки какой-либо абзац, предложение и т.д.

Для доступа к тем или иным фрагментам документа используют такие объекты, как Sections (разделы), Paragraphs (абзацы), Sentences (предложения), Words (слова) и др.

Words(6) дает возможность перейти к шестому
слову в документе

Sentences(11) переход к одиннадцатому предложению

После перехода к определенной части документа можно использовать объект Font , позволяющий изменять свойства шрифта. Этот объект содержит методы, находящиеся в панели меню “Формат | Шрифт”.

Объект Range является базовым в операции редактирования. Его можно рассматривать как непрерывный фрагмент текста (никак не связанный с выделенной областью), который не зависит от положения курсора. Range включает в себя такие объекты, как Words (слова) или Sentences (предложения); при обращении к ним сам объект Range указывать не нужно, тогда как для Sections (разделы) или Paragraphs (абзацы) это делать необходимо.

Объект Range поддерживает основные методы, которыми пользуются при форматировании текста (такие, как “Копировать”, “Вставить”, “Вырезать”, команды меню “Формат”).

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

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

Для записи макроса необходимо:

1. Выбрать в меню “Сервис | Макрос | Начать запись”.

2. Ввести в окне “Запись макроса” в поле “Имя макроса” имя нового макроса.

3. Выбрать в списке “Макрос доступен для” шаблон или документ, в котором будет храниться макрос.

5. Ввести в поле “Назначить макрос” кнопку “Панели” (для назначения макросу кнопки панели инструментов или команды меню); кнопку “Клавишам”(для назначения макросу сочетания клавиш); если макросу назначение не требуется, нажмите кнопку “OK”. Если в процессе работы вы часто используете какой-либо макрос, то целесообразно назначить ему кнопку или сочетание клавиш.

Следует помнить, что для записи действий надо использовать клавиатуру, поскольку действия, произведенные с помощью мыши, не записываются.

Существует одна особенность при сохранении готового документа Word, в котором находятся макросы и процедуры. Если вы вспомните работу с макросами в Excel, то при открытии готового документа там всегда задается вопрос: “Отключать макросы при открытии или нет?”. И если вы укажете, что макросы надо отключить, то подготовленные кнопки работать не будут.

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

Поэтому при сохранении документа в Word вы должны выполнить следующую последовательность действий:

2. Выбрать в меню “Сервис” пункт “Параметры безопасности”. Появится диалоговое окно “Безопасность”.

3. Щелкнуть по кнопке “Защита от макросов”, чтобы изменить уровень безопасности файла (по умолчанию установлен Высокий уровень безопасности, поэтому при повторном открытии файла ваши программы выполняться не будут).

4. Выбрать в появившемся диалоговом окне на закладке “Уровень безопасности” Средний или Низкий уровень безопасности. При выборе Среднего уровня безопасности при открытии документа будет появляться запрос на включение или отключение макросов. Для того чтобы программы и макросы в документе работали, надо выбрать “Не отключать макросы”.

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

5. Перейти на закладку “Надежные источники” и включить флажок “Доверять доступ к Visual Basic Project”.

6. Сохраните документ.

Практическая работа № 9–1 “Работа в Wоrd”

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

Порядок работы.

1. Набрать текст в редакторе WORD.

2. Выбрать в меню “Сервис | Макрос | Начать запись”.

3. Дать макросу имя (например, “Имя_Существительное”).

4. Ввести описание макроса в поле “Описание”.

5. Определить в поле “Назначить макрос” способ, с помощью которого будет вызываться макрос (кнопка или сочетание клавиш).

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

В нашем случае последовательность действий будет такая: установить курсор перед любым словом; выделить это слово; установить цвет шрифта - красный, одинарное подчеркивание.

Не забывайте, что для записи действий надо использовать клавиатуру!

7. Нажать после записи макроса кнопку “Остановить запись”.

8. Выполнить те же действия для определения сказуемого (только цвет шрифта установить зеленый и задать двойное подчеркивание).

9. Подготовить кнопку “CommandButton1” на рабочем листе выше текста, назвать ее “Подлежащее”.

10. Просмотреть записанную программу, скопировать ее и переписать через режим написания программы Исходный текст в кнопку “Подлежащее”.

11. Проделать те же действия и для кнопки “Сказуемое”.

12. Задать уровень безопасности документа.

Практическая работа № 9–2 “Количество абзацев в документе”

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

Мы знаем, что в программе Word количество абзацев определяется по символу ¶, который появляется каждый раз после нажатия на клавишу . Но проверять и подсчитывать количество этих символов нецелесообразно, поскольку существуют стандартные методы. Вспомним, что документ, с которым мы работаем, называется активным документом, и в программе к нему будем обращаться ActiveDocument .

Возьмем для примера текст об Интернете, а именно - о передаче информации и протоколах. Текст содержит 6 абзацев, судя по количеству специальных символов.

Порядок работы.

1. Вызвать панель элементов управления (“Вид | Панели инструментов | Элементы управления”).

2. Подготовить кнопку “CommandButton1” на рабочем листе ниже текста.

3. Переименовать кнопку в “Количество абзацев”. Для этого на панели элементов управления вызовите “Свойства”. Появится панель “Properties”. Выберите свойство “Caption” и в правой колонке наберите название.

4. Придать кнопке свойство обтекания по контуру, чтобы кнопку можно было перемещать по листу. Для этого на объекте кнопка следует вызвать контекстно-зависимое меню и выбрать “Формат объекта”. Появится диалоговое окно “Формат элемента управления”. На вкладке “Положение” выбрать вариант “По контуру”.

5. Выбрать в контекстно-зависимом меню этого объекта команду “Исходный текст” или два раза щелкнуть по кнопке. Откроется редактор режима написания программы.

Алгоритм выполнения задания:

1. Объявить переменные:

a) k - переменная для подсчета количества абзацев в документе;

b) Text - переменная для формирования текста-ответа о количестве абзацев;

c) ZAGOLOVOK - переменная, которая определит область для вывода заголовка.

2. Определить количество абзацев с помощью метода Count объекта Paragraphs.

3. Сформировать текст вывода сообщения.

4. Вставить дополнительный абзац после последнего абзаца документа для вывода сообщения.

5. Вывести текст-сообщение в подготовленный абзац.

6. Сформировать область для вывода заголовка “Протоколы”.

7. Вывести название “Протоколы”.

8. Установить шрифт и размер заголовка.

9. Вставить символ конца абзаца для того, чтобы название и начало текста были на разных строках.

Можно дополнить эту задачу. Например, сообщение о количестве абзацев пусть выводится красным цветом и 14-м размером шрифта. Этот фрагмент учащиеся могут выполнить самостоятельно. Обратите внимание, что место этого фрагмента программы очень важно: он должен располагаться только в этой части программы, а не после работы с заголовком.

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

Практическая работа № 9–3 “Количество букв а (русских) в абзаце”

Эта практическая работа выполняется с тем же документом, что и работа № 9–2 (с документом, который состоит из нескольких абзацев). Задача заключается в том, чтобы программно определить номер абзаца, в котором будет происходить подсчет букв а ; подсчитать их количество; в конце документа (или после абзаца, в котором происходил подсчет) вывести сообщение о количестве букв.

Порядок работы.

2. Подготовить кнопку на рабочем листе ниже текста “CommandButton2”.

3. Переименовать кнопку в “Количество букв а в абзаце”.

4. Придать кнопке формат обтекания по контуру, чтобы ее можно было перемещать по листу.

текст” или два раза щелкнуть по кнопке (мы попадем в редактор в режим написания программы).

1. Объявить переменные:

a) b - строковая переменная для размещения в ней выбранного абзаца в документе;

b) k - переменная для хранения количества абзацев в документе;

c) dl - переменная для хранения длины абзаца;

d) Text - переменная для формирования текста-ответа о количестве символов а в абзаце;

e) Nab - переменная для ввода номера абзаца, в котором будет происходить подсчет;

f) I - переменная для организации цикла;

g) kol - переменная для подсчета символов а ;

h) REZULTAT - переменная, которая определит область для вывода заголовка.

2. Ввести номер абзаца, используя диалоговое окно.

3. Определить количество абзацев в документе.

4. Проверить существование введенного номера абзаца и выдать сообщение об ошибке, если такого нет.

5. В переменную b занести текст всего абзаца.

6. Определить длину абзаца.

7. Организовать цикл по нахождению символа а .

8. Сформировать текст вывода сообщения.

9. Вставить дополнительный абзац после последнего абзаца документа для вывода сообщения.

10. Вывести текст-сообщение в подготовленный абзац.

11. Установить определенный шрифт, размер и цвет текста-сообщения.

Результат выполнения представлен на рисунке.

Практическая работа № 9–4 “Предложения в абзаце”

Эта практическая работа выполняется с тем же документом, что и работа № 9–2 и 9–3 (или с любым текстом, который состоит из нескольких абзацев). Задача заключается в том, чтобы программно определить номер абзаца, в котором наибольшее количество предложений; выделить сообщение о номере абзаца и о количестве предложений, используя диалоговое окно; выделить этот абзац другим цветом.

Порядок работы.

1. Вызвать панель элементов управления “Вид | Панели инструментов | Элементы управления”.

2. Подготовить кнопку “CommandButton3” на рабочем листе ниже текста.

3. Переименовать кнопку в “Предложения в абзаце”.

4. Придать ей формат обтекания по контуру, чтобы кнопку можно было перемещать по листу.

5. Выбрать в контекстно-зависимом меню этого объекта пункт “Исходный текст” или два раза щелкнуть по кнопке (попадаем в редактор в режим написания программы).

Алгоритм выполнения задания следующий:

1. Объявить переменные:

a) k - переменная для хранения количества абзацев в документе;

b) kol - переменная для хранения количества предложений в абзаце;

c) i - переменная для организации цикла;

d) Mas() - массив для занесения количества предложений в абзацах;

e) Otvet - переменная для формирования текста-ответа с результатами;

f) Max - переменная для хранения максимального количества предложений в абзаце;

g) ind - переменная для хранения номера абзаца с максимальным количеством предложений;

h) REZULTAT - переменная, которая определит область абзаца, к которому надо применить элементы форматирования.

При объявлении массива нам неизвестно количество абзацев в документе. Поэтому объявление массива производим в два этапа: 1-й этап - объявление без размера Dim Mas() As Integer; 2-й этап - после определения количества абзацев в документе переопределяем размерность массива ReDim Mas(k) As Integer. Такие массивы называются динамическими.

Кроме этого, чтобы индекс массива начинался с 1, а не с 0 (для удобства работы), в редакторе в начале листа с процедурой укажите команду “Option Base 1”.

3. Переопределить размерность массива.

4. Организовать цикл по определению количества предложений в абзацах с занесением их размерности в массив и сохранением порядкового номера в массиве, что соответствует номеру абзаца.

5. Организовать цикл по нахождению наибольшего количества предложений в абзаце (работа со сформированным массивом) по стандартному алгоритму.

6. Сформировать текст вывода сообщения.

7. Вывести в диалоговом окне сообщений результат.

8. Определить область абзаца для форматирования.

9. Установить определенный шрифт, размер и цвет текста-абзаца с максимальным количеством предложений.

Диалоговое окно с результативным сообщением будет выглядеть так:

Результат выполнения задания представлен на рисунке.

Практическая работа № 9–5
“Слова-палиндромы”

Задача заключается в том, чтобы программно определить, есть ли в тексте слова-палиндромы и выделить эти слова другим цветом.

Порядок работы.

1. Подготовить текст (можно придумать рассказ или стихотворение со словами-палиндромами ШАЛАШ, КАЗАК, НАГАН, МАДАМ и т.д.).

2. Вызвать панель элементов управления “Вид | Панели инструментов | Элементы управления”.

3. Подготовить кнопку “CommandButton1” на рабочем листе ниже текста.

4. Переименовать кнопку в “Палиндромы”.

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

6. Выбрать в контекстно-зависимом меню этого объекта пункт “Исходный текст” или два раза щелкнуть по кнопке.

Алгоритм выполнения задания следующий:

1. Объявить переменные:

a) Slovo - переменная для последовательного хранения выделенных слов;

b) L - переменная для хранения длины слова;

c) M - переменная, определяющая половину длины выделенного слова;

d) K - переменная для формирования 1-й половины слова;

e) D - переменная для формирования 2-й половины слова;

f) Kol - переменная для хранения количества абзацев в документе.

2. Определить количество абзацев в документе.

3. Определить область, в которой надо искать слова-палиндромы, - это все абзацы текста.

4. Организовать цикл по выделению слов в области определения.

5. Присвоить выделенное слово строковой переменой.

6. Определить длину выделенного слова.

7. Проверить длину слова. Если она равна 1, то слово проверять нет смысла.

8. Организовать цикл, чтобы определить, является ли слово палиндромом.

9. Изменить цвет букв у слова-палиндрома.

В результате ыполнения программы слова-пасиндромы будут ыделены синим цветом.

В приложении Power Point с помощью VBA можно автоматизировать множество задач. Рассмотрим применение пользовательских форм для проектирования тестов и различных задач в PowerPoint. Кроме того, имеется возможность не только ввести информацию, но и использовать элементы управления. Для этого требуется следовать двум простым правилам:

1. Макросы необходимо назначить кнопкам панелей инструментов.

2. Элементы управления необходимо разместить в диалоговых окнах.

Практическая работа № 10–1 “Умеешь ли ты считать”

Создайте презентацию, с помощью которой можно проверить и оценить навыки устного счета.

Порядок работы:

1. Открыть Power Point и создать титульный слайд; оформить на нем пять кнопок:

2. Записать программы вызова пользовательских форм (через контекстное меню “Исходный текст”, выделив тематические кнопки).

Тексты программ кнопок:

UserForm1.Show

UserForm4.Show

Private Sub CommandButton3_Click()

UserForm3.Show

Private Sub CommandButton4_Click()

UserForm2.Show

3. Настроить кнопку “Выход” на завершение показа.

4. Спроектировать в редакторе Visual Basic пользовательскую форму UserForm1 “Сложение и вычитание от 1 до 10”.

При проектировании формы Свойство Caption для меток Label сделать пустым; отформатировать все элементы.

Объявление глобальных переменных

Public a As Integer

Public b As Integer

Public R As Integer

Public v As Integer

Public n As Integer

Public f As Integer

Private Sub CommandButton1_Click()

" a - переменная для первого числа

" b - переменная для второго числа

" R - переменная для получения результата

" v, n - переменные для подсчета верных

" и неверных ответов

" f - переменная оператора выбора

f = f + 1

Select Case f

" Присваиваем значения переменным

" a и b через RND в интервале (0;9)

b = Int(10 * Rnd())

a = Int(10 * Rnd())

" Формируем в надписях – или + и =

Label3.Caption = "-"

Label5.Caption = "="

Определяем большее из чисел, и это - первое число, меньшее - второе число:

If a > b Then

Label2.Caption = a

Label4.Caption = b

Label2.Caption = b

Label4.Caption = a

" Вычисляем результат

R = Abs(a - b)

Сравниваем результат и вводимый ответ, подсчитываем количество

v = v + 1

Label12.Caption = "Верно"

n = n + 1

Label12.Caption = "Неверно"

Label12.Caption = ""

b = Int(10 * Rnd())

a = Int(10 * Rnd())

Label2.Caption = a

Label4.Caption = b

Label3.Caption = "+"

Label5.Caption = "="

R = a + b

Написать аналогичные программы для следующих 9 примеров.

" Проверка результата в примере 10

If Val(R) = Val(TextBox1) Then

v = v + 1

Label12.Caption = "Верно"

n = n + 1

Label12.Caption = "Неверно"

" Вводим в надписи количество верных и неверных ответов, даем напутствия

Label7.Caption = "Ваш результат"

Label8.Caption = "Верно"

Label10.Caption = Str(v)

Label9.Caption = "Неверно"

Label11.Caption = Str(n)

If v = 10 Then Label12.Caption =

" Молодец!!!" Else Label12.Caption =

"Еще поработай над счетом!!!"

UserForm1.Hide

End Select

Программа кнопки “Снова”

Private Sub CommandButton2_Click()

Набираем программный код для кнопки снова (для этого щелкнем по кнопке)

"Обнуляем переменные, подсчитывающие

результат

"В надписях стираем информацию

Label10.Caption = ""

Label11.Caption = ""

Label12.Caption = ""

Label2.Caption = ""

Label4.Caption = ""

Label3.Caption = ""

Label5.Caption = ""

Label7.Caption = ""

Label8.Caption = ""

Label9.Caption = ""

Sub CLS()

TextBox1.Text = ""

В рабочем состоянии форма выглядит так:

5. Спроектировать пользовательские формы UserForm2, UserForm3, UserForm4.

6. Записать программы в кнопках.

Вид формы UserForm2 “Сложение и вычитание от 1 до 200” может быть таким:

Примерный вид формы UserForm3 “Таблица умножения”:

А вот такой может быть форма UserForm4 “Посчитай”:

7. Проверить работоспособность проекта и сохранить работу.

Практическая работа № 10–2 “Тест на Визуальный Интеллект”

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

Порядок работы:

1. Открыть Power Point, создать титульный слайд.

2. Создать посредством панели элементов кнопку “Определи свой Визуальный Интеллект” и записать (через контекстное меню “Исходный текст”) программу вызова пользовательской формы UserForm1:

Private Sub CommandButton1_Click()

UserForm1.Show

3. Создать через панель рисования кнопку “Выход”и настроить ее на завершение показа.

4. Спроектировать в редакторе Visual Basic пользовательскую форму со следующими элементами управления:

Public i As Integer

Public x As Integer

" Переменная х подсчитывает количество правильных ответов

Private Sub CommandButton1_Click()

i = i + 1

Select Case i

Label1.Caption = "Какая из фигур не соответствует общему ряду?"

UserForm1.Image1.Picture =

LoadPicture("C:\тест1.JPG")

If OptionButton4.Value = True

Then x = x + 1

OptionButton1.Value = False

OptionButton2.Value = False

OptionButton3.Value = False

OptionButton4.Value = False

UserForm1.Image1.Picture =

LoadPicture("C:\тест2.jpg")

If OptionButton1.Value = True Then x = x + 1

OptionButton1.Value = False

OptionButton2.Value = False

OptionButton3.Value = False

OptionButton4.Value = False

UserForm1.Image1.Picture =

LoadPicture("C:\тест3.jpg")

OptionButton1.Value = False

OptionButton2.Value = False

OptionButton3.Value = False

OptionButton4.Value = False

UserForm1.Image1.Picture =

LoadPicture("C:\тест4.jpg")

If OptionButton3.Value = True Then x = x + 1

OptionButton1.Value = False

OptionButton2.Value = False

OptionButton3.Value = False

OptionButton4.Value = False

UserForm1.Image1.Picture =

LoadPicture("C:\тест5.jpg")

If OptionButton4.Value = True Then x = x + 1

OptionButton1.Value = False

OptionButton2.Value = False

OptionButton3.Value = False

OptionButton4.Value = False

Label1.Caption = "Ваша оценка " & x

UserForm1.Hide

End Select

Программа кнопки “Выход”

Private Sub CommandButton2_Click()

UserForm1.Hide

5. Выбрать рисунки-тесты.

6. Вывести результат после прохождения всех пяти вопросов.

Практическая работа № 10–3 “Твой соционический тип”

Создайте презентацию, с помощью которой можно определить соционический тип.

Порядок работы:

1. Спроектировать титульный слайд; предусмотреть кнопки вызова пользовательских форм для определения соционического типа: “экстраверт - интраверт”; “сенсорик - интуит”; “логик - этик”; “иррационал - рационал”; “выход”; “узнай свой социотип” (определяются все типы).

2. Спроектировать пользовательские формы для определения социотипа:

· разработать программы для кнопок перехода на пользователькие формы описания социотипов (справочные);

· создать “OptionButton” для выбора варианта ответа;

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

· создать форму для определения социотипа;

· создать форму (вызываемую при нажатии на клавишу “Кто такой экстраверт?”), которая будет содержать справочный материал;

· предусмотреть подсчет ответов при нажатии на кнопку “Далее”; при последнем нажатии должен выдаваться результат: “Вы - ЛОГИК” и т.д.;

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

Дополнительные задания

Подберите материал для создания теста-вопросника. Это может быть:

· Тест по предмету:

· Тест для определения IQ:

· Тест для определения темперамента:

· Тест ШТУР (школьный тест умственного развития):

· Тест профессий и т.д.

Надеемся, что вам был полезен изложенный материал. Желаем успеха!