如何用Delphi控制word,excel模板中的对象(200分)

如何用Delphi控制word,excel模板中的对象，在word,excel中做好模板，在模板中有一些控件，
怎样在delphi程序中输入一些内容，然后转到word,excel中并打印.谢谢

首先在Uses部分应用comobj单元
procedure TFormMidPrint.BtnexcelClick(Sender: TObject);
var
xlapp:variant;
myfile,strcol,col1:string;
i,j,m,n : integer;
begin
Btnexcel.Enabled :=false;
if ADOQuerycj.IsEmpty then
begin
datamodulesys.myMessage ('没有可打印的数据!');
exit;
BtnExit.SetFocus;
end;
myfile:=ExtractFileDir(Application.ExeName)+'/成绩.xlt';
if fileexists(myfile)=false then
begin
datamodulesys.myMessage ('模版文件不存在,无法打印,请与系统管理员联系');
abort;
end;
try
xlapp := createoleobject('Excel.application');
xlapp.Workbooks.open( myfile);
xlapp.Workbooks[1].worksheets['sheet1'].cells[4,1]:='学号';
xlapp.Workbooks[1].worksheets['sheet1'].cells[4,2]:='姓名';
xlapp.Workbooks[1].worksheets['sheet1'].cells[4,3]:='性别';
xlapp.Workbooks[1].worksheets['sheet1'].cells[4,4]:='语文';
xlapp.Workbooks[1].worksheets['sheet1'].cells[4,5]:='数学';
xlapp.Workbooks[1].worksheets['sheet1'].cells[4,6]:='外语';
xlapp.Workbooks[1].worksheets['sheet1'].cells[4,7]:='物理';
xlapp.Workbooks[1].worksheets['sheet1'].cells[4,8]:='化学';
xlapp.Workbooks[1].worksheets['sheet1'].cells[4,9]:='政治';
ADOQuerycj.First;
for j:=1 to ADOQuerycj.RecordCountdo
begin
for i:=0 to 8do
xlapp.Workbooks[1].worksheets['sheet1'].cells[j+4,i+1]:=ADOQuerycj.Fields.AsString;
ADOQuerycj.Next ;
end;
for n:=1 to StringGrid1.RowCount -1do
begin
xlapp.Workbooks[1].worksheets['sheet1'].cells[n+j+3,1]:=trim(StringGrid1.Cells[0,n]);
strcol:=DataModulesys.stochar(1,n+j+3);
col1:=DataModulesys.stochar(3,n+j+3);
strcol:=strcol+':'+col1;
xlapp.Workbooks[1].worksheets['sheet1'].Range[strcol].Font.FontStyle := '加粗';
xlapp.Workbooks[1].worksheets['sheet1'].Range[strcol].Font.Size :=11;
xlapp.Workbooks[1].worksheets['sheet1'].Range[strcol].MergeCells := True;
end;
for m:=0 to StringGrid1.RowCount -1do
for n:=0 to StringGrid1.ColCount do
xlapp.Workbooks[1].worksheets['sheet1'].cells[m+j+4,n+4]:=trim(StringGrid1.Cells[n+1,m+1]);
xlapp.Workbooks[1].worksheets['sheet1'].cells[1,1]:=Ed_year.Text +'年度中考成绩';
xlapp.Workbooks[1].worksheets['sheet1'].cells[3,1]:=' 班级：';
xlapp.Workbooks[1].worksheets['sheet1'].cells[3,I]:='单位人)';
if CBclass.Text ='' then
xlapp.Workbooks[1].worksheets['sheet1'].cells[3,2]:='全年级'
else
xlapp.Workbooks[1].worksheets['sheet1'].cells[3,2]:=trim(CBclass.Text);
strcol:=DataModulesys.stochar(i,1);
strcol:='A1:'+strcol;
xlapp.Workbooks[1].worksheets['sheet1'].Range[strcol].MergeCells := True;
xlapp.Workbooks[1].worksheets['sheet1'].Range[strcol].Font.FontStyle := '加粗';
xlapp.Workbooks[1].worksheets['sheet1'].Range[strcol].Font.Size :=18;
strcol:=DataModulesys.stochar(i,j+7);
strcol:='A4:'+strcol;
xlapp.Workbooks[1].worksheets['sheet1'].Range[strcol].Borders.LineStyle:=xlContinuous;
xlapp.visible:=true;
//打开EXCEL文件
except
datamodulesys.myMessage ('Excel文件错误,无法打印,请与系统管理员联系');
xlapp.quit;
end;
end;

10. 操作Excel
转贴：呵呵。
这里的并不全，不过你可以参照vba的代码。
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelApp.Visible := True;
2) 更改 Excel 标题栏：
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelApp.WorkBooks.Add;
4) 打开已存在的工作簿：
ExcelApp.WorkBooks.Open( 'C:/Excel/Demo.xls' );
5) 设置第2个工作表为活动工作表：
ExcelApp.WorkSheets[2].Activate;

