Поиск-Find значений из Буфера Обмена.

[Nicko1622]

Поиск-Find значений из Буфера Обмена. Ввод переменной поиска
Находясь в Тотале - я копирую имя файла командой cm_CopyNamesToClip = W001610A.100
Ведётся лог файлов Log18.txt и надо найти в логе искомый файл. Как Это правильно сделать ?
Как ввести переменную в команду Find ?
Чтоб каждый раз искало то что в буф обмена находится.
[ .Text = (вставка из буфера) ]

Sub FindLog()
'
' FindLog Макрос
' Макрос записан 02.10.2013 Slinko&Ko

ChangeFileOpenDirectory "P:\AMIGO\LOG18\"
Documents.Open FileName:="amip18_i.log", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", _
Encoding:=1251
''
Selection.Find.ClearFormatting
With Selection.Find
'.Text = Clipboard.Text ' Вставляем W001610A.100 в текстовое поле содержимое буфера
.Text = Selection.Text ' Вставляем W001610A.100в текстовое поле содержимое буфера
вот тут переменная часто показывает =1 вместо имени файла напр:W001610A.100??? Ппочему так х-м-м :/ Selection.Text
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
'Windows("amip18_i.log").Activate

....

[shanemac51]

возможно так (без API)

Sub FindLog()
'
' FindLog Макрос
' Макрос записан 02.10.2013 Slinko&Ko

Dim s1

 Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
 Selection.Paste
 Selection.WholeStory
 Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
 Selection.Copy
s1 = Selection.Range.Text
Debug.Print s1; "="
Word.ActiveDocument.Close False

ChangeFileOpenDirectory "c:\rab\"
Documents.Open FileName:="00.txt", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatText
'Format:=wdOpenFormatAuto, XMLTransform:="", _
Encoding:=1251
Debug.Print s1
Selection.Find.ClearFormatting
With Selection.Find
'.Text = Clipboard.Text ' Вставляем W001610A.100 в текстовое поле содержимое буфера
.Text = s1 ' Вставляем W001610A.100в текстовое поле содержимое буфера
'вот тут переменная часто показывает =1
'вместо имени файла напр:W001610A.100??? Selection.Text
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
'Windows("amip18_i.log").Activate
End Sub

[Nicko1622]

Даа, так работает нормально ,стабильнее.
А как бы обойтись без создания (сателитного) пустышки файла .
Вставка-копировать.
Возможно Это можно обойти (победить) путьом преобразования форматов.
Напр. Переназначить его снова в строковой.
Какая команда это делает??