Ура получилось! Подключил Microsoft Forms 2 Object Library, и с его помощью реализовал вставку из Clipboard в поисковую форму:
Sub Test()
Selection.MoveLeft Unit:=wdWord, Count:=3, Extend:=wdExtend
Selection.Copy
Dim iData As DataObject
Set iData = New DataObject
iData.GetFromClipboard
iText = iData.GetText
Selection.Find.ClearFormatting
With Selection.Find
.Text = iText
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub
|