Предыдущий оратор совершенно прав.
Пример для дельфи-ексель

http://www.delphikingdom.com/helloworld/excelsm.htm

Нет проблем по этому образцу сделать ворд и все что угодно,что сожет быть клиентом OLE.

unit Unit1;
{Я тут приболел и не мог написать подробно}

interface

uses
Windows, Variants, Forms, DB, ADODB,
Clipbrd, ComCtrls, DBCtrls, StdCtrls, Controls, Classes;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
DataSource1: TDataSource;
Button1: TButton;
Button2: TButton;
ADODataSet1BinField: TBlobField;
DBRichEdit1: TDBRichEdit; //Сязан с полем BinField типа Image
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var WA : variant;
begin
//Запись в таблицу выделенного фрагмента
wa:=getActiveOleObject('Word.Application');
ADODataSet1.edit;
ADODataSet1BinField.Value:=wa.ActiveDocument.range(wa.Selection.Start, wa.Selection.End).copy;
DBRichEdit1.PasteFromClipboard;
ADODataSet1.Post;
end;

procedure TForm1.Button2Click(Sender: TObject);
var WA : variant;
begin
//Вставка в Word
wa:=getActiveOleObject('Word.Application');
DBRichEdit1.CopyToClipboard;
wa.ActiveDocument.range(wa.Selection.Start, wa.Selection.End).Paste;
end;


end.