求一使用delphi调用word的简单程序。

哪位好心的大哥大姐帮忙发个完整的程序到我的邮箱，谢谢了。
mingxiao1128@sina.com
需要能够打开，保存，关闭等基本功能。

我不太理解你想要做什麽，不过我看了你的问题后也做了一个把memo中的纪录导入到word档的例子，你可以参考一下：
单元接口引用 comobj单元。
procedure TForm1.Button3Click(Sender: TObject);

var Word : Variant;

begin

try

Word := CreateOLEObject('Word.Application')；

Word.Documents.Open(extractfilepath(Application.ExeName)+'\test.doc',false);

Word.Visible := false;

Word.ActiveDocument.Range(0, 0);

Word.ActiveDocument.Range.InsertAfter(memo1.Lines.Text);

Word.ActiveDocument.Range.InsertParagraphAfter;

Word.ActiveDocument.Range.Font.Name := 'MS Sans Serif';//砞竚?砰

Word.ActiveDocument.Range.Font.Size := 24;//砞竚?砰??掜

Word.Quit;

finally

Word.Quit;

end;

end;

uses comobj ;procedure tform1.button1click(sender: tobject);var vword,vdoc,vrange : variant ; stext,sreplace : string ; lreturn : boolean ;begin stext 'abcdefg' ; //原文字串 sreplace 'gfedcba' ; //新字串 vword createoleobject('word.application') ;//创建word线程 try //打开要操作的文件 vdoc vword.documents.open('c:\my documents\aaac.doc'); vdoc.select ; //选取中整个文档 vrange vdoc.range ; //替换范围 lreturn true ; while lreturn do begin //找到并替代成功则返回 true 共11个参数 lreturn vdoc.range.find.execute(stext,,,,,,,,,sreplace,true) ; end ; finally vdoc.close(true) ; //关闭文并保存 vword.quit(false) ; //退出word end ;end;

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息