var CmdBar:CommandBar;
FWordApp: TWordApplication;
i,j:Integer;
begin
for i:=1 to FWordApp.CommandBars.Count do begin
if UpperCase(FWordApp.CommandBars.Item.Name)='MENU BAR' then begin
CmdBar:=FWordApp.CommandBars.Item;
for j:=1 to CmdBar.Controls.Count do begin
CmdBar.Controls.Item[j].Set_Visible(False);
end;
end;
end;
end;