RemoveAll方法示例
2015-12-15 22:24:23 来源： 评论：0 点击：
下列示例从活动文档中对象Rect2的Click事件中删除所有代码行。Dim o As Object Dim oProc As Object Dim lIndex As Long Dim lFound As Long Set o = Application ActiveDocument Page FindO
下列示例从活动文档中对象Rect2的Click事件中删除所有代码行。
Dim o As Object
Dim oProc As Object
Dim lIndex As Long
Dim lFound As Long
Set o = Application.ActiveDocument.Page.FindObject("Rect2")
o.Procedures.GetEventHandlerIndex "Click", lIndex, lFound
If (lFound) Then
Set oProc = o.Procedures.Item(lIndex)
oProc.Lines.RemoveAll
End If