vba11-2.txt

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

Public Sub NewMenu()
  ' Find the Main menu bar.
  Dim pMainMenuBar As ICommandBar
  Set pMainMenuBar = ThisDocument.CommandBars. _
  Find(ArcID.MainMenu)
    
  ' Create the new menu called "MyMenu"
  ' on the MainMenuBar.
  Dim pNewMenu As ICommandBar
  Set pNewMenu = pMainMenuBar.CreateMenu("MyMenu")
    
  ' Add a built in command to the new menu.
  pNewMenu.Add ArcID.File_AddData
    
  ' Add your VBA macro to the new menu.
  pNewMenu.CreateMacroItem "MyCommand", 0, _
  "Project.ThisDocument.ShowTime"
End Sub