[求助]能否实现填入内容后分析正误？

金色太阳

各位版竹：能否实现在一篇word文档中有填空部分，当填入内容后，自动提示内容与答案是否相符？

c81

窗体，文字型，插入点移出时，运行一个判断宏。。。

可惜我做不来

[em04][em04]

c81

假设这个文本域的名称为text1

要运行的宏为

Sub a(b As String)
b = FormFields("Text1").Result
If "answer" = b Then
MsgBox "你填的答案正确！"
End If
End Sub

（我写错了，请几位朋友改下，我不懂vba，只是在帮助瞎找）

[此贴子已经被作者于2006-8-18 17:39:30编辑过]

c81

试验成功

录制一个宏，就是以macro1吧，然后修改一下，

Sub Macro1()
'
' Macro1 Macro
' 宏在 2006-8-18 由 c 录制
'
Dim b As String
b = ActiveDocument.FormFields("Text1").Result
If "answer" = b Then
MsgBox "你填的答案正确！"
End If
End Sub

这样做，窗体，文体域 ，文本长度设置一下，插入点移出时，在下拉列表中选macro1,锁定。

(ps，虽实现楼主要的功能，好象不按“确定”的话，有个忙漏斗，有点儿讨厌，这是什么原因？)

守柔

QUOTE:

以下是引用金色太阳在2006-8-18 16:38:03的发言：
各位版竹：能否实现在一篇word文档中有填空部分，当填入内容后，自动提示内容与答案是否相符？

用Word当然也行，可是你得有一定的编程基础，而且，你的答案（数据库）放在哪个位置，都是值得商榷的问题

如果楼主不介意，使用EXCEL，则更为简单一些，直接使用公式判断并且无需顾及宏安全级别。

C81的方法与思路也很不错的。

c81

我只是尝试一下Word的功能。

我的这种方法明摆不能大量应用，如果有很多处要判断，那宏的很多地方就要含有答案，那工程量是很大，而且容易出错。

其实楼主的例子的实用性也不大，要是做为填空题类型让机器来判分数的话，如果是采用BS结构的话，asp+数据库是很容易的，从数据添加，结果判断，分析汇总等，Word和Excel都是小儿科，尽管它们都可以实现。

任何东西都是术有所攻，业有所精。