delphi中控制word execl(100分)

  • 主题发起人 主题发起人 sbd
  • 开始时间 开始时间
S

sbd

Unregistered / Unconfirmed
GUEST, unregistred user!
想在程序中控制word execl,看了一下可以用ole 还有servers控件,他们有什么区别呢?
各有什么优劣呢?请高人指点!
 
OLE是一种能用接口,SERVERS是专用控制OFFICE的,两种都可以,用SERVER好一点
 
server控件是通过com接口完成对word,excel的控制。可以实现后期绑定。 comMS新标准
 
请menxin大侠指教:servers控件的应怎样使用?请举例说明
 
servers控件有非常强大和复杂的功能,要想全面列举不可能,我只给你一个最简单的例子
其余的你应该自己在实际应用中慢慢会掌握的。

下面两个按钮一个打开WORD文档,插入一些文字,别一个将该文档存盘并关闭这个WORD实例


抌procedure TForm1.Button1Click(Sender: TObject);
begin
WordApplication1.Connect;
WordApplication1.Visible:=true;
WordDocument1.ConnectTo(WordApplication1.Documents.Add(EmptyParam,EmptyParam));
WordDocument1.Range.Text:='asdfasdfasdfa';
end;

procedure TForm1.Button2Click(Sender: TObject);
var PARA:OleVariant;
begin
PARA:='c:/1.doc';
WordDocument1.SaveAs(para);
WordDocument1.Disconnect;
WordDocument1.Close;
WordApplication1.Quit;
WordApplication1.Disconnect;
end;
 
you can see some Demo at /../Demo
 
好象還可以用Access 的報表???
 
uses 里加入word97
procedure openwordfile(Myword:TWordApplication;Myfile:string);//打开Word文档函数。
//Myword:文档工程名称;Myfile:word文件名。
var
ItemIndex :OleVariant;
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument, WritePasswordTemplate, Format,
MatchCase,MatchWholeWord,find1,rep1,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward,
Wrap, Replace : OleVariant;
begin
Myword.Visible := false;
FileName :=MyFile;
confirmConversions := False;
ReadOnly := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument := '';
WritePasswordTemplate := '';
Format := wdOpenFormatDocument;
myWord.Documents.Open( FileName, ConfirmConversions,
readOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
Revert, WritePasswordDocument, WritePasswordTemplate, Format );
myword.Visible:=true;
end;
//打开Word文档函数(结束)
 
关注、学习
 
谢谢高手的帖子,俺也正在编此类程序:-00
 
后退
顶部