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

领测软件测试网

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, 

文章来源于领测软件测试网 https://www.ltesting.net/