AddProcedure方法示例
2015-12-15 22:24:57   来源：   评论：0 点击：

这一示例在激活文档的工程中产生下列代码：

Public Sub Rect2_DisplayMessage(strMessage As String)

MsgBox strMessage

End Sub

Dim o As Object

Dim lIndex As Long

Set o = Application.ActiveDocument.Page.FindObject("Rect2")

o.Procedures.AddProcedure "DisplayMessage", "strMessage as String", _
MsgBox strMessage, lIndex