Из RichEdit в Excel

[almazenok]

Здравствуйте!Подскажите пожалйсту как скопировать текст из Richedit в Excel! мне бы хотя бы "взять" определенное слово ,а в excel записать я сам смогу! спасибо заранее!!!

p.s. я глупый,ленивый, но старающийся программист)))

[Stilet]

"взять" определенное слово

А точнее? Какое слово?

[Noor]

Копируй слово в буфер и потом вставляй куда хочешь.

[almazenok]

да любое слово,символ,цифру без разницы!
вот как копировать в буфер?))

[Stilet]

Хм... Раз так стоит задача...
Покажи как ты

а в excel записать я сам смогу!

что-нибудь.

[almazenok]

вот моя мазайка одним словом!
1) запись в excel

begin


  BeginCol := 1;
  BeginRow := 5;


  RowCount := 1;
  ColCount := 5;


  ExcelApp := CreateOleObject(
'Excel.Application'
);


  ExcelApp.Application.EnableEvents := false;


  Workbook := ExcelApp.WorkBooks.Add;



  Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];


  Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow  + RowCount - 1, BeginCol +
ColCount - 1];

  Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];


  Range.Value :=  SearchTextAndSelect( Richedit1, 'включение' );


  ExcelApp.Visible := true;
end;

2)
здесь открытие файла rtf:

procedure TForm1.Button1Click(Sender: TObject);
begin
 RichEdit1.Perform(EM_EXLIMITTEXT,0,16777216);
 form1.RichEdit1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'test.rtf');
end;

3)эта функция делает просто поиск

    function SearchTextAndSelect( RichEdit: TRichEdit; SearchText: string ): boolean;
var
  StartPos, EndPos, Pos: integer;
begin
   StartPos := 0;
   with RichEdit do
   begin
      EndPos := Length( Text );
      Lines.BeginUpdate;
      while FindText( SearchText, StartPos, EndPos, [stMatchCase] ) <> -1 do
      begin
         EndPos := Length( Text ) - StartPos;
         Pos := FindText( SearchText, StartPos, Endpos, [stMatchCase] );
         Inc( StartPos, Length( SearchText ) );
         SetFocus;
         SelStart := Pos;
         SelLength := Length( SearchText );
         Break;
      end;
      Lines.EndUpdate;
   end;

[Stilet]

Ну вроде норм. После SearchTextAndSelectвыделенный текст сидит в свойстве SelText, вот из него и записыввай в Экзель

  
if SearchTextAndSelect( Richedit1, 'включение' ) then
 Range.Value :=  Richedit1.SelText;

[almazenok]

не помогает! может проблема в самой функции поиска?она просто выделяет текст и + выделяет только цифры почему то!(