Здравствуйте Сергей Лисовский, Вы писали:
СЛ>Здравствуйте 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р" — тоже, что и в документе вордовском
Может быть, этот глюк проявляется тока из Ворд Басик, но если у тебя в документе есть таблицы, там будет куча всяких левых символов.
Кстати, нужно еще добавить отлов символа #10 — это перенос строки и символа #13 — это конец абзаца.
A проверка позволяет все ети глюки отловить. Rстати, не забывай между словами пробелы вклеивать
Если при компиляции и исполнении вашей программы не происходит ни одной ошибки — это ошибка компилятора :)))
