Delphi中的数据添加到Word模板的相应位置--转

就跟将数据导入Excel一样，在运行Delphi程序时，点击预览按钮后，会打开一Word模板,且将数据填入此Word模板相应的位置，此Word模板为一报表形式的表格 --------------------------------------------------------------- 方法一：用Word的查找替换填写数据。 --------------------------------------------------------------- 方法二： 数据填入相应位置,建议不要使用查找替换的方法,那样比较慢.word里面有个书签的功能,在需要填入数据的地方设置书签,然后代码中处理时将数据写入相应的书签即可,方便很多： var Word_Handle, Doc_Handle: OleVariant; BookMark_Name: string; begin try Word_Handle := CreateOleObject('Word.Application'); except end; Word_Handle.Visible := True; Doc_Handle := Word_Handle.Documents.Add(Template := 'E:\WordApp\Word\1.dot', NewTemplate := False); try BookMark_Name := 'book1'; Doc_Handle.Application.Selection.goto(What := wdGoToBookmark, Name := BookMark_Name); Doc_Handle.Application.Selection.Text := '这个是替换book1的结果'; BookMark_Name := 'book2'; Doc_Handle.Application.Selection.goto(What := wdGoToBookmark, Name := BookMark_Name); Doc_Handle.Application.Selection.Text := '这个是替换book2的结果'; except end; Doc_Handle.SaveAs(FileName := '1.doc', FileFormat := wdFormatDocument, AddToRecentFiles := False); end; 在1.dot里面加入两个书签book1和book2即可