Eu fiz para exportação de um programa, veja se ajuda:
procedure TfrmPrincipal.Word1Click(Sender: TObject);
var
WordApp, NewDoc, WordTable : OleVariant;
i : Integer;
s : string;
begin
if RichEdit1.Lines.Count > 1 then
begin
WordApp := CreateOleObject('Word.Application');
WordApp.Visible := True;
NewDoc := WordApp.Documents.Add;
WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, 1, 1);
WordTable.Cell(1,1).Range.Paragraphs.Alignment := wdAlignParagraphcenter;
WordTable.Cell(1,1).Range.Paragraphs.SpaceAfter := 0;
WordTable.Borders.OutsideLineStyle := wdLineStyleSingle;
s := '';
for i := 1 to RichEdit1.Lines.Count-1 do
begin
s := s + RichEdit1.Lines.Strings[i]+#13+#10;
end;
s := Copy(s,1,Length(s)-2);
WordApp.Selection.Font.Size := 8;
WordApp.Selection.Font.Name := 'Courier New';
WordTable.Cell(1, 1).Range.Text := s;
// Cleanup...
WordApp := Unassigned;
NewDoc := Unassigned;
WordTable := Unassigned;
end;
end;