请问如何把world中出现的算式自动计算出答案-小学数学老师

二两米粉

老师给给孩子们布置的数学作业，文件是world，都是一些算数题，要是在=号后面能自动计算出结果就好了，这样方便批改。
最好有两个按钮，一个计算答案，一个隐藏答案。
对vba不熟，有没有类似的案例，或者方案啊。
谢谢！

小花鹿

首先可以肯定的是用代码可以做到，但我不会给你写的，你这家长当的不合格，.................算了，不说了

duquancai

隐藏答案 自己去完成》》》》》》》

Sub 计算答案()
    Dim str$, D As Object, W As Object
    Set D = CreateObject("HTMLFILE"): Set W = D.parentWindow
    D.write "<Script></Script>"
    sr$ = "0123456789＋+－-"
    With ActiveDocument.Range(0, 0)
        Do While .MoveUntil("=")
            .MoveStartWhile sr, wdBackward
            str = Replace(Replace(.Text, "＋", "+"), "－", "-")
            .Collapse 0: .Move , 1
            .Text = W.eval("" & str & ""): .Collapse 0
        Loop
    End With
End Sub

二两米粉

小花鹿 发表于 2017-6-3 20:16
首先可以肯定的是用代码可以做到，但我不会给你写的，你这家长当的不合格，.................算了，不说了

好吧 我多研究下 谢谢啊

二两米粉

duquancai 发表于 2017-6-3 20:45
隐藏答案 自己去完成》》》》》》》

Sub 计算答案()

谢谢你， 我试试

二两米粉

duquancai 发表于 2017-6-3 20:45
隐藏答案 自己去完成》》》》》》》

Sub 计算答案()

多谢了
我测试了下  大部分都可以计算出来，但是 个别会出错， 比如 100-66=66
有时候还出现 “25＋55=806＋36=842   ” 这种情况

duquancai

二两米粉 发表于 2017-6-3 21:37
多谢了
我测试了下  大部分都可以计算出来，但是 个别会出错， 比如 100-66=66
有时候还出现 “25＋55= ...

那我不管了。。。。。。

二两米粉

duquancai 发表于 2017-6-3 21:42
那我不管了。。。。。。

看来还是要自己多研究下，我下载了些教程打算多看看，刚接触vba，不是很了解，还是要谢谢你的热心帮助。

duquancai

二两米粉 发表于 2017-6-3 21:37
多谢了
我测试了下  大部分都可以计算出来，但是 个别会出错， 比如 100-66=66
有时候还出现 “25＋55= ...

原因是你加减号不规范和排版不规范造成。3楼代码 我更新了。你再测试吧？

二两米粉

duquancai 发表于 2017-6-3 22:04
原因是你加减号不规范和排版不规范造成。3楼代码 我更新了。你再测试吧？

膜拜了！这回都计算出来了，是加减符号全角半角的关系啊，