如何用delphi实现对word剪切板的操纵！

Question

请看，小例一个
var
    Word:Variant;
begin
    Word:=CreateOLeObject('Word.application');
    Word.visible:=True;
    Word.documents.add;    Richedit1.SelAttributes.Color := clRed;
    Richedit1.SelAttributes.Style := [fsBold];
    Richedit1.lines.Add('公式名称：编辑');
    Richedit1.SelStart:=14+Length(trim('公式名称：编辑'));
    Richedit1.Tag:=Richedit1.SelStart-1;
    Richedit1.SelLength:=4;
    Richedit1.SelectAll;
    Richedit1.CopyToClipboard;
    Word.Selection.Paste;
end;