如何在程序中嵌入Word编辑框？

Question

标题中的问题，就是要像RichEdit那样的东西，不过要能生成Word的.doc文档，我用过
RichView组件，但只能生成.rtf，而且还需要注册。或者有谁能告诉我能实现强大文档编辑功能的组件？

Answer 1

可以用TOleContanier
直接嵌入word

Answer 2

to songhtao,
能不能讲的详细一点？

Answer 3

参与这个问题的人怎么这么少?
我试了一下Delphi中带的word组件，出来的编辑框与程序好像都是基本脱离的，在我的程序中不能对编辑的内容进行灵活的控制，我曾经看过人家将Word整个嵌入网页中的程序运行效果，我想肯定也有办法将Word嵌入普通的窗口程序中吧，谁能给点帮助。Thanks.

Answer 4

明白你的意思，用OleContainer就可以实现：
1：放一个OleContainer:MyWordOle
2：放一个MainMenu控件（很重要，它能自动获取Word的MainMenu）
3:定义如下函数：
Function LoadWordFile(sFile:String):Boolean;
Begin
  Result:=True;
  Try
    MyWordOLE.CreateObjectFromFile(sFile,False);
    MyWordOLE.Run;
    IF MyWordOLE.State=osRunning Then MyWordOLE.DoVerb(ovPrimary);
    MyWord:=GetActiveOleObject('Word.Application');
  Except
    On E:Exception Do
    Begin
      Result:=False;
      Application.MessageBox(Pchar('打开文档"'+sFile+'"失败:'+E.Message),'系统提示:',48);
      Exit;
    End;
  End;
End;4：Ok了
   IF Not LoadWordFile('Word 文档') Exit;
   瞧，Word环境已经嵌进来了  

Answer 5

不好意思，少了一些：
  Private
     MyWord:Variant;

Answer 6

BlueSoftEye(紫衣侠隐) 
为什么你的程序总是报错，无法正常运行呢？

Answer 7

重发：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
1：放一个OleContainer:MyWordOle
2：放一个MainMenu控件（很重要，它能自动获取Word的MainMenu）
3：定义函数：
Function TForm1.LoadWordFile(sFile:String):Boolean;
Begin
  Result:=True;
  Try
    MyWordOLE.CreateObjectFromFile(sFile,False);
    MyWordOLE.Run;
    IF MyWordOLE.State=osRunning Then
       MyWordOLE.DoVerb(ovPrimary);
  Except
    On E:Exception Do
    Begin
      Result:=False;
      Application.MessageBox(Pchar('打开文档"'+sFile+'"失败:'+E.Message),'系统提示:',48);
      Exit;
    End;
  End;
End;
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Procedrue TForm1.Button1Click(Sender:TObject)
Beign
  IF Not LoadWordFile('Word文档') Then Exit;
End;
-----------------Ok了------------------------------------------------

Answer 8

谢谢BlueSoftEye先试一下，欢迎大家继续讨论
我会尽快结贴
分不是问题

Answer 9

用TOLEContainer方式打开Word文档后有以下问题：第一． 在程序中用TOLEContainer打开Word文档后，若在外部再用Word直接打开另一Word文
         档，程序中的Word不能再编辑和操作？第二． 在程序中用TOLEContainer打开Word后，怎样不通过点击Word菜单实现对Word常用功能
         的控制？第三． 在程序中用TOLEContainer打开Word后文档后，怎样通过程序在指定位置插入
         另一Word文档的内容？

Answer 10

ole方式一文不值，最烂的方案。不过还没有好的，不知道微软的WordView怎么做的？？？

Answer 11

可以用TOleContanier
直接嵌入word

Answer 12

用TOLEContainer方式打开Word文档后有以下问题：第一．可以解决
第二．可以实现
第三．可以实现