Vba word количество абзацев

VBA  в приложении к Word, Excel, Power Point 

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

Пример:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

1. Выбрать “Файл | Сохранить как | Сервис”. Появится диалоговое окно
“Сохранение документа”.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

13. Сохранить работу. Она
будет выглядеть примерно так:

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

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

Мы знаем, что в программе
Word количество абзацев определяется по символу ¶, который появляется каждый
раз после нажатия на клавишу Enter .
Но проверять и подсчитывать количество этих символов нецелесообразно, поскольку
существуют стандартные методы. Вспомним, что документ, с которым мы работаем,
называется активным документом, и в программе к нему будем обращаться 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-м
размером шрифта. Этот фрагмент учащиеся могут выполнить самостоятельно.
Обратите внимание, что место этого фрагмента программы очень важно: он должен
располагаться только в этой части программы, а не после работы с заголовком.

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

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

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

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

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

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

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

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

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

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

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. Установить
определенный шрифт, размер и цвет текста-сообщения.

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

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

Эта практическая работа выполняется с тем же документом, что и работа № 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”.

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

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

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

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

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

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

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

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

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

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

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

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

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

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. Изменить цвет букв у слова-палиндрома.

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

Литератрура:

Sub макрос()

    Dim par As Paragraph, docRes As Document
    Dim clnStyles As Collection, clnCounters As Collection
    Dim count As Long, style As String, i As Long

            ‘1. Отключение монитора (может это ускорит макрос и не будет мерцать).
    Application.ScreenUpdating = False

        ‘2. Создание коллекций. В коллекцию «clnStyles» будут записываться имена стилей,
        ‘ в коллекцию «clnCounters» их кол-во. В одной коллекции это сделать нельзя,
        ‘ т.к. нельзя извлечь данные из Keys.
    Set clnStyles = New Collection
    Set clnCounters = New Collection

        ‘3. Включение перехватчика ошибок. Ошибка будет происходить, если в коллекции уже есть стиль с таким именем.
    On Error Resume Next

        ‘4. Цикл по всем абзацам.
    For Each par In ActiveDocument.Paragraphs

            ‘1) Запись имени стиля в переменную, чтобы ускорить макрос, чтобы по несколько раз не обращаться к объекту «par»,
            ‘ а брать данные сразу из переменной «style».
        style = par.style

                ‘2) Создание в коллекции «clnStyles» элемента.
        clnStyles.Add Item:=style, Key:=style

                ‘3) Создание в коллекции «clnCounters» элемента. В Item записывается число 1 на случай,
            ‘ если в коллекции ещё нет такого стиля.
        clnCounters.Add Item:=1, Key:=style

                ‘4) Если произошла ошибка, значит в коллекциях уже есть такой стиль.
            ‘ Просто увеличить число на 1 в коллекции нельзя, нужно удалить элемент, а затем создать заново.
        If Err.Number <> 0 Then
            ‘a) Сброс ошибки, чтобы в следующем витке цикла понять, произошла ошибка или нет.
            Err.Number = 0
            ‘b) Запоминание, сколько стиль уже встречался.
            count = clnCounters(style)
            ‘c) Удаление в коллекциях элементов с этим стилем.
            clnStyles.Remove style
            clnCounters.Remove style
            ‘d) Создание в коллекциях элементов для этого стиля.
            clnStyles.Add Item:=style, Key:=style
            clnCounters.Add Item:=count + 1, Key:=style
        End If
    Next par

        ‘5. Отключение перехватчика ошибок.
    On Error GoTo 0

        ‘6. Создание ворд-файла, в который запишется результат.
    Set docRes = Documents.Add

        ‘7. Копирование данных из коллекций в ворд-файл.
    For i = 1 To clnStyles.count
        docRes.Range.InsertAfter Text:=clnStyles(i) & » — » & clnCounters(i) & Chr(13)
    Next i

        ‘8. Удаление с конца пустого абзаца, чтобы при сортировке он не поднимался вверх.
    docRes.Range.Characters.Last.Delete

        ‘9. Сортировка стилей по возрастанию.
    docRes.Range.Sort ExcludeHeader:=False, FieldNumber:=»абзацам», SortFieldType:=wdSortFieldAlphanumeric, _
        SortOrder:=wdSortOrderAscending, Separator:=wdSortSeparateByDefaultTableSeparator, SortColumn:=False, _
        CaseSensitive:=False, LanguageID:=wdRussian

        ’10. Включение монитора.
    Application.ScreenUpdating = True

End Sub

[свернуть]

Перейти к содержанию

 iParCount = ActiveDocument.Paragraphs.Count