或
ExcelApp.WorksSheets[ 'Sheet2' ].Activate;
6) 给单元格赋值：
ExcelApp.Cells[1,4].Value := '第一行第四列';
7) 设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;
8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035;
// 1厘米
9) 在第8行之前插入分页符：
ExcelApp.WorkSheets[1].Rows.PageBreak := 1;
10) 在第8列之前删除分页符：
ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;
11) 指定边框线宽度：
ExcelApp.ActiveSheet.Range[ 'B34' ].Borders[2].Weight := 3;
1-左 2-右 3-顶 4-底 5-斜( / ) 6-斜( / )
12) 清除第一行第四列单元格公式：
ExcelApp.ActiveSheet.Cells[1,4].ClearContents;
13) 设置第一行字体属性：
ExcelApp.ActiveSheet.Rows[1].Font.Name := '隶书';
ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelApp.ActiveSheet.Rows[1].Font.Bold := True;
ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;
14) 进行页面设置：
a.页眉：
ExcelApp.ActiveSheet.PageSetup.CenterHeader := '报表演示';
b.页脚：
ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P页';
c.页眉到顶端边距2cm：
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.页脚到底端边距3cm：
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.顶边距2cm：
ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.底边距2cm：
15) 拷贝操作：
a.拷贝整个工作表：
ExcelApp.ActiveSheet.Used.Range.Copy;
b.拷贝指定区域：
ExcelApp.ActiveSheet.Range[ 'A1:E2' ].Copy;
c.从A1位置开始粘贴：
ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
d.从文件尾部开始粘贴：
ExcelApp.ActiveSheet.Range.PasteSpecial;
16) 插入一行或一列：
a. ExcelApp.ActiveSheet.Rows[2].Insert;
b. ExcelApp.ActiveSheet.Columns[1].Insert;
17) 删除一行或一列：
a. ExcelApp.ActiveSheet.Rows[2].Delete;
b. ExcelApp.ActiveSheet.Columns[1].Delete;
18) 打印预览工作表：
ExcelApp.ActiveSheet.PrintPreview;
19) 打印输出工作表：
ExcelApp.ActiveSheet.PrintOut;
20) 工作表保存：
if not ExcelApp.ActiveWorkBook.Saved then
ExcelApp.ActiveSheet.PrintPreview;
21) 工作表另存为：
ExcelApp.SaveAs( 'C:/Excel/Demo1.xls' );
22) 放弃存盘：
ExcelApp.ActiveWorkBook.Saved := True;
23) 关闭工作簿：
ExcelApp.WorkBooks.Close;
24) 退出 Excel：
ExcelApp.Quit;
(二) 使用Delphi 控件方法
在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。
1） 打开Excel
ExcelApplication1.Connect;
2) 显示当前窗口：
ExcelApplication1.Visible[0]:=True;
3) 更改 Excel 标题栏：
ExcelApplication1.Caption := '应用程序调用 Microsoft Excel';
4) 添加新工作簿：
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));

5) 添加新工作表：
var Temp_Worksheet: _WorkSheet;
begin
Temp_Worksheet:=ExcelWorkbook1.
WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;
ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
end;

6) 打开已存在的工作簿：
ExcelApplication1.Workbooks.Open (c:/a.xls
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)
7) 设置第2个工作表为活动工作表：
ExcelApplication1.WorkSheets[2].Activate;
或
ExcelApplication1.WorksSheets[ 'Sheet2' ].Activate;
8) 给单元格赋值：
ExcelApplication1.Cells[1,4].Value := '第一行第四列';
9) 设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth := 5;
10) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelApplication1.ActiveSheet.Rows[2].RowHeight := 1/0.035;
// 1厘米
11) 在第8行之前插入分页符：
ExcelApplication1.WorkSheets[1].Rows.PageBreak := 1;
12) 在第8列之前删除分页符：
ExcelApplication1.ActiveSheet.Columns[4].PageBreak := 0;
13) 指定边框线宽度：
ExcelApplication1.ActiveSheet.Range[ 'B34' ].Borders[2].Weight := 3;
1-左 2-右 3-顶 4-底 5-斜( / ) 6-斜( / )
14) 清除第一行第四列单元格公式：
ExcelApplication1.ActiveSheet.Cells[1,4].ClearContents;
15) 设置第一行字体属性：
ExcelApplication1.ActiveSheet.Rows[1].Font.Name := '隶书';
ExcelApplication1.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelApplication1.ActiveSheet.Rows[1].Font.Bold := True;
ExcelApplication1.ActiveSheet.Rows[1].Font.UnderLine := True;
16) 进行页面设置：
a.页眉：
ExcelApplication1.ActiveSheet.PageSetup.CenterHeader := '报表演示';
b.页脚：
ExcelApplication1.ActiveSheet.PageSetup.CenterFooter := '第&P页';
c.页眉到顶端边距2cm：
ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.页脚到底端边距3cm：
ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.顶边距2cm：
ExcelApplication1.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.底边距2cm：
ExcelApplication1.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
g.左边距2cm：
ExcelApplication1.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
h.右边距2cm：
ExcelApplication1.ActiveSheet.PageSetup.RightMargin := 2/0.035;
i.页面水平居中：
ExcelApplication1.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
j.页面垂直居中：
ExcelApplication1.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
k.打印单元格网线：
ExcelApplication1.ActiveSheet.PageSetup.PrintGridLines := True;
17) 拷贝操作：
a.拷贝整个工作表：
ExcelApplication1.ActiveSheet.Used.Range.Copy;
b.拷贝指定区域：
ExcelApplication1.ActiveSheet.Range[ 'A1:E2' ].Copy;
c.从A1位置开始粘贴：
ExcelApplication1.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
d.从文件尾部开始粘贴：
ExcelApplication1.ActiveSheet.Range.PasteSpecial;
18) 插入一行或一列：
a. ExcelApplication1.ActiveSheet.Rows[2].Insert;
b. ExcelApplication1.ActiveSheet.Columns[1].Insert;
19) 删除一行或一列：
a. ExcelApplication1.ActiveSheet.Rows[2].Delete;
b. ExcelApplication1.ActiveSheet.Columns[1].Delete;
20) 打印预览工作表：
ExcelApplication1.ActiveSheet.PrintPreview;
21) 打印输出工作表：
ExcelApplication1.ActiveSheet.PrintOut;
22) 工作表保存：
if not ExcelApplication1.ActiveWorkBook.Saved then
ExcelApplication1.ActiveSheet.PrintPreview;
23) 工作表另存为：
ExcelApplication1.SaveAs( 'C:/Excel/Demo1.xls' );
24) 放弃存盘：
ExcelApplication1.ActiveWorkBook.Saved := True;
25) 关闭工作簿：
ExcelApplication1.WorkBooks.Close;
26) 退出 Excel：
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
(三) 使用Delphi 控制Excle二维图
在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet
var asheet1,achart, range:variant;
1）选择当第一个工作薄第一个工作表
asheet1:=ExcelApplication1.Workbooks[1].Worksheets[1];
2）增加一个二维图
achart:=asheet1.chartobjects.add(100,100,200,200);
3）选择二维图的形态
achart.chart.charttype:=4;
4）给二维图赋值
series:=achart.chart.seriescollection;
range:=sheet1!r2c3:r3c9;
series.add(range,true);

