Как получить в коде макроса текуще значение буфера обмена?

[Alexander N.]

Пишу макрос на VB, вот фрагмент кода:
Selection.Copy
Windows("EMA").Activate
Selection.Find.ClearFormatting
With Selection.Find
.Text = "4.998.041.445"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Как присвоить .Text не конкретную строку "4.998.041.445", а текст, который в данный момент содержится в буфере?
Помогите пожалуйста.

[hCORe]

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

.Text = Clipboard.GetText(vbCFText)

[tyomitch]

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

.Text = Clipboard.GetText(vbCFText)

Интуиция подсказывает мне, что там, где есть макросы, нет объекта Clipboard...

[hCORe]

И точно Тогда надо делать ActiveX DLL (на VB6), работающую с объектом Clipboard. И подключать ее через меню Project References редактора VBA.

[Alexander N.]

Все решилось написанием:
Dim iData As DataObject
Set iData = New DataObject
iData.GetFromClipboard
iText = iData.GetText
.Text = iText
и включением библиотеки Microsoft Forms 2 Object Library.

Спасибо всем.