做一个VBA得评分系统解决方法

做一个VBA得评分系统我用VB6.0开发我用了一个模块做WORD的评分模块。word的模块里面有一个评分函数函数根据给的当前题目的编号打开word在评分函数大概如下WordOpear(TestId as string){ ‘关闭所有word窗口 ’根据TestId打开word 评分}问题很奇怪。当我评了第一题的时候。在评第二题的时候。就不行了。这里我可以肯定不是判断的代码问题。因为我先评了第二题，在评第一题的时候。第一题的也评不了。评不了得意思就是没有任何异常的表现下，直接跳出了函数评分的代码大噶如下VB code

Dim word As ObjectDim documents As ObjectSet word = CreateObject("word.application")Set documents = word.documents.Open(App.path + TestId )ActiveDocument.Content.Select....Selection.HomeKey Unit:=wdStory '在这里就会跳出函数

——解决方案——————————————————–先坐下,慢慢研究~~~——解决方案——————————————————–有点意思～！——解决方案——————————————————–设断点 跟踪调试 肯定有问题..——解决方案——————————————————–顶一下造物之前，必先造人。