我想编这样的公式，怎么不行呢

hnyhny

大家好，我是vba的初学者，我主要想想利用vba解决在word中编辑公式的功能，因为有的公式比较复杂，所以我想利用vba和域一起来解决这个问题，例如，a/b+c/d=2/5+3/5=1(其中，a，b，c，d为变量，即值不同时，会自动生成新的数字表达式)，我大概式这样编的（编的比较复杂，并且里面需用句子我还不大明白） Sub Macro5() ' ' Macro5 Macro ' ºêÔÚ 2006-6-20 ÓÉ hmy ¼ÖÆ ' DIM e as integer Dim b As String Dim c As String Dim d As String Dim e As String a = InputBox("a", "") b = InputBox("b", "") c = InputBox("c", "") d = InputBox("d", "") e = a / b + c / d Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="eq \f(a,b)" Selection.Fields.Update Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeText Text:="+" Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="eq \f(c,d)" Selection.Fields.Update Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeText Text:="=" Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="eq \f(a,b)" Selection.Fields.Update Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeText Text:="+" Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="eq \f(c,d)" Selection.Fields.Update Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeText Text:="=" Selection.InsertAfter e End Sub 我把这个宏运行了一下，并没有得到我想要得结果，当我输入a＝1，b＝2，c＝3，d＝10时，结果是这样得： a/b+c/d=a/b+c/d=.8 我不知道错出在哪里，我不知道域有没有识别变量的功能，能帮我改改吗

konggs

Selection.TypeText Text:="eq \f(a,b)"

改为：Selection.TypeText Text:="eq \f(" & a & "," & b &")""

没有测试。楼主，不要急。

还有，你每次发贴后，好像对跟贴的解释不太关注。

是没有用？还是你没有看到？

[此贴子已经被作者于2006-6-20 12:56:04编辑过]

hnyhny

不好意思,我看过您上次回副我的帖子,但是我在我的电脑上试过& a &,但是结果还是不正确,什么原因呢

hnyhny

不好意思,我忘了打双引号,丢脸了，太感谢您了，给我指明了学习的方向