5）加上二维图的标题
achart.Chart.HasTitle:=True;
achart.Chart.ChartTitle.Characters.Text:=’ Excle二维图’
6）改变二维图的标题字体大小
achart.Chart.ChartTitle.Font.size:=6;
7）给二维图加下标说明
achart.Chart.Axes(xlCategory, xlPrimary).HasTitle := True;
achart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text := '下标说明';
8）给二维图加左标说明
achart.Chart.Axes(xlValue, xlPrimary).HasTitle := True;
achart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text := '左标说明';
9）给二维图加右标说明
achart.Chart.Axes(xlValue, xlSecondary).HasTitle := True;
achart.Chart.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text := '右标说明';
10）改变二维图的显示区大小
achart.Chart.PlotArea.Left := 5;
achart.Chart.PlotArea.Width := 223;
achart.Chart.PlotArea.Height := 108;
11）给二维图坐标轴加上说明
achart.chart.seriescollection[1].NAME:='坐标轴说明';


118. 用Word 进行简繁转换
procedure TForm1.Button1Click(Sender: TObject);
var
do
c,applevariant;
s:string;
begin
do
c:=createOleobject('Word.Document');
app:=doc.application;
//app.visible:=true;
app.Selection.typetext(Memo1.text);
app.Selection.wholestory;
app.selection.select;
app.WordBasic.ToolsSCTCTranslate(0,0,0);//简转繁
// app.WordBasic.ToolsTCSCTranslate(0,0,0);//繁转简
s:=app.selection.text;
delete(s,length(s),1);
s:=stringreplace(s,#13,#13#10,[rfReplaceAll]);
memo1.text:=s;
do
c.close(0);
// app.quit
end;

简繁转换
Sub Macro1()
'
' Macro1 Macro
' 宏在 02-9-2 由 xxc 录制
'
Selection.WholeStory
Selection.TypeText Text:="BBBBBBBBB"
Selection.WholeStory
WordBasic.ToolsSCTCTranslate Direction:=0, Varients:=0, TranslateCommon:=0
Selection.Range.TCSCConverter WdTCSCConverterDirection:= _
wdTCSCConverterDirectionAuto
WordBasic.ToolsTCSCTranslate Direction:=0, Varients:=0, TranslateCommon:=0
End Sub

60. 操作WORD菜单
以下程序在Word 2000的“文件”菜单前添加“Custom”菜单，
并在其下添加“Import”菜单项。
请仔细研究，我已经调试通过。
uses ...,ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
WordApp,
myMenuBar,
newMenu,
ctrl1:OleVariant;
begin
WordApp :=CreateOleObject('Word.application');
WordApp.visible:=true;
myMenuBar :=WordApp.CommandBars.ActiveMenuBar;
newMenu := myMenuBar.Controls.Add(10,1,1,1,true);
newMenu.Caption := 'Custom';
ctrl1 := newMenu.CommandBar.Controls.Add(1,1,0,1,false);
ctrl1.Caption := 'Import';
ctrl1.TooltipText := 'Import';
ctrl1.Style := 2;
end;

多人接受答案了。