做一个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 '在这里就会跳出函数