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


Пример 1.7


Public Sub WorkWithRange()

Dim myr As Range, myr1 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

'Выделен первый абзац

myr.Select

'Новый объект myr1 задает пустой объект - позицию курсора

'В правой части вызывается метод Range

Set myr1 = ActiveDocument.Range(Start:=myr.Start, End:=myr.Start)

myr1.Select

'Теперь объект myr1 задает единственный символ -первый символ текста

'Здеесь использован метод SetRange

myr1.SetRange Start:=myr1.Start, End:=myr1.End + 1

myr1.Select

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

myr1.SetRange Start:=.Paragraphs(3).Range.Start, End:=.Paragraphs(5).Range.End

myr1.Font.Italic = True

myr1.Select

End With

End Sub




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



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