Буфер обмена

Программирование на Visual Basic for Applications
Ципихович Эндрю
Обычный пользователь
Обычный пользователь
 
Сообщения: 56
Зарегистрирован: 07.04.2010 (Ср) 17:19

Буфер обмена

Сообщение Ципихович Эндрю » 19.12.2010 (Вс) 20:52

в этой строке
sStr = oDataObj.GetText() 'присваиваем переменной значение из буфера
это последнее значение буфера, можно узнать сколько их там объектов в буфере???
как каждому объекту циклом или в массив присвоить переменную???
Также подскажите, можно ли осуществить перенос текста, таблицы в документе Ворд из одного места, в другое место можно осуществить через DataObject, подскажите пример этого
То есть избавиться от Selection.Copy раз и навсегда

alibek
Большой Человек
Большой Человек
 
Сообщения: 14109
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Re: Буфер обмена

Сообщение alibek » 20.12.2010 (Пн) 9:14

Что такое oDataObj?
Lasciate ogni speranza, voi ch'entrate.

Ципихович Эндрю
Обычный пользователь
Обычный пользователь
 
Сообщения: 56
Зарегистрирован: 07.04.2010 (Ср) 17:19

Re: Буфер обмена

Сообщение Ципихович Эндрю » 20.12.2010 (Пн) 9:41

наример из этого скрипта
Код: Выделить всё
Dim oDataObj As New DataObject, sStr as string
'Кладем текст в буфер
oDataObj.SetText "Новый текст"
oDataObj.PutInClipboard
'Берем данные из буфера
oDataObj.GetFromClipboard
sStr = oDataObj.GetText()'присваиваем переменной значение из буфера


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6

    TopList  
cron