Основы офисного программирования и язык VBA


Пример 1.8


Public Sub WorkWithSelection()

Dim myr As Range

Dim i As Byte

'Добавляем новый документ

Documents.Add

With ActiveDocument

'Добавляем 7 абзацев в текст созданного документа

For i = 1 To 7

.Paragraphs.Last.Range.Text = "Абзац " & i

.Paragraphs.Add

Next i

'Используется свойство Range

Set myr = .Paragraphs(1).Range

'Выделен первый абзац. Создаем объект Selection

myr.Select

'Действия с объектом Selection

'Стягивание в начало абзаца - точку вставки

Selection.MoveLeft

'Расширение на один абзац вправо, снова выделяя первый абзац

Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend

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

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

'Три абзаца с третьего по пятый выделяются курсивом

Selection.MoveDown Unit:=wdParagraph, Count:=3, Extend:=wdExtend

Selection.Font.Italic = True

End With

End Sub




Начало  Назад  Вперед



Книжный магазин