急救,用WordApplication组件如何Open一个文档

Question

请参考Demos\ActiveX\OleAuto\SrvComp\Word\ 示例
会对你有帮助的

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  itemindex :olevariant;
  filename, confirmconversions, readonly, addtorecentfiles,
  passworddocument, passwordtemplate, revert,
  writepassworddocument, writepasswordtemplate, format: olevariant;
begin
  opendialog1.Title:='请选择一个要打开的word文件';
  opendialog1.Filter:='word文档|*.doc|rtf文件|*.rtf|文本文件|*.txt|所有文件|*.*';
  if not opendialog1.Execute then exit;
{open document}
  filename :=openDialog1.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 :=wordapplication.Documents.Count;
  worddocument1.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;
  Wordapplication.Visible:=true;
end;

Answer 2

打开一个指定的文件，需要先放置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; {打开文档｝ 
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 ); ItemIndex := 1; 
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex)); WordApplication.Options.CheckSpellingAsYouType := False; 
WordApplication.Options.CheckGrammarAsYouType := False; 
end;