使用Delphi控制Excel的公式编辑器

[notebook800]

大家好.

问题如下：

我从数据库中取出一个零件的某一参数值，和它的公差，形式如图。我想将此结果输入到WORD中去，如何通过Delphi控制WORD我已经了解了，可是如何在WORD中再控制公式编辑器，输入公式，这我就不会了．

希望大家多多指教，最好能将代码写出来，谢谢大家．



另外使用Excel录制添加公式对象宏，其中找不到输入数据的代码。

Sub Macro1()
'
' Macro1 Macro
' 宏由 yuant 录制，时间: 2010-6-28
'

'
ActiveSheet.OLEObjects.Add(ClassType:="Equation.3", Link:=False, _
DisplayAsIcon:=False).Activate
ActiveSheet.Shapes("Object 2").Select
End Sub

[dinoalex]

不知道是不是你要的
[Code=Delphi]
var
DOC : Variant;
begin
try
DOC := CreateOLEObject( 'Word.Application' );
DOC.DisplayAlerts := 0;
DOC.Documents.Add;
DOC.Visible := 1;
DOC.Selection.InsertFormula( '=AVERAGE(1,2,3)', '' );
finally
DOC.Quit;
end;
end;
[/Code]

[notebook800]

ls的哥哥，谢谢你的回复。
我要的不是这个公式。是公式编辑器写的公式字符串。和图片中的一样。也就是把这公式图片放到word里面

[dinoalex]

原来我没装公式编辑器,呵呵~~

试试查是否有ACTIVEX控件可用.

[notebook800]

顶一哈，请哥哥们不吝赐教

[亮剑_]

Word中的公式编辑器实际上是一个外挂的插件
LZ是要在文档中插入公式还是要把公式存为图片？
参考一下这个帖子：如何引用Word公式编辑器

[notebook800]

我是要使用Delphi把一个公式（如图所示）添加到Excel中。公式中的各各参数已知。

[notebook800]

5楼的那个帖子对有帮助，非常感谢。我去看看EQ域资料

[notebook800]

使用EQ域搞定。

我采用的方法，使用Delphi在Excel中创建并插入word对象，在word对象中插入EQ域，再次感谢高手指点。