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

duquancai

二两米粉 发表于 2017-6-3 22:29
膜拜了！这回都计算出来了，是加减符号全角半角的关系啊，

Sub 计算或者隐藏答案()
    Dim str$, D As Object, W As Object
    k = InputBox("输入0隐藏答案；输入1计算答案")
    If k = "" Or (k <> 1 And k <> 0) Then Exit Sub
    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: .MoveEndWhile sr
            If k = 1 Then
                .Text = W.eval("" & str & "")
                .Font.ColorIndex = wdAuto
            ElseIf k = 0 Then
                .Text = W.eval("" & str & "")
                .Font.Color = RGB(255, 255, 255)
            End If
            .Collapse 0
        Loop
    End With
    MsgBox IIf(k = 1, "计算答案完毕！", "隐藏答案完毕！")
End Sub

二两米粉

duquancai 发表于 2017-6-4 00:08
Sub 计算或者隐藏答案()
    Dim str$, D As Object, W As Object
    k = InputBox("输入0隐藏答案； ...

早上打开电脑，有一次惊喜了，再次感谢，刚接触vba，什么都不懂，感谢阿杜老师的热心，我打算好好学习下，先读懂您的程序，vba处理world真是方便啊！

二两米粉

做成窗体了，支持四则运算，显示，隐藏以及删除答案，再次感谢阿杜老师的帮助。

1. Sub 批量计算(ss)
   
2. 
   
3. Dim n, t, str$, D As Object, W As Object
   
4.     Set D = CreateObject("HTMLFILE"): Set W = D.parentWindow
   
5.     D.write "<Script></Script>"
   
6.     sr$ = "0123456789()."
   
7.     With ActiveDocument.Range(0, 0)
   
8.     n = 0
   
9.     t = Timer
   
10.         Do While .MoveUntil("=")
    
11.             .MoveStartWhile sr & "＋+－-*×X÷/", wdBackward
    
12.             str = Replace(Replace(.Text, "＋", "+"), "－", "-")
    
13.             str = Replace(str, "X", "*")
    
14.             str = Replace(str, "÷", "/")
    
15.             str = Replace(str, "／", "/")
    
16.             
    
17.             .Collapse 0: .Move , 1: .MoveEndWhile sr
    
18.             
    
19.             If ss = 1 Then '计算答案
    
20.             'MsgBox (str)
    
21.             
    
22.              'MsgBox (W.eval("" & str & ""))
    
23.              .Text = W.eval("" & str & "")
    
24.              .Font.ColorIndex = wdRed
    
25.             
    
26.              CommandButton3.Visible = True
    
27.              CommandButton2.Visible = True
    
28.              CommandButton3.Caption = "隐藏答案"
    
29.             
    
30.             
    
31.             
    
32.             ElseIf ss = 2 Then
    
33.             .Text = ""  '删除答案
    
34.             CommandButton3.Visible = False
    
35.             CommandButton2.Visible = False
    
36.                
    
37.             ElseIf ss = 3 Then .Font.Color = RGB(255, 255, 255) '隐藏答案
    
38.             
    
39.             ElseIf ss = 4 Then .Font.Color = RGB(221, 3, 13)     '显示答案
    
40.                  
    
41.             End If
    
42.                
    
43.             .Collapse 0
    
44.             n = n + 1
    
45.         Loop
    
46.     End With
    
47.    
    
48.     Call Fonts
    
49.         
    
50.     Label1.Caption = "共" & n & "题;用时" & Timer - t
    
51.    
    
52. End Sub
    
53. 
    
54. 
    
55. Private Sub CommandButton1_Click()
    
56.     Call 批量计算(1)
    
57. End Sub
    
58. 
    
59. Private Sub CommandButton2_Click()
    
60.     Call 批量计算(2)
    
61. End Sub
    
62. 
    
63. 
    
64. Private Sub CommandButton3_Click()
    
65. 
    
66.     If CommandButton3.Caption = "隐藏答案" Then
    
67.        Call 批量计算(3)
    
68.        CommandButton3.Caption = "显示答案"
    
69.     Else
    
70.        Call 批量计算(4)
    
71.        CommandButton3.Caption = "隐藏答案"
    
72.     End If
    
73. 
    
74. 
    
75. End Sub
    
76. 
    
77. Sub Fonts()
    
78. With Selection
    
79.     .WholeStory
    
80.     .Font.Size = 12
    
81. End With
    
82. End Sub
    
83. 
    

复制代码

413191246se

怪哉！你这新人这么厉害，还会做窗体？——我来此论坛6年了，还不大会做。——杜先生 是本坛大神！

二两米粉

413191246se 发表于 2017-6-6 00:33
怪哉！你这新人这么厉害，还会做窗体？——我来此论坛6年了，还不大会做。——杜先生 是本坛大神！

我也是照葫芦画瓢啊，----杜先生大神 名副其实

leedun

能计算复杂的公式就更完美了

duquancai

leedun 发表于 2017-6-7 09:53
能计算复杂的公式就更完美了

关键在于 等号的 左边  的“数学表达式”就是你说的复杂计算的 表达式要规范（比如：加减乘除乘方开方微分积分数学函数等 都必须规范表达！！！）并且word中排版规范！！！！

leedun

duquancai 发表于 2017-6-7 10:23
关键在于 等号的 左边  的“数学表达式”就是你说的复杂计算的 表达式要规范（比如：加减乘除乘方开方微 ...

谢谢杜先生关注，如果数学表达式规范、排版规范，并且一个表达式是一行，但是数据可能有小数，代码应该怎么写？