那位大侠知道导出Word控件，就是报表直接打印到word模板中的控件(100分)

那位大侠知道导出Word控件，就是报表直接打印到word模板中的控件

fastreport!
3.0以上版本

TWordDocument;
TWordApplication;
try
if Wordapplication.Windows =nil then
Wordapplication.Connect;
//启动Word
except
Closeword;
MessageDlg('无法启动word,请确认word是否已安装', mtError, [mbOk], 0);
Abort;
end;
Wordapplication.Visible := false;
//先关闭Word的显示
WordApplication.Caption := 'Word Printer';
{Create newdo
cument}
Template :=do
tPath;
NewTemplate := False;
try
WordApplication.Documents.Add(Template, NewTemplate);
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));
except
Closeword;
MessageDlg('打开模板'+DotPath+'失败，请检查模板文件是否存在', mtError, [mbOk], 0);
Abort;
end;
.....
what:=wdgotobookmark;
//以书签为定位对象
......
Wordapplication.Visible := True;
//打开Word的显示
Wordapplication.ActiveWindow.Activate;

我用过，不过里面的控制好像不是很好。

谢谢几位！
to apiao:
fastreport导出效果不是很好，另外存在中文乱码的问题
to yangxq:
我希望的效果是，在Word中维护模板，类似于xlreport，程序上不做调整，只调整word模板就可以打印不同报表（word文档）
to wusikai:
能否告知你用的是什么控件

Advanced.Export.Component

GridToWord

那只好用word建立模板，使用替换符来替换你要的修改的内容。
用delphi调用word的vba了，无他法！

是的,我就是这么实现的,只需要修改word模板就可以输出你想要的内容.

多人接受答案了。