各位大虾帮帮忙，如何用delphi实现word文档的预览

Question

如何用delphi实现word文档的预览，很急！！！！！！！！

Answer 1

我在解决同一问题，关键Ole怎么用？

Answer 2

var
  WordFileName:string;
  WordApp,WordDoc :Variant;
  FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
  PasswordDocument, PasswordTemplate, Revert,
  WritePasswordDocument, WritePasswordTemplate, Format,Encoding,Visible: OleVariant;
begin
  FileName := WordFileName;
  ConfirmConversions := False;
  ReadOnly := False;
  AddToRecentFiles := False;
  PasswordDocument := '';
  PasswordTemplate := '';
  Revert := True;
  WritePasswordDocument :='';
  WritePasswordTemplate :='';
  Format := wdOpenFormatDocument;
  Encoding := false;
  Visible  := true ;    WordApp:=CreateOleObject('Word.Application');
    WordDoc:=CreateOleobject('Word.Document');    WordDoc:=WordApp.Documents.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
      PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format,Encoding,Visible);    WordDoc.PrintPreview;不过执行预览语句的时候不会停留，马上会接着执行下一句，我还不知道解决办法