vba03-1.txt

本书给出了AO的常用的VAB代码 可能是初学者很好的一本参考书

Sub MyMacro()
    Dim pMxDocument As IMxDocument
    Set pMxDocument = Application.Document
    MsgBox pMxDocument.FocusMap.Name
End Sub