Napisałem prostą procedurkę wstawiającą z poziomu delphi tekst i tabele do Worda. Problem jest taki że jak już wstawię tabelę, to nie mogę nic napisać poza tabelą (chciałbym po prostu wpisać coś do tabeli a następnie przejść linię niżej i pisać dalej jakiś tekst już poza tabelą). Wie ktoś jak to zrobić? Mój kod znajduje się poniżej
procedure TForm1.Button1Click(Sender: TObject);
var
WordApplication, WordDocument: Variant;
begin
WordApplication := CreateOleObject('Word.Application') ;
WordDocument := WordApplication.Documents.Add;
WordApplication.Selection.TypeText('Hello world'+#10) ;
WordApplication.Selection.TypeText('Hello world') ;
WordApplication.Selection.Tables.Add(Wordapplication.Selection.Range,3,3);
WordApplication.Selection.Tables.Item(WordApplication.Selection.Tables.Count).Cell(1,1).Range.Text:= 'text1';
WordApplication.Selection.Tables.Item(WordApplication.Selection.Tables.Count).Cell(3,2).Range.Text:= 'text2';
//to się wpisuje w tabelę, a chcialbym, zeby bylo poza tabela
WordApplication.Selection.TypeText('Hello world') ;
WordDocument.SaveAs(FileName := 'C:\Doc.Doc', AddToRecentFiles := False) ;
WordApplication.Quit(False);
end;