vba03-2.txt

AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.

Sub MyMacro()
    Dim pMxDocument As IMxDocument
    Dim pMaps As IMaps
    Dim pMap As IMap
    Set pMxDocument = Application.Document
    Set pMaps = pMxDocument.Maps
    If pMaps.Count > 1 Then
        Set pMap = pMaps.Item(1)
        MsgBox pMap.Name
    End If
End Sub