Запуск поиска в Word

[ligament]

Здравствуйте. Прошу прощения, если такая тема уже была, но я не смог ее найти.
Желательно получить следующее: из delphi запустить файл ворд, и запустить поиск (тот, который обычно запускается ctrl+f) с заданной строкой.
Приемлемый вариант: найти и выделить заданную строку другим способом.
Вот как я пытался решить эту проблему:

var
...
WordApp: TWordApplication;
WordDoc: TWordDocument;
s,searchstr:string
a,b:OleVariant;
begin
//открытие файла
...
//поиск
s:=worddoc.range.Text;
showmessage(s);
a:=pos(searchstr,s);
b:=a+length(searchstr)-1;
wordapp.Selection.SetRange(a,b);
end;

Все работает, но не правильно. В файле есть таблица. как я понял, при присвоении значения s, из файла считывается много неотображаемых символов, а при выделении они не учитываются; в результате выделяется участок текста ПОСЛЕ нужного.

[Казанский]

Запишите макрорекордером в Ворде действие "ctrl+f", переведите с VBA на delphi.
Пример такого перевода: http://programmersforum.ru/showthread.php?p=826600