ТОР 5 статей:
Методические подходы к анализу финансового состояния предприятия
Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века
Характеристика шлифовальных кругов и ее маркировка
Служебные части речи. Предлог. Союз. Частицы
КАТЕГОРИИ:
- Археология
- Архитектура
- Астрономия
- Аудит
- Биология
- Ботаника
- Бухгалтерский учёт
- Войное дело
- Генетика
- География
- Геология
- Дизайн
- Искусство
- История
- Кино
- Кулинария
- Культура
- Литература
- Математика
- Медицина
- Металлургия
- Мифология
- Музыка
- Психология
- Религия
- Спорт
- Строительство
- Техника
- Транспорт
- Туризм
- Усадьба
- Физика
- Фотография
- Химия
- Экология
- Электричество
- Электроника
- Энергетика
Задания для практического занятия и инструктаж по их выполнению. Задание №1 «Количество абзацев в документе»
Задание №1 «Количество абзацев в документе»
Рассмотрим документ, который состоит из нескольких абзацев. Задача заключается в том, чтобы программно:
- определить количество абзацев в документе;
- озаглавить текст;
- в конце документа вывести сообщение о количестве абзацев.
Мы знаем, что в программе Word количество абзацев определяется по символу 
, который появляется каждый раз после нажатия на клавишу «ENTER». Но проверять и подсчитывать количество этих символов нецелесообразно, так как для этого есть другие способы. Определим, что документ, с которым мы работаем, называется активным документом, и в программе к нему будем обращаться ActiveDocument.
Возьмем текст об Интернете, а именно о передаче информации и протоколах. Текст содержит 6 абзацев, судя по количеству специальных символов.
- Вызовем панель «Элементов управления» ВидàПанели инструментов à Элементы управления.
- Подготовим элемент кнопка «CommandButton1» на рабочем листе ниже текста.
- Переименуйте кнопку в «Количество абзацев». Для этого на панели «Элементы управления» вызовите свойства, появится панель «Properties», выберите свойство «Caption» и в правой колонке наберите название.
- Для того чтобы, кнопку можно было перемещать по листу, придайте ей формат обтекания по контуру. На объекте кнопка вызовите контекстно-зависимое меню и выберите «Формат объекта».
Появится диалоговое окно «Формат элемента управления». На вкладке «Положение» выберем вариант «По контуру».
- Затем в контекстно-зависимом меню этого объекта выберем команду «Исходный текст» или два раза щелкнем по кнопке. Открывается редактор режима написания программы.
Алгоритм выполнения задания:
1. Объявить переменные:
a. k – переменная для подсчета количества абзацев в документе;
b. Text – переменная для формирования текста-ответа о количестве абзацев;
c. ZAGOLOVOK – переменная, которая определит область для вывода заголовка.
2. Определить количество абзацев.
3. Сформировать текст вывода сообщения.
4. Вставить дополнительный абзац после последнего абзаца документа для вывода сообщения.
5. Вывести текст-сообщение в подготовленный абзац.
6. Сформировать область для вывода заголовка «Протоколы».
7. Вывести название «Протоколы».
8. Установить определенный шрифт, размер заголовка.
9. Вставить символ конца абзаца для того, чтобы название и начало текста были на разных строках.
Текст программы:
| Строка программы | Пункт алгоритма |
| Public Sub CommandButton1_Click() | Начало |
| Dim k As Integer | 1a |
| Dim Text As String | 1b |
| Dim ZAGOLOVOK As Range | 1c |
| Dim REZULTAT As Range | Эта часть для самостоятельного выполнения |
| k = ActiveDocument.Paragraphs.Count | |
| Text = "Количество абзацев в этом документе - " & k & "." | |
| ActiveDocument.Paragraphs(k).Range.InsertParagraphAfter | |
| ActiveDocument.Paragraphs(k + 1).Range.InsertBefore Text | |
| Set REZULTAT = ActiveDocument.Paragraphs(k + 1).Range With REZULTAT .Font.Name = "Arial" .Font.Size = 14 .Font.ColorIndex = wdDarkRed End With | Эта часть для самостоятельного выполнения |
| Set ZAGOLOVOK = ActiveDocument.Range(Start:=0, End:=0) | |
| With ZAGOLOVOK | Начало структуры With |
| .InsertBefore "Протоколы" | |
| .Font.Name = "Arial" | |
| .Font.Size = 24 | |
| .InsertParagraphAfter | |
| End With | Конец структуры With |
| End Sub | Конец |
Можно дополнить эту задачу, а именно Текст-Сообщение, которое должно появиться в конце документа, сделать красным цветом и 14 размером шрифта. В таблице эти строки выделены серым цветом. Место расположения этого фрагмента программы очень важно и располагать его надо только в этой части программы, а не после работы с заголовком.
Результат выполнения представлен на рисунке:
Не нашли, что искали? Воспользуйтесь поиском: