Delphi + Word = 数据库 + 公文处理

原创 2000年09月18日 09:35:00

孙立

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类似的产品了。

孙立

 

Delphi + Word = 数据库 + 公文处理

Delphi擅长做数据库类的MIS开发,但对于OA就有点力不从心了。不过随着Microsoft的COM技术逐渐成熟,现在普通Windows应用已经可以和Office97无缝结合了,尤其是在Delphi...
  • xzknet
  • xzknet
  • 2008年02月20日 23:26
  • 1631

Delphi + Word = 数据库 + 公文处理

2000年09月18日 09:35:00 孙立 Delphi擅长做数据库类的MIS开发,但对于OA就有点力不从心了。不过随着Microsoft的COM技术逐渐成熟,现在普通...
  • softart
  • softart
  • 2007年10月27日 06:57
  • 214

一键套红——让公文起草变得更加简单

 目前的网络协同办公系统应用中,公文的起草通常要涉及到模板套红这一步骤,通常的解决方式有两种:一种是前期套红,另外一种是后期套红。 前期套红指的是在起草公文时,用户在一个带红头的模板文件里撰写公文内容...
  • coco99
  • coco99
  • 2010年02月09日 13:44
  • 3021

公文处理流程

OA核心业务了解 流程的运作是政府办公自动化的保障,所以对收发签业务流程的了解应该说是 掌握OA核心业务的关键。 一些关于政府办公自动化的专业术语:  收发签:收文、发文、签报 1.OA中的一些可用操...
  • luckyxufei
  • luckyxufei
  • 2011年03月18日 16:33
  • 2889

Delphi与Word(三) 取得Word文件的数据

//取得Word文件的数据procedure getWordStr;var WordApp: TWordApplication;    WordDoc: TWordDocument;    DocIn...
  • TianGuanLeiOK
  • TianGuanLeiOK
  • 2004年09月08日 16:16
  • 1020

数据库技术在公文管理系统的应用

数据库技术在公文管理系统的应用摘要:   数据库是当前应用软件系统的重要组成部分,如何使基于数据库的应用系统安全、可靠、高效的运行一直是软件开发技术研究的难题。本文就公文管理系统产品中采用的数据库技术...
  • hust_wh
  • hust_wh
  • 2004年09月18日 00:05
  • 1537

使用Delphi 7控制Word 2000生成文档的方法

最近帮同学用Delphi 7写的一个数据库应用中的一个功能是将查询的结果导出到一个Word文档中保存。虽然Delphi 7的Servers面板中提供了TWordApplication和TWordDoc...
  • neowang
  • neowang
  • 2004年10月08日 09:03
  • 9608

实现动态数据生成Word文档并保存

最近在做人事系统,遇到了一个信函打印的的问题。需求是:给一个现成格式的Word模板,在模板中写入你要写的信息,然后保存。网上的方法大多数都是从一个GridView或表中获得数据后向Word中添加一个表...
  • lu930124
  • lu930124
  • 2015年09月18日 13:19
  • 2936

【办公-WORD】Word限制文档部分可编辑(可编辑的限制文档)

1      原理 “审阅->保护->限制编辑->编辑限制”,勾选“仅允许在文档中进行此类型的编辑:”并选择“填写窗体”。这就意味着你可以编辑填写窗体来达到修改限制文档的目的。 2  ...
  • chenlu5201314
  • chenlu5201314
  • 2016年08月31日 17:58
  • 451

Delphi中的数据添加到Word模板的相应位置

Delphi中的数据添加到Word模板的相应位置 就跟将数据导入Excel一样,在运行Delphi程序时,点击预览按钮后,会打开一Word模板,且将数据填入此Word模板相应的位置,此Word模板为一...
  • mrwu9902
  • mrwu9902
  • 2010年03月30日 20:40
  • 876
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi + Word = 数据库 + 公文处理
举报原因:
原因补充:

(最多只允许输入30个字)