Здравствуйте дорогие читатели блога scriptcoding.ru. Сегодня мы рассмотрим свойства объекта Selection, который позволяет программно выделить весть текст в Ворде.
Помним, что бы вручную выделить весть текст в Ворд , достаточно нажать комбинацию клавиш «Ctr + A«. Мы рассмотрим некоторые свойства объекта Word.Selection. Говорю «некоторые«, так как большинство используются редко, в случае чего – документация MSDN всегда под рукой. И так, сам объект Selection выполняет двойную функцию – с одной стороны он позволяет вставлять фразу в только что созданный документ, с другой стороны – позволяет обрабатывать выделение всего текста в ворде. Описание методов класса Selection можно просмотреть тут и тут.
Свойства класса Word.Selection – выделить весь текст в Ворде
В конце статьи я приведу три примера программного кода – два под Windows Script Host (язык VBScript и JScript) и один под Visual Basic for Application.
И так, сначала давайте познакомимся со свойствами:
Start и End – Если текст уже выделен, то Start и End будут содержать начальную и конечную позиции выделения. Так как они доступны и для записи, то можно задать диапазон для выделения всего текста в ворде.
Flags – Позволяет установить или получить параметры выбора. Flags может быть установлено в одной из следующих констант wdSelectionFlags:
- wdSelActive — 8 — активное выделение.
- wdSelAtEOL — 2 – конец строки.
- wdSelOvertype — 4 – замена символов.
- wdSelReplace — 16 — выбор был заменен.
- wdSelStartActive — 1 — начало активного документа.
Само свойство возвращает сумму констант wdSelectionFlags.
Information(Type) — Получить информацию относительно выделения или заданного диапазона. Только чтение. Параметр Type содержит значения константы wdInformation (я указал только основные значения):
- wdActiveEndAdjustedPageNumber – 1 — Номер страницы.
- wdActiveEndSectionNumber – 2 — Количество разделов.
- wdActiveEndPageNumber – 3 – Номер страницы начиная с начала.
- wdNumberOfPagesInDocument – 4 – Количество страниц в документе
- wdHorizontalPositionRelativeToPage – 5 — Горизонтальная позиция от левого края выделения к левому краю страницы в пунктах.
- wdVerticalPositionRelativeToPage – 6 – Вертикальная позиция от верхнего края выделения к верхнему краю страницы в пунктах.
- wdFirstCharacterColumnNumber – 9- Позиция первого слова в выделении начиная с начала документа.
- wdFirstCharacterLineNumber – 10 – Позиция строки, с которой начинается выделение, начиная с начала.
- wdFrameIsSelected – 11 – TRUE, если выделен весть текст в ворде.
- wdZoomPercentage — 19 – Масштаб в процентах
- wdCapsLock – 21 – TRUE если включен CapsLock.
- wdNumLock — 22 – TRUE если включен NumLock.
- wdRevisionMarking – 24 — Возвращает True, если отслеживание изменений в силу.
Все константы будут содержать значение -1, если информация выходит за пределы допустимой области.
IPAtEndOfLine —True — указатель ввода расположен в конце строки (в крайнем правом положении при выравнивании).
NoProofing — Отменяет (значение TRUE) для выбранного фрагмента проверку орфографии и грамматики.
StoryType – Возвращает тип истории для указанного выбора (только чтение). Константа WdStoryType:
- wdCommentsStory — 4 – Комментарии.
- wdEndnoteContinuationNoticeStory — 17 — Сноска продолжения уведомления.
- wdEndnoteContinuationSeparatorStory — 16 – Сноска продолжения разделителя.
- wdEndnoteSeparatorStory — 15 — Сноска разделитель.
- wdEndnotesStory — 3 – Примечания.
- wdEvenPagesFooterStory — 8 — Четные страницы футера.
- wdEvenPagesHeaderStory — 6 — Четные страницы заголовка.
- wdFirstPageFooterStory — 11 –Первый футер страницы.
- wdFirstPageHeaderStory — 10 – Первый заголовок страницы.
- wdFootnoteContinuationNoticeStory — 14 — Сноска продолжения уведомления.
- wdFootnoteContinuationSeparatorStory — 13 — Сноска продолжения разделителя.
- wdFootnoteSeparatorStory — 12 — Сноска разделитель.
- wdFootnotesStory — 2 – Сноски.
- wdMainTextStory — 1 — Основной текст.
- wdPrimaryFooterStory — 9 — Первичный футер.
- wdPrimaryHeaderStory — 7 — Первичный заголовок.
- wdTextFrameStory — 5 — Текст рамки.
Text – Получить или указать материал, который будет вставлен на месте выделения, или просто там, где расположен курсор. Чтение/Запись
Type – Возвращает тип выделения, константа WdSelectionType:
- wdNoSelection — 0 – Отсутствует.
- wdSelectionBlock — 6 – Блок.
- wdSelectionColumn — 4 – Столбец.
- wdSelectionFrame — 3 – Рамка.
- wdSelectionInlineShape — 7 – Рядовая форма.
- wdSelectionIP — 1 – Пункт.
- wdSelectionNormal — 2 – Нормальный.
- wdSelectionRow — 5 – Строка.
- wdSelectionShape — 8 – Форма.
Начинаем программировать – выделить весь текст в ворде
Ниже, как обещал, привожу примеры кода. По сути, все заключается в создании нового документа, в который сто раз вставляется заданная фраза, далее, мы указываем, что надо выделить весь текст в ворде. Потом происходит выбор фрагмента и вывод значений некоторых свойств.
Пример на языке VBScript:
' ---------------------------------------------------------------------------- ' Класс Word Selection ' Создание, ввод и выбор ' выделение текста в ворде ' Selection.vbs ' ---------------------------------------------------------------------------- Option Explicit dim oWord, oDoc, oSel, SelText, MyText, i, SEnd, SStart Set oWord = CreateObject("Word.Application") Set oDoc = oWord.Documents oDoc.Add() Set oSel = oWord.Selection oWord.Visible = True MyText="Пример работы с объектом Word Selection в VBScript, выделение всего текста в ворде " ' вставляем в документ фразу сто раз For i = 0 To 100 oSel.Text = MyText ' Перемещаем курсор в конец содержимого oSel.EndOf Next ' Выделяем весь текст в ворде oWord.Documents(1).Select ' задержка в пять секунд WScript.Sleep 5000 With oSel ' Определяем позиции SStart = oSel.Start SEnd = oSel.End ' Перемещаем курсор в конец .EndOf .Text = SStart & " " & SEnd .EndOf ' Выделяем заданный диапазон .Start= SStart +400 .End= SEnd -400 ' задержка в пять секунд WScript.Sleep 5000 ' Отменяем проверку .NoProofing = true ' Выводим значения выделить весь текст в документе ворд MsgBox "Information - " & .Information(19) & vbCrLf &_ "StoryType - " & .StoryType & vbCrLf &_ "Type - " & .Type & vbCrLf &_ "IPAtEndOfLine - " & .IPAtEndOfLine End With
Пример на языке JScript:
// ---------------------------------------------------------------------------- // Объект Word Selection // Создание, ввод и выбор // выделение текста в ворде // Selection.js // ---------------------------------------------------------------------------- var oWord1, oDoc1, oSel, MyText, i, SEnd, SStart; oWord1 = WScript.CreateObject("Word.Application"); oDoc1 = oWord1.Documents; oDoc1.Add(); oSel = oWord1.Selection; oWord1.Visible = true; MyText="Пример работы с объектом Word Selection в JScript, выделение всего текста в ворде " // вставляем в документ фразу сто раз for(i=0; i<=100; i++){ oSel.Text = MyText; // Перемещаем курсор в конец текста oSel.EndOf(); } // Выделяем весь текст в ворд oWord1.Documents(1).Select(); // задержка в пять секунд WScript.Sleep(5000); with (oSel){ // Определяем позиции SStart = Start; SEnd = End; // Перемещаем курсор в конец EndOf(); Text = SStart + " " + SEnd; EndOf(); // Выбираем заданный диапазон выделить весь текст в документе ворд Start= SStart + 400; End= SEnd - 400; // задержка в пять секунд WScript.Sleep(5000); // Отменяем проверку текста NoProofing = true; // Выводим значения WScript.Echo ("Information - " + Information(19) + "nStoryType - " + StoryType + "nType - " + Type + "nIPAtEndOfLine - " + IPAtEndOfLine) }
Пример под Visual Basic for Application:
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub Module2() Dim oWord2 As Object Dim oDocument As Object Dim oSel As Object Set oWord2 = CreateObject("Word.Application") oWord2.Visible = True Set oDocument = oWord2.Documents.Add Set oSel = oWord2.Selection MyText = "Пример работы с объектом Word Selection в Visual Basic for Application - выделить весь текст в ворде " With oSel For i = 0 To 100 .Text = MyText .EndOf Next oWord2.Documents(1).Select Sleep 3000 SStart = .Start SEnd = .End .EndOf .Text = SStart & " " & SEnd .EndOf .Start = SStart + 400 .End = SEnd - 400 ' выделить весь текст в документе ворд Sleep 3000 .NoProofing = True End With End Sub
И так, с теоретической частью мы разобрались, и даже немного попрограммировали, теперь стоит дать некоторые пояснения к программному коду. В последнем примере для VBA в самом начале есть такая строка:
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Дело в том, что функция Sleep (смотрите статью «Объект WScript — методы sleep, quit и echo и 8 свойств») доступна только в сценариях VBS и JS, что бы сделать задержку для макроса, мне пришлось обратиться к системной функции Windows. Для вставки материала в документ используется цикл for, его смотрите описание синтаксиса для JScript — «Урок 9 по JScript — оператор цикла for» и для VBScript — «Урок 6 по VBScript: Циклы for…next и for each…next«. В остальном коде я думаю, разобраться несложно, если есть вопросы, задавайте, буду рад ответить.
После того, как запущено
приложение, найден и активизирован
нужный нам файл, следующее действие,
которое выполняется чаще всего – ввод
или редактирование текста в нужном
месте. Для этого используются объекты
Selection, RangeиBookmark. Каждое из них
используется в своих ситуациях и для
своих задач.
Первый объект, который
рассмотрим – это объект Selection.
Обычно перед тем, как что-либо
сделать в окне документа Word, пользователь
либо выделяет нужный участок текста,
либо переставляет указатель вставки
текста в нужное место. Объект Selection
представляет именно такой выделенный
участок текста (а если ничего не выделено,
то место, где находится указатель
вставки). Именно этот объект обычно
использует макрорекордер.
Создавать объект Selection и
получать на него ссылку в переменную
не обязательно (а обычно и просто
невозможно). Дело в том, что объект
Selection в документе может быть только
один. Он создается автоматически при
запуске Word и всегда доступен. Обращаться
к нему можно так:
Application.Selection.Text
= «Вставляемый
текст»
или просто
Selection.Text
= «Вставляемый текст»
Обычно нужно правильно
определить то место, на которое указывает
объект Selection, чтобы выделить
нужный нам участок текста или точку для
ввода.
Как настроить выделение в документе Word
Самый простой способ – просто
положиться на выделение нужного текста
пользователем. Обычно такой способ
применяется для сложного
редактирования/форматирования участков
текста и для ввода информации в указанное
пользователем место документа, когда
в автоматическом режиме нужное место
не найти;
-
воспользоваться
методом Select(), который
предусмотрен для огромного числа
объектов (Document,Range,Bookmark,Tableсо всеми подобъектами типа столбцов и
строк,PageNumber,Fieldи т.п.). Этот метод просто выделяет весь
документ, закладку, таблицу и т.п. -
воспользоваться
многочисленными методами объекта
Selection, чтобы преобразовать
уже существующее выделение; -
воспользоваться
объектом Findдля поиска
нужного участка текста.
Если нужно вводить информацию
в самое начало документа, можно вообще
ничего не делать. По умолчанию указатель
вставки устанавливается на начало
документа.
Несмотря на то, что применение
объекта Selection– самый
простой и наглядный метод редактирования
текста, и чаще всего именно он используется
макрорекордером, на практике программисты
используют его редко. Объясняется это
очень просто: при использовании этого
объекта существует зависимость от
действий пользователя. Если во время
выполнения нашего кода пользователь
проявит инициативу и начнет щелкать по
документу мышью, результат может быть
совершенно непредсказуемым. Защититься
от вмешательства пользователя можно
двумя способами: работать со скрытым
(то есть невидимым) документом или,
возможно, со скрытым экземпляромWord.
Для включения/отключения невидимости
можно использовать свойствоVisibleдля объектовDocumentиApplication;
более
удобный способ – вместо объекта Selectionиспользовать объектыRangeиBookmark.
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
Аннотация: Лекция посвящена описанию объектов Selection и Range, описанию особенностей работы с автоматически выполняемыми макросами и шаблонами.
11.1. Объект Selection
Выше нам уже встречался и объект Selection, и объект Range. Здесь пришло время поговорить о них подробнее, обсудить особенности их использования.
Напомню, что объект Application.Selection представляет собой выделенный участок документа или, если ничего не выделено, позицию курсора. Именно этим объектом пользуется макрорекордер при записи макроса, выполняющего какие-либо операции с текстом.
У Selection есть два основных применения. Первое — автоматическое создание документов, не требующее правки шаблонов и других подобных операций. И второе — работа с фрагментом документа, предварительно выделенного пользователем.
Выделения можно создавать и программно, но эту методику практически никогда не используют на практике. Например, код листинга 11.1 выделяет седьмое слово в документе и форматирует его курсивом:
ActiveDocument.Words.Item(7).Select Selection.Font.Italic = True
Листинг
11.1.
Выделяем седьмое слово и форматируем его
Предположим, мы используем такую конструкцию в шаблоне для автоматического форматирования текста. Если мы правильно рассчитаем номер слова, которое нужно отформатировать (или отредактировать, вставить в документ и т.д.) — то все будет работать правильно. Но стоит нам отредактировать шаблон — даже совсем немного, но так, что количество слов в нем изменится, наш макрос будет работать неправильно.
Объект Selection обычно используют без объявления объектной переменной. Например, для вставки в выделенную позицию документа текста «Привет» достаточно конструкции листинга 11.2.
Selection.Text = "Привет"
Листинг
11.2.
Добавляем текст в выделенную позицию документа
Минус использования Selection при автоматической обработке текста зависит от того, что он слишком чувствителен к действиям пользователя. Например, мы напишем программу, которая, имитируя выделение фрагментов текста с клавиатуры, обрабатывает текст. Если во время обработки текста пользователь вмешается, случайно кликнув мышью в документе, работа такой программы будет нарушена.
Рассмотрим основные свойства и методы объекта Selection.
11.2. Методы объекта Selection
11.2.1. ClearFormatting — очистить форматирование
Этот метод очищает форматирование выделенного участка документа.
11.2.2. Copy, Cut, Paste, Delete
Методы Copy и Cut, соответственно, копируют и вырезают выделенный фрагмент в буфер обмена, а метод Paste — вставляет материалы из буфера в область выделения.
Метод Delete удаляет выделенный фрагмент
11.2.3. InsertAfter, InsertBefore — добавление текста
Как следует из их названий, методы InsertAfter и InsertBefore позволяют вставить текст после или до выделения. Существуют и другие методы, название которых начинается с Insert. Они позволяют вставлять множество других объектов в выделенную область. Например, InsertBreak вставляет разрыв страницы, колонки или раздела, InsertCells вставляет в выделенную таблицу ячейки и т.д.
11.2.4. TypeBackspace — удалить символ
Удаляет один символ, предшествующий позиции курсора, имитируя нажатие клавиши Backspace на клавиатуре.
11.2.5. TypeParagraph — перевод строки
Имитирует нажатие клавиши Enter на клавиатуре — вставляет в текст знак перевода строки.
11.2.6. TypeText — вывести текст в документ
Вводит в документ текст. У метода есть лишь один параметр — Text. Он должен содержать тот текст, который должен быть выведен в документ. Ниже мы рассмотрим примеры, где используется этот метод.
11.2.7. WholeStory — выделить весь документ
Позволяет выделить весь документ. Пожалуй, это единственный удобный метод программного управления выделением.
11.3. Свойства объекта Selection
11.3.1. Bookmarks и другие
Это свойство возвращает коллекцию Bookmarks, которая содержит все закладки, имеющиеся в выделении. Существуют подобные свойства для символов ( Characters ), таблиц ( Tables ) и многих других коллекций объектов. Работа с ними ни чем не отличается от работы с аналогичными коллекциями, входящими в Document.
11.3.2. End и Start
Эти свойства позволяют узнать и модифицировать, соответственно, конечную ( End ) и начальную ( Start ) позиции выделения.
11.3.3. Font — шрифт
Это свойство позволяет узнавать и настраивать параметры шрифта выделенного фрагмента. Например, код, приведенный в листинге 11.3 форматирует текст. Пояснения к примеру приведены в комментариях.
'Полужирный
Selection.Font.Bold = wdToggle
'Курсивный
Selection.Font.Italic = wdToggle
'Подчеркнутый
Selection.Font.Underline = wdUnderlineSingle
'Гарнитура Arial Narrow
Selection.Font.Name = "Arial Narrow"
'Размер шрифта - 14
Selection.Font.Size = 14
'Цвет шрифта - красный - из
'перечисления wdColorR
Selection.Font.Color = wdColorRed
Листинг
11.3.
Форматируем текст
11.3.4. Information — подробности о выделении
Позволяет узнать подробности о выделении. Это свойство может принимать параметр типа wdInformation, который и определяет, что именно возвратит свойство.
11.3.5. Range — переход от Selection к Range
Это свойство позволяет получить объект Range, соответствующий выделению.
Например, этим свойством можно воспользоваться так, как показано в листинге 11.4.
Dim obj_Range As Range Set obj_Range = Selection.Range
Листинг
11.4.
Получаем объект Range из Selection
11.3.5. Text — текст выделения
Это свойство позволяет получить текст, содержащийся в выделении, и изменить его.
11.4. Пример работы с Selection
11-01-Selection.docm— пример к п. 11.4.
Рассмотрим пример использования вышеперечисленных свойств и методов (а заодно – и некоторых других), решив небольшую задачу.
11.4.1. Задание
Создать новый документ, и добавить в него текст, который был выделен в текущем документе. Каждое слово этого текста надо напечатать отдельно, с новой строки. Каждое слово должно предваряться таким текстом: «Слово №x:», где x — номер слова в выделенном тексте. После вывода слов нужно подсчитать количество слов и количество букв в этих словах и вывести строку «Всего обработано «x» слов, состоящих из «xx» букв». Готовый документ сохранить на диске C:, задав в качестве его имени такую структуру:
"Имя_исходного_документа"+ "текущая дата"+ "обработано".docm
После того, как слова будут выведены, нужно заключить выделенный участок исходного документа в скобки, отметить синим цветом шрифта и выделить первый символ текущего выделения.
11.4.2. Решение
Создадим новый макрос ( Copy_To_File ), воспользовавшись окном Макросы, которое можно открыть с вкладки Вид.
Добавим в макрос код из листинга 11.5.
'Переменая для хранения ссылки на новый документ
Dim obj_NewDoc As Document
'Для ссылки на исходный документ
Dim obj_OurDoc As Document
'Динамический массив для хранения слов
Dim WordsArray() As String
'Переменная для хранения количества слов
Dim WordsCount
'Переменная для формирования строк,
'которые выводятся в новый документ
Dim OutString
'Переменная для хранения количества
'символов в обработанных словах
Dim LettersCount
'В этой переменной будем создавать
'имя файла
Dim NewDocName
'Запишем ссылку на активный документ
'Для того, чтобы вернуться в него
'после работы с новым документом
Set obj_OurDoc = ActiveDocument
WordsCount = Selection.Words.Count
LettersCount = Selection.Characters.Count
ReDim WordsArray(WordsCount)
'Переносим слова из выделения
'в массив для удобства работы с ними
For i = 1 To WordsCount
WordsArray(i) = Selection.Words.Item(i)
Next i
'Создадим новый документ
Set obj_NewDoc = Documents.Add
'И сделаем его активным
obj_NewDoc.Activate
'Теперь объект Selection относится к активному
'документу и мы начинаем вводить в него данные
Selection.TypeText ("Список выделенных слов")
Selection.TypeParagraph
For i = 1 To WordsCount
OutString = "Слово №" + Str(i) + ": " + _
WordsArray(i)
Selection.TypeText (OutString)
Selection.TypeParagraph
Next i
Selection.TypeText ("Всего обработано " + _
Str(WordsCount) + _
" слов(а), в которых содержится " + _
Str(LettersCount) + " символа(ов)")
'Создаем имя нового документа
NewDocName = obj_OurDoc.Name + " " + _
Str(Date) + " Обработано.docx"
'Установим корневой каталог диска C:
'для сохранения нового файла по умолчанию
ChangeFileOpenDirectory "C:"
'Используем метод SaveAs для
'автоматического сохранения
'документа
ActiveDocument.SaveAs _
FileName:=NewDocName, _
FileFormat:=wdFormatDocumentDefault
'Закрываем активный документ
ActiveDocument.Close
'Активируем документ, в котором мы выделяли
'слова
obj_OurDoc.Activate
'Отмечаем обработанный участок
'скобками и выделением синим цветом
Selection.InsertAfter (") ")
Selection.InsertBefore (" (")
Selection.Font.Color = wdColorBlue
'Выделяем первый символ текущего выделения и
'выводим сообщение о том, что операция
'выполнена
Selection.Characters(1).Select
MsgBox ("Выполнено!")
Листинг
11.5.
Решение задачи
Как видите, в этом примере мы используем исключительно объект Selection для работы с текстом документов. Обратите внимание на то, что мы нигде специально не храним информацию о выделенной области первого документа. Создав второй документ, мы просто делаем его активным и работаем с ним, используя его объект Selection. В это время выделение сохраняется в исходном документе. Однако, если в это время пользователь случайно или умышленно изменит выделение текущего документа — программа будет работать неправильно — она выделит не тот фрагмент, который был передан ей для обработки, а совсем другой.
|
2006 г. Word и его объекты
|
- Объекты
Range и Selection.
Работа с текстом. - Выделенный
текст. - Текстовый
диапазон. - Выделение
текста. - Вырождение
диапазона. - Форматирование
текста. - Поиск
и замена - Коллекция
Tables.
1.Объекты Range и Selection.Работа с текстом.
Работа с текстом осуществляется с помощью ряда объектов.
Весь текст документа можно представить в виде пирамиды, основой которой
являются символы, а вершиной – собственно документ. В иерархическом порядке
объектов VBA документ Word можно представить как:
Символы (Characters) ® Слова (Words) ®
Предложения (Sentences) ® ®Абзацы
(Paragraphs) ®Разделы
(Sections) ®Документ
(Document)
Кроме этих объектов, явно указывающих на тот или иной
элемент документа, в VBA имеется два объекта, которые позволяют работать с
текстом как с целым, без явного структурного разделения: объект Rahge ассоциируется с любым фрагментом документа, а объект Selection – с любым выделенным фрагментом текста. Оба эти
объекта похожи по своему действию, однако они различаются по своим
функциональным возможностям.
2.Выделенный текст.
Объект Selection является одним из
базовых объектов. Это глобальный объект и предварительного объявления для него
не требуется. в целом этот
объект любое выделение в документе, а в случае если выделение вырождено, т.е.
ничего не выделено, то объект описывает текущее положение указателя.
Эта особенность часто используется для получения ссылки на
объект, описывающий текущий элемент документа.
Пример: получить ссылку на объект типа Paragraphs,
являющегося семейством всех выделенных или затронутых выделением абзацев.
Dim e As Paragraphs
Set e = Selection.Paragraphs
MsgBox e.Count
Свойством по умолчанию для объекта типа Selection
является свойство Text, возвращающее выделенный
текст.
Selection.[.Text][=Text]
Для замены текущего выделенного текста используется метод
TypeText.
Selection.TypeText(Text)
Пример: вставляем в документ текст «ХХХ» и начинаем новый
абзац.
With
Selection
.TypeText Text:=«XXX»
.TypeParagraph
End With
Для управления параметрами вставки текста можно использовать
свойство ReplaceSelection.
Selection.ReplaceSelection [=Boolean]
Если true – текущее выделение
замещается, если False – то вставлять перед
выделением.
3.Текстовый диапазон. Объект Range
предназначен для выделения и обработки фрагментов текста. Этот объект является
семейством многих объектов.
Например для выделения
абзаца, в котором сейчас находится указатель достаточно использовать код
Selection.Paragraphs(1).Range.Select
Область текста,
связанная с объектом типа Range, характеризуется
начальными и конечными символами. Для получения информации о них нужно
использовать свойства Start и End.
objrange.Start [=Position]
objrange.End [=Position]
параметр Position (типа Long) позволяет задать индекс символа, с которого должен
начаться или которым должен закончится фрагмент
текста, связанного с данным объектом objRange.
Для получения ссылки на текстовый диапазон можно
использовать метод Range.
ObjDocumet.Range(Start, End)
Параметр Start указывает на индекс
символа, с которого должен начаться диапазон, а параметр End
– на индекс последнего символа. Индексы символов соответствуют их порядковым
номерам в семействе Words, ссылку на которое
возвращает свойство Words объекта Document.
4. Выделение текста.
Формально объект Range связан
только с диапазоном текста. Этот диапазон может быть никак не связан с текущим
положением курсора или выделением. Однако диапазон, связанный с объектом Range, можно выделить в любой момент времени с помощью метода
Select.
ObjRange.Select
Пример: выделить второй абзац текущего документа.
ThisDocument.Paragraphs(2).Range.Select
5.Вырождение диапазона.
Для создания вырожденного диапазона можно использовать метод
Collapse.
objRange.Collapse [(Direction)]
Параметр Direction позволяет задать направление, в котором будет
выполнено вырождение. Если параметр имеет значение wdCollapseStart,
то вырождение выполняется в направлении начала диапазона, т.е. End:=Start. Если параметр имеет значение wdCollapseEnd, то Start:=End
Пример: снятия выделения в документе, курсор помещен в конец
выделеного диапазона.
Selection.Collapse wdCollapseEnd
6.Форматирование текста.
Объект Range чаще используется как
инструмент для форматирования выделенного текстового диапазона. Для этого, кроме
свойства объекта Font объект Range имеет
целый ряд свойств, позволяющих настроить параметры шрифта данного диапазона.
Свойство Bold – позволяет установить параметры
жирного начертания символов.
Если свойство имеет значение True, то начертание жирное , если False–
нежирное. Свойство также может возвращать значение wdUnderfined,
указывающее на смешанное начертание. Для установления стиля начертания можно
использовать следующие значения True,
False или wdToggle,
позволяющие переключить текущее написание шрифта.
objRange.Bold
[=Boolean]
Свойство CombineCharacters
Свойство позволяет сжать все символы выделенного диапазона. Если свойство имеет значение true, то выполняется сжатие.
Свойство FilTextWidth
Свойство позволяет указать ширину(в
текущих единицах измерения, в которых должен быть размещен данный диапазон).
Размер шрифта и ширину межсимвольного пространства Word подбирает автоматически
В приведенном ниже примере показан код, позволяющий уместить
текущее выделение на отрезке документа , ширина
которого эквивалентна пяти сантиметрам.
Selection.Range.FilTextWidth=CentimetersToPoints(5)
Свойство objRange.FormattedText
Свойство возвращает ссылку на объект типа Range ,
который ассоциируется с текстом в пределах данного диапазона objRange,
имеющего специфическое форматирование.
Cвойство
Italic –
позволяет установить параметры курсивного начертания символов.
Свойство ListFormat –
возвращает ссылку на объект типа Listformat, содержащего
нумерованные или маркированные списки, используемые в данном диапазоне.
Свойство ListParagraph
Свойство возвращает ссылку на объект типа ListParagraph,
содержащего нумерованные абзацы, имеющиеся в данном диапазоне.
Свойство Shading – возвращает ссылку на объект типа Shading, позволяющего указать цвет и
формат заливки для данного диапазона.
Свойство Revisions
Свойство возвращает ссылку на объект типа Revisions , который
связан с исправлениями , находящимися в данном диапазоне.
Свойство Showall[=Boolean]
Свойство позволяет указать на отображение непечатаемых
символов: табуляций, пробелов, символов абзаца, скрытого текста. True -символы
отображаются.
Свойство Style[=Style]
Свойство позволяет задать стиль для данного абзаца. Параметр
Stile(тип Stile) позволяет указать один
из существующих типов.
Свойство Underline[=Underline]
Свойство позволяет указать , как
должен быть подчеркнут текст в данном диапазоне. Параметр Underline( тип Underline) позволяет указать тип
линии подчеркивания
Метод InsertAfter вставляет
заданный текст в конце диапазона или выделения.
Синтаксис:
objRange.InsertAfter(Text)
Пример:
ActiveDocument.Range.InsertAfter
«пример»
Метод InsertParagraph
позволяет заменить заданный диапазон символов или выделения на новый абзац.
После его использования объект Range отождествляется
с новым абзацем.
Метод InsertSymbol
предназначен для вставки символа в заданное место диапазона или выделения. При
использовании данного метода содержимое диапазона или выделения удаляется. Если
этого не требуется, то перед вызовом этого метода следует использовать метод Collapse.
Синтаксис:
ObjRange.InsertSimbol (CharacterNumber, Font, Unicode)
Параметр CharacterNumber
определяет код символа. Параметр Font
определяет имя шрифта, используемого в качестве источника символов. Параметр Unicode если значение True,
то вставляется юникодовый символ, заданный аргументом
CharacterNumbe. В противном случае (по умолчанию False) будет вставлен символ ANSI, заданный аргументом CharacterNumbe.
Пример:
Selection.Collapse direction:=wdCollapseStart
Selection.InsertSymbol characterNumber:=171, Font:=»Symbol», unicode:=False «
Метод Paste позволяет
вставить содержимое буфера обмена в заданный диапазон или выделение. При его
использовании содержимое диапазона или выделения заменяется содержимым буфера
обмена. В случае если требуется вставить абзац из буфера обмена без замены
текущего абзаца, перед вызовом этого метода следует использовать метод Collapse.
7.Поиск и замена
Поиск и замена- это
стандартные инструменты любого приложенияMicrosoft Office .Как правило, команды
вызова соответствующих диалоговых окон располагаются в меню Правка(Edit). Инструменты поиска и
замены в VBAреализуются
с помощью объектов Find и Replacement.
Задачи по поиску и замене требуют своей реализации в VBA в
редких случаях, например при частом поиске и замене одного и того же сочетания , вложенном поиске или при контекстном поиске.
Стандартный инструмент поиска и замены работает следующим образом
: вы открываете окно диалога Поиск и замена(Find and Replace) , вводите в соответствующие поля необходимые значения , определяете дополнительные параметры поиска и нажимаете
кнопку Поиск(Find) или
Заменить(RepleceОднако
при частом поиске или замене одних и тех же значений для этой операции удобно
назначить кнопку на панели инструментов , комбинацию клавиш или разместить ее в
контекстном меню. Для реализации этой задачи нужно сначала создать
соответствующий макрос.
Для упрощения (ускорения) создания соответствующего
программного кода можно автоматизировать процесс написания макроса.
- Подготовить
документ к поиску - Выбрать
команду Сервис +Макрос +Начать запись - В
поле Имя макроса введите имя макроса , в поле
Описание добавьте описание макроса - Нажмите
кнопку Ok – откроется панель инструментов Остановит запись , содержащая кнопки управления записью макроса:
Остановить запись и Пауза. - Выберите
команду Правка +Найти
Укажите необходимые параметры
поиска и нажмите кнопку Найти
На панели инструментов Остановить запись нажмите кнопку Остановить
запись
Откройте окно редактирования Visual Basic for Application и
перейдите к записанному макросу.
Выполните ручное редактирование
макроса
В приведенном ниже примере
показан код, позволяющий заменить четыре идущих подряд символов пробела одним
символом табуляции
Пример:
Sub ReplaceSpace4()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text=space(4)
.Replacement.text=”^t”
.forward=true
.Wrap=WdfindWrap.wdfindall
End With
Selection.Find.Execute Replace:=wdReplaceall
End Sub
В ситуации ,
когда нужно найти фрагмент документа , а в нем еще один фрагмент – задача
становится неоднозначной. В этом случае можно создать два макроса , один из которых будет вызываться и другого.
В приведенном ниже примере
реализован одкратно вложенный поиск и замена , однако число вложений может быть и больше.
Переменная strText(тип string) содержит текст, вкотром осуществляется поиск .
Если заданный текст будет найден (метод Execute возвращает True), то осуществляется вызов процедуры
ReplaceSpace4,
показанной в предыдущем примере .
Пример:
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text= strText
If .Execute Then ReplaceSpace4
End With
8.Коллекция Tables.
Таблица представляет собой
упорядоченную структуру, предназначенную для хранения организованных в виде
строк и столбцов наборов данных. Элемент таблицы, находящийся на пересечении
строки и столбца, называется ячейкой.
Таблица Word
имеет такую же структуру, как и электронная таблица Excel
– элемент таблицы, находящийся на пересечении строки и столбца, называется
ячейкой и идентифицируется по имени столбца и номеру строки.
В VBA для доступа к таблицам
используется объект Tables, являющийся семейством
объектов Table, каждый из которых связан с конкретной
таблицей. Для получения ссылки на семейство Tables
можно использовать свойство Tables объекта Document.
Общее число таблиц, имеющихся в
документе, содержится в свойстве Count. Для
получения доступа к конкретной таблице можно использовать метод Item, который является методом по
умолчанию.
Синтаксис:
Set oblTable=objDocument.Tables.Item(Key)
Параметр Key,
является уникальным идентификатором каждой таблицы, хранящейся в объекте Tables.
Для создания новой таблицы
используется метод Add объекта Tables. Этот метод возвращает ссылку на созданную таблицу(Table).
objTables.Add
(Range, NumRows, NumColums)
Параметр Range
позволяет указать область документа, куда будет вставлена таблица. Если
параметр не пустой, т.е. имеется выделенная область, то она будет заменена
вставляемой таблицей.
Параметры NumRows,
NumColums позволяют указать на число строк и
столбцов таблицы.
Пример: создадим таблицу в выделенном
месте или там где стоит курсор.
Set instable = ActiveDocument.Tables.Add(Selection.Range, 4, 10)