请教各位朋友,如何将从数据库中读出的记录写入WORD文档,请提供源码,谢谢!!!
解决方案 »
- 问一下,EDIT字后面背景怎么弄成透明的,
- 关于这段你c++转pascal的截屏代码的问题
- 如何在delphi中实现DB2的事务回滚???请各位高手帮忙啊!!!救命啊!!大侠们!!
- 高手!!!!!!!!!管道运行dos程序的问题。
- 在线请教:怎么在程序里面实现对word的打印设置(如打印页码范围,按纸型缩放的选择等)?
- 同志们,谁有凭证输入控件???
- 各位帮忙看看,又那错了?
- 为什么有的类可以直接obj:TClass,而有的要obj:=TClass.create才行?
- 吸取了惨痛教训,散分
- 关于动态生成组件的问题
- 如何做到:IE下载完特定的文件后自动调用相应程序打开
- 调查——这样的水平在北京能找到什么样的工作?
源码海了,在CSDN找一下吧。
var MSWord: Variant;
begin
MSWord := CreateOLEObject('Word.Application');//连接Word
MSWord.Documents.Open(FileName:='d:\test.doc', ReadOnly:=True);//打开外部Word文档
MSWord.Visible := 1;//是否显示文件编辑
MSWord.ActiveDocument.Range(Start:=0, End:=0);//开始改变的启止位置
MSWord.ActiveDocument.Range.InsertAfter(Text:='Title');//在Word中增加字符'Title'
MSWord.ActiveDocument.Range.InsertParagraphAfter;
MSWord.ActiveDocument.Range.Font.Name := 'Arial';//字体名称
MSWord.ActiveDocument.Range.Font.Size := 24;//字体大小
end;