怎样调用office里的公式编辑器(50分)

怎样调用office里的公式编辑器，richedit里可以显示公式吗，我想在richedit里插入公式，可行吗

理论上是行不通的，<br>我都没有听过这样做的，<br>你是想显示一下公式还是能调用公式？？？？<br>也不知道你要想要Word 还是Excel的：<br>反正在 Word/ExcelApplication.Dialogs里啦<br><br>呵呵~~~~~~~~~~~~~~~~~~~~~~~~~~

我想调用word里的公式编辑器，准备在richedit里插入一个新的公式，而不是显示一个公式。可行吗？<br>谢谢NetSoft！

调用方法如下：<br>var<br>&nbsp; &nbsp;DOC : Variant;<br>begin<br>&nbsp; //创建一个新连接到Word<br>&nbsp; try<br>&nbsp; &nbsp; DOC := CreateOLEObject( 'Word.Application' );<br>&nbsp; &nbsp; if ( VarType( DOC ) &lt;&gt; varDispatch ) then<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; ShowMessage( '对不起，此机器可能没有安装WinWord' );<br>&nbsp; &nbsp; &nbsp; Exit;<br>&nbsp; &nbsp; end;<br>&nbsp; &nbsp; DOC.DisplayAlerts := 0;<br>&nbsp; &nbsp; DOC.Documents.Add;<br>&nbsp; &nbsp; DOC.Visible := 1; &nbsp;<br>&nbsp; &nbsp; //插入数值公式<br>&nbsp; &nbsp; DOC.Selection.InsertFormula( '=1+2+3+4','#,##0' );//结果为10<br>&nbsp; &nbsp; //插入数学公式<br>&nbsp; &nbsp; DOC.Selection.InsertFormula( '=ABS(1+2)','#,##0' );//结果为3<br>&nbsp; &nbsp; //插入求平均值的公式<br>&nbsp; &nbsp; DOC.Selection.InsertFormula( '=AVERAGE(1,2,3)', '' );//结果为2<br>&nbsp; &nbsp; //当然还有很多的函数啦，不再举例了……<br>&nbsp; &nbsp; DOC.Quit;<br>&nbsp; &nbsp; DOC := nil;<br>end;

去看一下MathType的SDK吧，也许会有办法的！

谢谢redleaf_wgm和zzhi，word里不是有个公式编辑器吗，那个可以输入各种数学符号，公式。<br>关于mathtype，马上我就去查一下资料。

有哪个大虾能在delphi了调用我word的公式编辑器呢？急！分数可以商量。