delphi连接多个数据库 Delphi+Word=数据库+公文处理[2]

Delphi+Word=数据库+公文处理[2]  

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