AddProcedure方法示例

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

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