Bestimmte Stringgridzeilen farbig in Worddokument einfüg.

[capo]

Also ich habs doch herausgefunden.

Delphi-Quellcode:

Function zeichenkette(link:string):String;
begin
  link:=copy(link,pos('Seine',link),length(link));
  link:=copy(link,1,pos('.',link)-1);
  result := link;
end;

Bekomme aber die Formatierung nicht hier herein (also in die Tabelle des Worddokuments):

Delphi-Quellcode:

 s1 := zeichenkette(StringGrid2.Cells[jGridCols - 1, igridRows - 1]);
          if S1 = 'Seine Aussprache ist nicht immer gleich gut zu verstehen. ' then
            WordApp.Selection.TypeText(Text := S1);
          WordApp.Selection.Font.Name := 'Times New Roman';
          WordApp.Selection.Font.Size := 12;
          WordApp.Selection.Font.Bold := true;

          WordTable.Cell(iGridRows, jGridCols).Range.Text := StringGrid2.Cells[jGridCols - 1, igridRows - 1];

[EDIT]HABE MEINE FRAGE SEHR SCHLECHT FORMULIERT, DESHALB HABE ICH EIN NEUES TEHMA ANGEFANGEN,