知识大全 Delphi+Word=数据库+公文处理[2]

Posted 2022-07-22 数据库

篇首语：无名，天地之始；有名，万物之母。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi+Word=数据库+公文处理[2]相关的知识，希望对你有一定的参考价值。

Delphi+Word=数据库+公文处理[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　让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 ponent 　　ItemIndex := ; 　　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;

　　上面这段代码完成了公文管理的基本功能再把它和数据库结合起来就可以开发一个与Lotus Notes类似的产品了

cha138/Article/program/Delphi/201311/24790