GetProcedureIndex示例
2015-12-15 22:24:36 来源： 评论：0 点击：
下列示例在ActiveDocument的工程中找到过程Rect2_DisplayMessage的索引。Dim o As Object Dim oProc As Object Dim lIndex As Long Dim lFound As Long Set o = Application ActiveDocument
下列示例在ActiveDocument的工程中找到过程Rect2_DisplayMessage的索引。
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.GetProcedureIndex "DisplayMessage", lIndex, lFound
If (lFound) Then
Set oProc = o.Procedures.Item(lIndex)
End If