word中的算式计算,值得看看,想想的!

逐月飞鸿

斑竹你好!

大虾们好!

下面的代码可以完成例如:12+45*56-78/9+5^2的算式计算(方法:选中算式,再运行此宏即可)

Sub mycal()

Dim formulaStr As String, resultStr As String

formulaStr = Application.Selection

Selection.InsertAfter "="

Selection.MoveRight Count:=(Len(formulaStr) + 1)

cc = "=" & formulaStr

MsgBox "你欲求算式是?" & Chr(13) & Chr(10) & formulaStr

Set myField = ActiveDocument.Fields.Add(Range:=Selection.Range, _

Type:=wdFieldEmpty,Text:=cc, PreserveFormatting:=False)

End Sub

但是在word中,域不能计算带有三角函数:sin(),cos()的算式,例如:6+cos(45°)类似的算式

请问大虾怎么才能解决域中可以计算三角函数的问题!!

请斑竹和大家指点,小弟先多谢了!!!.

[此贴子已经被作者于2004-5-28 13:06:23编辑过]

cxffxc

这种普通计算WORD有内置的工具可以实现，不需要这个宏了。

逐月飞鸿

那么带三角函数的怎么计算啊!!!!!!!!?