当前位置: 代码迷 >> VBA >> 做一个VBA得评分系统解决方法
  详细解决方案

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

热度:2473   发布时间:2013-02-26 00:00:00.0
做一个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 '在这里就会跳出函数


------解决方案--------------------------------------------------------
先坐下,慢慢研究~~~
------解决方案--------------------------------------------------------
有点意思~!
------解决方案--------------------------------------------------------
设断点 跟踪调试 肯定有问题..
------解决方案--------------------------------------------------------
顶一下
  相关解决方案