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


Пример 1.9


Sub WorkWithTwoReg()

'Переключение между двумя областями выделения документа

'Создание двух областей

Dim myRange1 As Range

Dim myRange2 As Range

Dim i As Byte

Dim Answer As Variant ' Выбор пользователя

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

Documents.Add

With ActiveDocument

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

For i = 1 To 7

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

.Paragraphs.Add

Next i

Set myRange1 = .Range(Start:=.Paragraphs(2).Range.Start, _

End:=.Paragraphs(3).Range.End)

Set myRange2 = .Range(Start:=.Paragraphs(6).Range.Start, _

End:=.Paragraphs(7).Range.End)

Answer = InputBox(prompt:=" Выберите область выделения (1/2)", _

Default:=1)

If Answer = 1 Then

myRange1.Select

'Макрос ItInSel работает с первой выделенной областью

ItInSel

Else

myRange2.Select

'Макрос ItInSel работает со второй выделенной областью

ItInSel

End If

End With

End Sub




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



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