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,