一个timage组件，名称为image1；
一个tbutton组件，名称为button1；
procedure tfrm_travilrdxl.entertext;//自定义函数
var
s: selection;
myformat : word;
// bitmap : tbitmap;
adata :cardinal;
apalette : hpalette;
begin
s := wordapplication1.selection;
wordfont1.connectto(s.font);
s.typetext('甘肃省兰州市旅游管理局热点线路统计表');
//加回车键,形成第一个段落：doc.paragraphs.item(1)
s.typeparagraph;
//输入文字
s.typetext(txt_datefrom.text+'至'+txt_dateto.text);
//加回车键,形成第二个段落：doc.paragraphs.item(2)
s.typeparagraph;
