|
|
本帖最后由 zhouzixian01 于 2014-10-16 23:37 编辑
我有一段代码，大约1200行。
经过反复试验，可以确定是这段代码导致的问题（但是代码本身运行时全无问题）。
经过是这样的，我定义了一个
Public WithEvents wdApp As Word.Application
并在AutoExec()函数中运行Set X.wdApp = Word.Application，
使得word程序打开后就能对Private Sub wdApp_WindowSelectionChange(ByVal Sel As Selection)事件监控，以作出相应反应。
到这里都是成功的，No problem。程序能够反馈到WindowSelectionChange事件。
但在我运行完这段1200行的代码后，就监测不到WindowSelectionChange事件了。
经过反复试验，我得出的结论是：
我在整个工程中定义的Public变量在运行完1200行代码后都被初始化了，值全没保存住。
已经试过好几个变量，全没数据。但是直到1200行代码的最后一行，值还是存在的，这点我已经试验证实了。在我看来，这应该和1200行里的具体代码没什么关系。
以下是那1200行代码中可能影响变量的代码：
Dim ExcelApp As New Excel.Application
Dim TmpExl As Excel.Workbook
Dim FirstDoc As Word.Document
Set FirstDoc = ActiveDocument
Set TmpExl = ExcelApp.Workbooks.Add
Dim TmpDoc As Word.Document
Set TmpDoc = Application.Documents.Add(, , , False)
Dim Model1
Set Model1 = GetObject("F:\***.xls")
Dim Model2
Set Model2 = GetObject("F:\&&&.xls")
Dim UsForm As Object
Set UsForm = ThisDocument.VBProject.VBComponents.Add(vbext_ct_MSForm)
Model1.Close False
Model2.Close False
TmpExl.Close False
TmpDoc.Close False
ExcelApp.Quit
整个工程的代码都在Normal模板下,
AutoExec函数在ThisDocument下
Public WithEvents wdApp As Word.Application和wdApp事件在类模块下。
其他代码都在模块目录下。
另外我发现，如果将1200行代码放在非Normal模板的文件中，所有在该文件下定义的Public变量会初始化，而Normal模板中的wdApp和其他Public变量不会被初始化。
但是我的1200行代码是要放在模板中对整个Word程序生效的，不可能一直放在某个文档下。
以上仅供大V们参考，帮我解决问题。
谢谢！
膜拜！
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
把程序精简了一下，问题依然存在的，传上来大神帮忙看下。
工作文档.zip
(26.67 KB, 下载次数: 6)
把模板替换了，该引用的引用，就可以测试了。要实现的功能：改变选区事件触发时，弹出提示。但是在运行完模块1中的代码后，事件就失效了。
|
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2014-10-16 00:43
楼主
