在线等待，进者有分。关于Word的

Question

procedure TOleWordEditFrm.CopyWordToMemo;
var
    ItemIndex: olevariant;
    FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
    PasswordDocument, PasswordTemplate, Revert,encoding,Dvisible,
    WritePasswordDocument, WritePasswordTemplate, Format:olevariant;
begin
  with MainFrm do
  begin
  try
    try
      Wordapplication.Connect;
    except
      MessageDlg('Word 可能没有安装！', mtError, [mbOk], 0);
      Abort;
    end;
    Wordapplication.Visible :=false; //出错了，true就可以。    FileName := extractfilepath(paramstr(0)) + 'tmp.doc';
    ConfirmConversions := False;
    ReadOnly := False;
    AddToRecentFiles := False;
    PasswordDocument := '';
    PasswordTemplate := '';
    Revert := False;
    WritePasswordDocument := '';
    WritePasswordTemplate := '';
    Format :=0;
    encoding:=false;
    Dvisible:=true;    wordapplication.Documents.Open(FileName, ConfirmConversions, ReadOnly,
        AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert,
        WritePasswordDocument, WritePasswordTemplate, Format,encoding, Dvisible);    ItemIndex:=1;
    WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));
    WordDocument.Range.Copy; //内容我得到了
    WordApplication.Quit;
    WordApplication.Disconnect;
  except
    on E: Exception do
    begin
      MessageDlg(E.Message,mtError,[mbOk],0);
      WordApplication.Quit;
      WordApplication.Disconnect;
    end;
  end;
 end;
end;procedure TOleWordEditFrm.ExitClick(Sender: TObject);
begin
  OleWord.SaveAsDocument(ExtractFilePath(Application.ExeName)+'tmp.doc');
  CopyWordToMemo;
  Close;
end;
请大家帮我解决！

Answer 1

试试可不可以这样
Wordapplication.exit；

Answer 2

看来我只能让 Word 显示一下了。

Answer 3

高手们帮我看看这个问题，我7天了都没解决。 一个人学真不容易。
http://www.csdn.net/expert/topic/909/909516.xml?temp=.7200891

Answer 4

我没太看懂你的用意,好象是想用OLE容器,又不打算给外人看出来的意思.
如果是,你可能需要读一读COM和结构化存储的有关文章,利用接口直接读取
Word内容.我不太熟,只是提个醒.

Answer 5

哎，还在问这个问题！
你参考我写的那个Grid To Word的控件吧，看看她是如何控制Word的。

Answer 6

Grid To Word 控件哪里有得下呀?谢谢。