问题: 如何在OLEContainer中正常编辑Word文档 ( 积分: 100 )
分类: OLE/Automation
来自: Blue, 时间: 2000-03-05 10:09:01, ID: 194930
请问如何在OLEContainer中让用户能够正常的编辑Word文档, 使用在正常
的Word中所有的菜单和功能.
我在窗体中增加了一个MainMenu, 使得在OlEContainer中在位激活Word文档时, 在窗体中能够出现Word的菜单(不包括文件菜单), 结果令人失望的是
绝大部分菜单都不能使用(Disable了), 能使用的一选就告诉我执行了非法操
作!faint呀
虽然我知道可以用OLE Object或者D5中新增加的Server组件,但是豆油各种问题存在, 存在的问题以后我会陆续提出, 那位朋友能帮助偶解决这个问题的说?
来自: 学生, 时间: 2000-03-07 23:48:53, ID: 196169
关注。
来自: Blue, 时间: 2000-03-10 8:16:58, ID: 197331
有没有高人关注一下, 偶已经被OLE折磨的快不行的说.
来自: xiaohuaw, 时间: 2000-03-10 15:12:53, ID: 197536
可以动态的创建OLE对象，装入文件，然后调用AppShow,这样文件就可以完全在word控制下进行编辑了。
来自: river, 时间: 2000-03-16 12:01:21, ID: 200756
我用过olecontainer
通过调用olecontainer.Doverb(ovPrimary);激活olecontainer
word菜单和form菜单合并,除了(新建,打开,保存,另存)无效外,word菜单选项
都有效.olecontainer中的word文档可以正常编辑,与word完全一样.
你是不是这样的,如果这样不行,拿一定是别的问题,像:word的类库正常引入了吗?
来自: cust, 时间: 2000-04-21 21:10:56, ID: 227418
我想你可以用连接的方式调用WORD
不要用嵌入的方式,嵌入的方式太占内存了,所以,怪现象也多
来自: Chenlili, 时间: 2000-04-24 16:39:57, ID: 229846
希望以下代码对你有帮助（呵呵，我做毕业设计的时候还要把OLE连到数据库中呢！
还要能修改、编辑）
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: Exceptiondo
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;
{Opendo
cument}
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 slowsdo
wn 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类似的产品了。
来自: hsw, 时间: 2000-06-10 13:48:56, ID: 263904
好
来自: Jams, 时间: 2000-06-18 22:53:43, ID: 267532
>>
来自: Crab, 时间: 2000-07-27 21:11:49, ID: 296065
为什么不用 Word 的标签？ 这样更简单，且不会因找到重复的字符串而填错。
来自: wjiachun, 时间: 2000-10-14 11:17:51, ID: 365520
多人接受答案了。
得分大富翁: Chenlili-50,river-50,
