Sub ExecuteCmd()
Dim pCommandItem As ICommandItem
' Use ArcID module and the Name of the SaveAs command
Set pCommandItem = Application.Document.CommandBars.Find(ArcID.Editor_Merge)
pCommandItem.Execute
End Sub或者
Sub ExecuteCmd2()
Dim pUID As New UID
Dim pCommandItem As ICommandItem
' Use the GUID of the Save command
pUID.Value = "{119591DB-0255-11D2-8D20-080009EE4E51}"
' or you can use the ProgID
' pUID.Value = "esriCore.MxFileMenuItem"
pUID.SubType = 3
Set pCommandItem = Application.Document.CommandBars.Find(pUID)
pCommandItem.Execute
End Sub