1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

var
  vMenu : CommandBarControl; vMenus : TStrings;
  vProp : TPCSCmdBarProp; vI : Integer;
  vType : OleVariant; vBtn : TPCSOfficeButton;
begin
  vMenus := GetCmdBars(Key);
  try
    IF vMenus.Count = 0 THEN
      vType := msoControlButton ELSE vType := msoControlPopup;
    IF Key <> '' THEN
    begin
      vMenu := Parent.Controls.Add(vType,EmptyParam,EmptyParam,
        EmptyParam,FALSE);
      IF vType = msoControlButton THEN
      begin
        vProp := GetCmdProp(Key);
        IF vProp.bEnabled = FALSE THEN
        begin
          vMenu.Delete(FALSE);
          exit;
        end;
        vMenu.Set_BeginGroup(vProp.bNGroup);
        vMenu.Set_Caption(vProp.sCaption);
        vMenu.Set_Enabled(vProp.bEnabled);
        vMenu.Set_Tag(Factory.ProgID + '_' + ExtractFileName(vProp.sModule) +
          '_' + IntToStr(vProp.iID));
        vMenu.Set_OnAction('!<' + Factory.ProgID +'>');
        vBtn := FButtonClass.Create(Self,vProp);
        vBtn.ConnectTo(vMenu as CommandBarButton);
        FButtons.Add(vBtn);
        exit;
      end else vMenu.Set_Caption(ExtractFileName(Key));
    end
    ELSE vMenu := Parent;

    IF (Key <> '') AND (Key[Length(Key)] <> '\') THEN
      Key := Key + '\';
    FOR vI := 0 TO vMenus.Count-1 do
      AddCMDBars(Key + vMenus.Strings[vI],vMenu as CommandBarPopup);
  finally
    vMenus.Free;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var vMenuBar : CommandBar; vMenu : CommandBarPopup;
begin
  IF HostKind <> pcs_ohWord THEN exit;
  vMenuBar := WordHost.CommandBars.ActiveMenuBar;
  vMenu := vMenuBar.FindControl(EmptyParam,EmptyParam,
    CustomName + '_' + ClassName,
    EmptyParam,TRUE) as CommandBarPopup;
  IF vMenu <> nil THEN vMenu.Delete(FAlSE); 
  vMenu := vMenuBar.Controls.Add(msoControlPopup,EmptyParam,EmptyParam,
    EmptyParam,FALSE) as CommandBarPopup;
  vMenu.Set_Caption(CustomName);
  vMenu.Set_Tag(CustomName + '_' + ClassName); 
  AddCMDBars('',vMenu);
  IF vMenu.Controls.Count = 0 THEN vMenu.Set_Enabled(FALSE);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

  IF HostKind <> pcs_ohWord THEN exit;
  IF WordHost <> nil THEN
    FCustContext := WordHost.NormalTemplate;
  try
    vContext := WordHost.CustomizationContext;
    try
      WordHost.CustomizationContext := FCustContext;
      LoadMenuBar;
    finally
      WordHost.CustomizationContext := vContext;
    end;
  finally
    IF FCustContext <> nil THEN
      Variant(FCustContext).Saved := TRUE;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var vContext : IDispatch;
begin
  inherited;
  IF HostKind <> pcs_ohWord THEN exit;
  try
    vContext := WordHost.CustomizationContext;
    try
      WordHost.CustomizationContext := FCustContext;
      FreeMenuBar;
    finally
      WordHost.CustomizationContext := vContext;
    end;
  finally
    IF FCustContext <> nil THEN
      try
        Variant(FCustContext).Save;
      except
        Variant(FCustContext).Saved := TRUE;
      end;
  end;