我关于简单的通过DELPHI操作WORD文件的代码(100分)

代码要求：
新建Word文档；
插入一个word文件或者一个word文件的数据流；
插入图片、文字；
能够设置word的左边框、右边框、页眉等等；
能够调用word打开该文档编辑；
能够在程序内显示（不用编辑），但是要求底色不是难看的灰色。
送分：
根据答案，达到要求送100分，否则不送，我只有500分，因此分数不高，抱歉，分数送完为止，谢谢大家。

这个问题我用300分都没人愿意答呢。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1955367

我晕，这样，谁能够解决我的问题的，再加一条，我就送500分！！全部家当。分数我另开新贴补。
加一条：
插入AutoCAD图形文件和Excel文件。

你跟我的需求一样，我们等高手出现吧~~[^]

//取得Word 表格中的数据
procedure getWordCellStr;
var WordApp: TWordApplication;
WordDoc: TWordDocument;
DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,
PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat: OleVariant;
i,iRow,iCol:integer;
myCell:Cell;
myRow:Row;
begin
memo1.Lines.Clear ;

// ===== 创建对象 =====
if not Assigned(WordApp) then
begin
WordApp:= TWordApplication.Create(nil);
WordApp.Visible := false;
end;
if not Assigned(WordDoc) then
WordDoc:= TWordDocument.Create(nil);
try
DocInx:=1;
oFileName := 'd:/test.doc';
oReadOnly:=true;
CfCversions := EmptyParam;
AddToRctFiles:= EmptyParam;
PswDocument:= EmptyParam;
PswTemplate:= EmptyParam;
oRevert:= EmptyParam;
WPswDocument:= EmptyParam;
WPswTemplate:= EmptyParam;
oFormat:= EmptyParam;
// ===== 打开文件 =====
WordApp.Documents.open(oFileName,CfCversions,oReadOnly,AddToRctFiles,
PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat);
// ===== 关联文件 =====
WordDoc.ConnectTo(WordApp.Documents.Item(DocInx));

//方法(1)==> 规则表
For i := 1 To WordDoc.Tables.Count do //第 i 个表
begin //第 iRow 行
For iRow := 1 To WordDoc.Tables.Item(i).Rows.Count do
begin //第 iCol列
For icol := 1 To WordDoc.Tables.Item(i).Columns.Count do
begin
myCell:=WordDoc.Tables.Item(i).Cell(iRow,icol);
memo1.Lines.add(myCell.Range.Text);
end;
end;
end;

//方法(2)==> 不规则表:只有横向合并时
For i := 1 To WordDoc.Tables.Count do //第 i 个表
begin
For iRow := 1 To WordDoc.Tables.Item(i).Rows.Count do
begin
myRow:=WordDoc.Tables.Item(i).Rows.Item(iRow);//第 iRow 行
For icol := 1 To myRow.Cells.Count do //第 iCol列
begin
myCell:= myRow.Cells.Item(iCol) ;
memo1.Lines.add(myCell.Range.Text);
end;
end;
end;

//方法(3)==> 不规则:横向、纵向合并时； 任何表格
For i := 1 To WordDoc.Tables.Count do //第 i 个表
begin //第 j 个Cell
for j := 1 To WordDoc.Tables.Item(i).Range.Cells.Count do
begin
myCell := WordDoc.Tables.Item(i).Range.Cells.Item(j);
memo1.Lines.add(myCell.Range.Text);
end;
end;

finally
if Assigned(WordDoc) then // ===== 关闭文件 =====
begin
WordDoc.Close;
WordDoc.Disconnect;
WordDoc.Destroy;
WordDoc := nil;
end;
if Assigned(WordApp) then // ===== 关闭Word =====
begin
WordApp.Quit;
WordApp.Disconnect;
WordApp.Destroy;
WordApp := nil;
end;
end;
end;

从来没用过autocad,我从资料上看到，autoCAD也可以用creataoleobject打开，
既然如此，用creataoleobject打开autoCAD的图形文件，通过剪切板传到
word中不就行了吗

我只有‘能够调用word打开该文档编辑；’做不到，其他都可以

没有答案,但是感谢eastnet