[求助]VBA的例程出现了run-time error424，各位高手帮个忙

<P>在VBA help 的例程中有这段代码</P>
<P>Sub ExecuteCmdArcMap()<BR>  Dim pdoc As IDocument<BR>  Dim pCmdBars As ICommandBars<BR>  Dim pItem As ICommandItem<BR>  <BR>  Set pdoc = Application.Document<BR>  Set pCmdBars = pdoc.CommandBars<BR>  Set pItem = pCmdBars.Find(ArcID.<FONT style="BACKGROUND-COLOR: #316ac5" color=#ffffff>PanZoom_FullExtent</FONT>)<BR>  pItem.Execute<BR>End Sub</DEVELOPENV><BR>单是在宏中运行时出现了run-time error 424:Object Required 错误，会的高手帮个忙啊。</P>