delphi 操作word求助

2010-12-28 11:44:56 254 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

delphi操作word delphi操作word一、Delphi程序启动Word采用CreateOleObjects的方法来启动Word，调用VBA代码，具体实现过程为：首先使用GetActiveOleObject(Word.Application)判断当前内存中是否存在Word程序，如果存在，则直接连接，如果没有Word程序，则使用CreateOleObject(Word.Application)启动Wor 阅读详情

在delphi中操作word，有如下需求：
1、读取任意doc文档
2、可以选择显示或者不显示word的操作菜单

已经做了一下尝试：
1、使用TOleContainer对象，如下来读取：
try
MyWordOLE.CreateObjectFromFile(sFile,false);
MyWordOLE.Run;
if MyWordOLE.State = osRunning then
MyWordOLE.DoVerb(ovPrimary);

except
on E: Exception do
begin
Result := False;
Application.MessageBox(Pchar('打开文档 " ' + sFile + ' "失败: ' + E.Message), '系统提示: ', 48);
Exit;
end;
end;
MyWordOLE.DoVerb(ovPrimary);这里如果设置为ovHide，就不会显示word的菜单，但是那样word内容中不会出现滚动条，这样导致不能很好的显示内容，google了一下说是OleContainer自身的bug
2、尝试使用DSOFramer控件，但是在delphi注册后，只要在窗体上放置控件，运行就出现invalid variant type错误，没有找到解决办法！

寻求同志们的帮助，解决问题另外加100分！

...全文

将Word嵌入Delphi中 unit Main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,Comobj;type TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel;< 阅读详情

NexTunnel

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

NexTunnel 2010-12-29

打赏
举报

已解决，如有需要请与我联系！QQ：335405557 请注明delphi DSOFramer

wo8293821_2 2010-12-29

打赏
举报

这是我从别处直接考过来的，希望对你有帮助

读取和显示Word文档的VCL控件：
http://www.ksdev.com/vcl/index.html
http://vcl.vclxx.org/DELPHI/D32FREE/DATA2WRD.ZIP

最近接触了一个用户的案例，用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类似的产品了。

NexTunnel 2010-12-29

打赏
举报

自己顶起来，急切需求帮助

delphi 操作word求助

相关推荐