我想我没有讲清楚，我把代码也帖上来了，请帮忙！
to newsmile 谢谢你，我找了没有发现
控制word的菜单栏，主要想屏蔽掉原有的菜单，加上一个自定义的菜单，基本我已实现，但是如何将菜单内的菜单项和delphi内部定义的事件联系在一起呢。就是不用宏来实现，完全依靠delphi。这个菜单的主要功能就是重新定义word的保存和打开，我的目的是将正在编辑的word文档保存为二进制的，同时用我自己定义的菜单的‘打开’，将这种二进制的文档打开到word中，并还原，也就是说打开后显示的还是没有转为二进制的word文档。
问题1：如何将菜单内的菜单项和delphi内部定义的事件联系在一起呢。就是不用宏来实现，完全依靠delphi。
问题2：如何写这个保存和打开。
请大家帮帮忙，我想了好久都没有结果！最好是有代码给我看看，谢谢了！
附上我的连接和修改菜单的代码
implementation
uses Office2000;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); //连接word
begin
try
Wordapplication1.Connect;
except
MessageDlg('Word may not be installed', mtError, [mbOk], 0);
Abort;
end;
Wordapplication1.Visible := True;
WordApplication1.Caption := 'Delphi automation';
end;
procedure TForm1.Button4Click(Sender: TObject); //关闭word还原
var
SaveChanges, OriginalFormat, RouteDocument: OleVariant;
begin
SaveChanges := WdDoNotSaveChanges;
OriginalFormat := UnAssigned;
RouteDocument := UnAssigned;
try
WordApplication1.Quit(SaveChanges, OriginalFormat, RouteDocument);
WordApplication1.Disconnect;
except
on E: Exception do
begin
Showmessage(E.Message);
WordApplication1.Disconnect;
end;
end;
end;
procedure TForm1.Button3Click(Sender: TObject); //修改菜单
var i:Integer;
b:CommandBarPopup;
c:CommandBarButton;
begin
if WordApplication1.CommandBars.ActiveMenuBar.Enabled then begin
with WordApplication1.CommandBars.ActiveMenuBar do begin
ListBox1.Clear;
for i:=1 to Controls.Count do
ListBox1.Items.Add(Controls.Caption);
//Controls[5].Set_Visible(false); //删除菜单,实际是隐藏
//Controls[Controls.Count].Set_Caption('我的帮助'); //改菜单项
b:=Controls.Add(msoControlpopup,EmptyParam,EmptyParam,EmptyParam,true) as commandbarpopup; //创建menuitem
with b do begin
Set_Caption('a项');
c:=Controls.Add(msoControlButton,EmptyParam,EmptyParam,EmptyParam,true) as CommandBarButton;
c.Set_Caption('保存'); //--------------怎样让这个button实现保存功能？
end;
end;
with b do
begin
with Controls.Add(msoControlButton,EmptyParam,EmptyParam,EmptyParam,true) do
begin //增加菜单
Set_Caption('打开'); //---------------怎样让这个button实现打开功能？
end;
end;
end;
end;
