Буфер обмена

[Ципихович Эндрю]

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

[alibek]

Что такое oDataObj?

[Ципихович Эндрю]

наример из этого скрипта

Код: Выделить всё

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