主题：[求助]求个时间代码

那你就加这一段

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("WinWord")
For Each p As System.Diagnostics.Process In ps
    If p.MainWindowTitle = Nothing Then  p.kill
Next

system.Threading.Thread.sleep(3000)

这段代码最后加了个打分窗体打开的代码，结果测试，卡机3秒后，还在word浏览界面，算了，不用打分按钮了，就算没问题也太慢了。。