Здравствуйте Hacker_Delphi, Вы писали:

HD>Нужно не просто дергать текст из Ворда, а дергать его через Words.Count, Words.Item(), что-ли...
HD>там в хелпе по Ворд-Басику есть такое... и проверять, если первый символ слова < #32 — все, приплыли (пропускаем слово). вот и все...

Объясни подробнее про первый символ слова, а то у меня такой кодьнормально работает безо всяких проверок:

procedure TForm1.Button3Click(Sender: TObject);
var
  Word: Variant;
  s: string;
begin
  Word := CreateOleObject( 'Word.Application.9' );
  Word.Documents.Open( 'C:\Projects\tst\excel\Баги.doc' );
  Word.Visible := true;
  s := Word.Documents.Item(1).Words.Item(1);
  Edit1.Text := Word.Documents.Item(1).Words.Item(1);
  ShowMessage( s );
end;

И в эдитбоксе, и в переменной s лежит "Выбо123р" — тоже, что и в документе вордовском