这个Delphi源码主要实现创建一个Word文档,且不使用任何的第三方控件,运行效果截图所示。
实现创建Word文档的功能原来也是挺简单的,理解下面几行代码即可了,不过只是创建,不包括写入内容:
procedureTForm1.BitBtn1Click(Sender:TObject);
var
word:olevariant;
begin
word:=createoleobject('word.application');//ComObj单元
word.visible:=True;
word.documents.add;
en