[求助]请教word事件处理中所遇到的问题

a278972

关闭 word时，在App_DocumentBeforeClose事件里调用 自定义Check()函数。
Check()函数检查到错误，会将光标移动到错误所在的bookmarks里，使用了类似
doc.Bookmarks(“ERRORKMK”).Select 和Selection.HomeKey unit:=wdLine 。
从而这时程序会触发 App_WindowSelectionChange 事件，在WindowSelectionChange
事件里会设置CommandBars("Info")的标题。同时Check()里也有设置
CommandBars("Info")和其他相关的处理。

有两种情况
1. 在关闭word时，总会在App_WindowSelectionChange事件里 设置
CommandBars("Info").Controls(1).Caption = "" 异常。
2. 注释掉Selection.HomeKey unit:=wdLine 后面的除了设置
CommandBars("Info").Controls(1).Caption  = “Error”的代码，程序不异常，
但CommandBars("Info")标题先显示“Error”，然后显示“”。说明先执行完Check()，
然后执行WindowSelectionChange 事件。

问题是，
a. 异常的原因是什么？如何消除。
b. 我想在doc.Bookmarks(“ERRORKMK”).Select 和Selection.HomeKey unit:=wdLine前
调用Application.EnableEvents = False ，之后再Application.EnableEvents = true
但wrod里没有这样的函数，有没有替代方法？

守柔

以下代码供参考，关键是在需要屏蔽事件时，释放Application事件对象变量（=Nothing)

请注意预期事件和预期动作的代码前后次序

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋

'* Created By SHOUROU@ExcelHome 2006-7-18 5:22:59

'仅测试于System: Windows NT Word: 11.0 Language: 2052

'№ 0038^The Code CopyIn [ThisDocument-ThisDocument]^'

'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Public WithEvents myApp As Word.Application '声明Application事件的对象变量

Private Sub Document_Open()

    Set myApp = Word.Application '初始化声明的对象

End Sub

'----------------------

Private Sub myApp_WindowSelectionChange(ByVal Sel As Selection)

    MsgBox Sel.Text '每次移动光标或者所选内容时输出其内容

End Sub

'----------------------

Sub Example()    '测试禁用Application对象事件

    With Selection

        Set myApp = Nothing    '释放对象

        .HomeKey wdStory    '移到光标到文档首位置,此时,将不再触发WindowSelectionChange事件

        .WholeStory    '全选文档,此操作为预期事件,即结合下面代码将导致触发WindowSelectionChange事件

        Set myApp = Word.Application    '初始化声明的对象,注意它应在预期动作之后

    End With

End Sub