Метод

Описание

Сору

Копирует значение объекта в буфер обмена, например:

ActiveDocument.Sections(1).Range.Copy

Cut

Удаляет заданный фрагмент из документа и помещает его в буфер обмена

Delete

Если параметры не указаны, удаляет весь фрагмент. С параметрами удаляет заданное количество элементов текста (символов или слов). Отрицательное Count означает, что удаляются элементы перед фрагментом, положительное – первые элементы фрагмента, или, если фрагмент сжат, элементы после фрагмента. Так удаляются первые три слова из фрагмента myR:

myR.Delete Unit:= wdWord, Count:= 3

InsertAfter

Вставляет заданный текст в конец фрагмента

Insert Before

Вставляет заданный текст перед заданным фрагментом

Insert Paragraph

Заменяет фрагмент новым абзацем. Если вы не хотите заменять содержимое фрагмента, используйте предварительно метод Collapse. Приведенные инструкции сотрут все содержимое документа, заменив его пустым абзацем:

Set myR = ActiveDocument.Range

myR.lnsertParagraph

I nsert Paragraph After

Вставляет символ абзаца после фрагмента

Insert ParagraphBefore

Вставляет новый абзац перед фрагментом:

With ActiveDocument.Content

.InsertParagraphBefore

.InsertBefore “Введение"

End With

Move

Сжимает область в точку, стягивая ее в начало или конец, и затем перемещает точку вставки. Параметр Unit определяет единицы перемещения, a Count – количество этих единиц (по умолчанию одна). Положительные значения Count задают стягивание к концу и перемещение вперед, отрицательные – стягивание в начато и перемещение назад. Метод не перемещает текст, он меняет ссылку на фрагмент документа:

Set R1 = ActiveDocument.Paragraphs(l).Range

RI.Move Unit:=wdParagraph, Count:=2

R1.Select

В результате курсор будет находиться в начале третьего абзаца

Paste

Вставляет содержимое буфера обмена в заданный фрагмент. Если вы не хотите заменять содержимое фрагмента, используйте предварительно метод Collapse

Select

Выделяет фрагмент

Collapse

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

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

Set myR = ActiveDocument.Paragraphs(l).Range

myR.Collapse Direction:=wdCollapseEnd

myR.MoveEnd Unit:=wdCharacter, Count:=-1

Expand

Расширяет фрагмент до указанного элемента. Например, фрагмент из одного слова расширяется на весь абзац:

Set myR = ActiveDocument.Words(l)

myR.Expand Unit:=wdParagraph

Свойство

Описание

End

Позиция последнего символа фрагмента

Start

Позиция первого символа фрагмента

Font

Возвращает объект Font (шрифт). Например:

myR.Font.Name = “Arial"

Information

Информация о фрагменте. Значение зависит от аргумента. Список возможных значений аргумента приведен в статье "WdInformation Enumeration" справочной системы. Например, так мы можем проверить, что фрагмент является таблицей и узнать количество строк и столбцов в этой таблице:

If myR.lnformation(wdWithlnTable) Then

R = myR.lnformation(wdMaxNumberOfRows)

C = myR.lnformation(wdMaxNumberOfColumns)

End If

Text

Неформатированный текст фрагмента. Например:

myR.Text = “Новое значение"

Characters, Words,

Paragraphs,

Sections, Rows,

Columns, Tables

и т.д.

Коллекции элементов текста фрагмента

Find

Возвращает объект Find, который используется в операциях поиска и замены. Например, найдем в myR слово "VB" и выделим его полужирным шрифтом:

myR.Find.Execute FindText:= "VB", Forward:=True

If myR.Find.Found = True Then myR.Bold = True

Все вхождения строки "VB" в myR заменим на "VBA”:

myR.Find.Execute FindText:= "VB", _

ReplaceWith:= "VBA", _

Replace:=wdReplaceAII