一个很easy的问题,向大虾们讨教!!!!!(30分)

  • 主题发起人 主题发起人 鱼片干子
  • 开始时间 开始时间

鱼片干子

Unregistered / Unconfirmed
GUEST, unregistred user!
var
mwword:variant


begin
MsWord := CreateOleObject('Word.Basic');
end;

这段代码是什么作用阿??
是不是打开word????那么之后 msword会具有什么方法呢???
请指教!!!!!
 
不会自己查帮助吗
看不懂E文吗
帮助里面有!!!!
 
打开Word?不会吧!应该是使用OLE自动化对象!
 
建立word对象,才能进行对word文档的编程
 
建立一个word的OLE对象,符给MSWORD变量,坑定在后面程序中要引用,对WORD稳当进行编程
 
Delphi + Word = 数据库 + 公文处理

Delphi擅长做数据库类的MIS开发,但对于OA就有点力不从心了。不过随着
Microsoft的COM技术逐渐成熟,现在普通Windows应用已经可以和Office 97
无缝结合了,尤其是在Delphi 5中提供了一组Servers组件,更是简化了程序开发。
最近接触了一个用户的案例,用Delphi控制Word做一个合同管理程序。办公
人员先根据业务需要,写好合同的文字,但在用户名称、产品名称等变化的
位置填写指定的标记字符串,然后通过Delphi把数据库中的实际数据替换掉
Word中的文字,最后让Word打印出合同。
Delphi自带了一个简单的Word例题,但功能太简单。通过查找VBA的说明,再
对照Delphi的VCL,编写了如下代码,实现了基本的公文管理功能。

启动Word时用如下代码:
begin
try
Wordapplication.Connect;
except
MessageDlg('Word may not be installed', mtError, [mbOk], 0);
Abort;
end;
Wordapplication.Visible := True;
WordApplication.Caption := 'Delphi automation';
end;

关闭Word用如下代码。如果想保存Doc文件,请修改SaveChanges变量的内容:
var
SaveChanges, OriginalFormat, RouteDocument: OleVariant;
begin
SaveChanges := WdDoNotSaveChanges;
OriginalFormat := UnAssigned;
RouteDocument := UnAssigned;
try
WordApplication.Quit(SaveChanges, OriginalFormat, RouteDocument);
WordApplication.Disconnect;
except
on E: Exception do
begin
Showmessage(E.Message);
WordApplication.Disconnect;
end;
end;
end;

让Word打开一个指定的文件,需要先放置OpenDialog,然后调用
WordApplication.Documents.Open:
var
ItemIndex :OleVariant;
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument, WritePasswordTemplate, Format: OleVariant;
begin
if not dlgOpen.Execute then
Exit;

{Open document}
FileName := dlgOpen.FileName;
ConfirmConversions := False;
ReadOnly := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument := '';
WritePasswordTemplate := '';
Format := wdOpenFormatDocument;

WordApplication.Documents.Open( FileName, ConfirmConversions,
ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
Revert, WritePasswordDocument, WritePasswordTemplate, Format );

{Assign WordDocument component}
ItemIndex := 1;
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));

{Turn Spell checking of because it takes a long time if enabled and slows down Winword}
WordApplication.Options.CheckSpellingAsYouType := False;
WordApplication.Options.CheckGrammarAsYouType := False;
end;

让Word替换标记字符串要使用WordDocument.Range.Find.Execute,这里用Delphi替
换了<#Name>:
var
FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike,
MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace: OleVariant;
begin
FindText := '<#Name>';
MatchCase := False;
MatchWholeWord := True;
MatchWildcards := False;
MatchSoundsLike := False;
MatchAllWordForms := False;
Forward := True;
Wrap := wdFindContinue;
Format := False;
ReplaceWith := 'Delphi';
Replace := True;

WordDocument.Range.Find.Execute( FindText, MatchCase, MatchWholeWord,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward,
Wrap, Format, ReplaceWith, Replace );

end;

上面这4段代码完成了公文管理的基本功能,再把它和数据库结合起来,就可以
开发一个与Lotus Notes类似的产品了。
 
sorry, 只顾了贴代码, 之后才注意到跑题了! :-)
起始M$的MSDN中有这些方面的帮助, 不过是VB的 :-(
还有就是在M$的OFFICE中也有, 安装帮助时选择
安装M$ WORD FOR VB就行了!
 
and, 在delphi 5中增加了Servers控件组, 操作office类的OLE对象
更为便捷, 推荐代替OLE使用.
 
用下面这一句可以把word显示出来,其他的自己去查资料吧;)
msword.appshow;
 
MsWord := CreateOleObject('Word.Basic');
其中Word.basic是拥有接口的类的类名(可以在注册表找到)返回是一个调度接口,
根据得到的这个调度接口你就可以调用该接口下的相应方法。
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
I
回复
0
查看
649
import
I
I
回复
0
查看
462
import
I
后退
顶部