delphi控制word工具栏的问题

[colderboy]

为了隐藏工具栏，我使用下面的代码隐藏工具栏
CommandBars.Item[i].Set_Enabled(false);

但出现了一个问题，当我直接打开word时，窗口中的所有工具栏也都不显示了，现在要解决的问题是：

我如何才能使用上面的代码隐藏工具栏，并且直接打开word时能恢复默认工具栏呢？

好像是将模板改了，如何才能不修改默认模板呢

[offline]

释放的时候CommandBars.Item[i].Set_Enabled(true);

[colderboy]

说来很奇怪，我已经加了代码

for i:=1 to wApp.CommandBars.Count do
wApp.CommandBars.Item[i].Set_Enabled(true);

可是好像不起作用？

[colderboy]

自己搞定