1.添加server页空间WordApplication
procedure TForm1.Button2Click(Sender: TObject);
var
Template, NewTemplate,DocType,DocVisible : OleVariant;
ItemIndex,Format: OleVariant;
begin
richedit.SelectAll;
richedit.CopyToClipboard;

Template := EmptyParam;
NewTemplate := EmptyParam;
DocType := EmptyParam;
DocVisible := False;

WordApp.Connect;
WordApp.Visible := False;
WordApp.Documents.Add(Template,NewTemplate,DocType,DocVisible);
ItemIndex := 1;
WordDoc.ConnectTo(WordApp.Documents.Item(ItemIndex));
WordDoc.Range.Paste;
Format := wdFormatDocument;
WordDoc.Disconnect;
end;

文章转自：http://www.aaiso.com/blog/more.asp?name=skyjhz