Как выделить весь текст word vba

Здравствуйте дорогие читатели блога 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«. В остальном коде я думаю, разобраться несложно, если есть вопросы, задавайте, буду рад ответить.

In this article I will explain how you can use VBA for word to select text.

–

Select Entire Document:

Using the code snippet below you can select the entire word document:

Selection.WholeStory


Result:

–

Select The Current Line:

Using the code below you can select the current line:

Sub main()
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
End Sub


 Assume the cursor is somewhere in the middle of the line:

The first line moves the cursor to the start of the line:

Selection.HomeKey Unit:=wdLine


The next line move the cursor to the end of the line while selecting the text:

Selection.EndKey Unit:=wdLine, Extend:=wdExtend


Result:

–

Select to End of Line:

The code below will only select till the end of the line:

Selection.EndKey Unit:=wdLine, Extend:=wdExtend


Result:

–

Select to Start of Line:

The code below will select text up to the start of the line:

Selection.HomeKey Unit:=wdLine, Extend:=wdExtend


Result:

–

Select Certain Number of Characters:

Lets say we need to select only a certain number of characters from the current location of the cursor. The code below will select 5 characters to the right:

Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend


Result:

The code below will select 10 characters to the left:

Selection.MoveLeft Unit:=wdCharacter, Count:=10, Extend:=wdExtend


Result:

–

Select Text up to a Certain Character:

You might want to select text until you reach a certain character. For example a space character, “*”, “/”, …

The code below selects text until a space character is reached:

Sub test()
Dim flag As Boolean
flag = True
While flag = True
    Selection.MoveRight Unit:=wdCharacter, Count:=1, _
    Extend:=wdExtend
    'checks the last character to see if its a space
    If Strings.Right(Selection.Range.Text, 1) = " " Then
        'if it was a space the loop flag will end
        flag = False
    End If
Wend
End Sub


Result:

The line below selects one additional character to the right:

Selection.MoveRight Unit:=wdCharacter, Count:=1, _
Extend:=wdExtend


 The if statement below checks to see if the last character selected is a space character:

If Strings.Right(Selection.Range.Text, 1) = " " Then
...
End If


For more information about the Strings.Right function please see the article below. Although the article was written for Excel, it can be extended to VBA for Word:

• Excel VBA String Proccessing and Manipulation

See also:

• Word VBA, Move Cursor to Start of Document
• Word VBA, Move Cursor to End of Document
• Word VBA, Move Cursor to End of Line
• Word VBA, Move Cursor to Start of Line
• Excel VBA String Processing and Manipulation
• Word VBA Bookmarks
• Word VBA, Read All Lines

If you need assistance with your code, or you are looking for a VBA programmer to hire feel free to contact me. Also please visit my website  www.software-solutions-online.com

11.1. Объект Selection

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

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

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

Выделения можно создавать и программно, но эту методику практически никогда не используют на практике. Например, код листинга 11.1 выделяет седьмое слово в документе и форматирует его курсивом:

ActiveDocument.Words.Item(7).Select
Selection.Font.Italic = True

Предположим, мы используем такую конструкцию в шаблоне для автоматического форматирования текста. Если мы правильно рассчитаем номер слова, которое нужно отформатировать (или отредактировать, вставить в документ и т.д.) — то все будет работать правильно. Но стоит нам отредактировать шаблон — даже совсем немного, но так, что количество слов в нем изменится, наш макрос будет работать неправильно.

Объект Selection обычно используют без объявления объектной переменной. Например, для вставки в выделенную позицию документа текста «Привет» достаточно конструкции листинга 11.2.

Selection.Text = "Привет"

Минус использования 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.4. Information — подробности о выделении

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

11.3.5. Range — переход от Selection к Range

Это свойство позволяет получить объект Range, соответствующий выделению.

Например, этим свойством можно воспользоваться так, как показано в листинге 11.4.

Dim obj_Range As Range
Set obj_Range = Selection.Range

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 ("Выполнено!")

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