1. Активизируйте приложение Word и сохраните документ.
2. Перейдите в редактор VBA и создайте форму (рис. 58).
3. Пропишите при инициализации окна в поле TextBox1 текстовую информацию и проинициализируйте глобальные переменные:
PublicNewData As DataObject
PublicNumClick As Integer
Private Sub UserForm_Initialize()
SetNewData =New DataObject 'инициализация объекта
NumClick = 0
'число щелчков
TextBox1.Text = "Пример переноса данных с помощью
DataObject»
End Sub
4. При последовательных щелчках по командной кнопке будут происходить последовательно действия, описанные в программе:
Private Sub CommandButton1_Click()
Select CaseNumClick
Case 0
NewData.SetText TextBox1.Text
Label1.CaptioN= «Из первого поля в DataObject»
Case 1
NewData.PutInClipboard
Label1.CaptioN= «Из DataObject в буфер обмена»
Case 2
TextBox2.Paste
Label1.CaptioN= «Из буфера обмена во второе поле»
End Select
NumClick =NumClick + 1
IfNumClick = 3 ThenNumClick = 0
End Sub
5. Откомпилируйте программу и запустите форму на выполнение.
Примечание. Перенос информации из одного поля в другое можно осуществить и через буфер обмена, минуя DataObject. Для копирования данных из поля ввода в буфер обмена можно использовать метод Сору.
