那位高手知道啊

逐月飞鸿 · 发表于 2004-5-31 17:50

斑竹你好!

大虾们好!

下面的代码可以完成例如: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-6-1 11:22

请楼主注意，不要反复发贴！

逐月飞鸿 · 发表于 2004-6-1 14:49

是,谢谢!

		自动登录	找回密码
密码			免费注册