Как вставить свой пункт меню?

Материал из DRKB


{ ... }
var
  CBar: CommandBar;
  MenuItem: OleVariant;
  { ... }

{ Add an item to the File menu }
  CBar := Word.CommandBars['File'];
  MenuItem := CBar.Controls.Add(msoControlButton, EmptyParam, EmptyParam,
    EmptyParam, True) as CommandBarButton;
  MenuItem.Caption := 'NewMenuItem';
  MenuItem.DescriptionText := 'Does nothing';
  { Note that a VB macro with the right name must exist before you assign it to the item! }
  MenuItem.OnAction := 'VBMacroName';
{ ... }


Source: Взято с Delphi Knowledge Base: http://www.baltsoft.com/
ID: 04415