Help me banish Web toolbar, please!

In my Word 2002 (XP) Normal.dot, I have the following code to banish the Web
and Reviewing toolbars. Unfortunately, they are not obeying! If I have a
document already open and open another one using a hyperlink, I am likely to
get the Web bar. Can I tweak this to stop it?
Ed

Sub AutoExec()
With Application.CommandBars("Reviewing")
.Enabled = False
.Visible = False
End With
With Application.CommandBars("Web")
.Enabled = False
.Visible = False
End With

Application.OnTime _
When:=Now + TimeValue("00:00:02"), _
Name:="RemoveBar", Tolerance:=3
End Sub

Sub RemoveBar()
With Application.CommandBars("Reviewing")
.Enabled = False
.Visible = False
End With
With Application.CommandBars("Web")
.Enabled = False
.Visible = False
End With
End Sub

HelmutWeber
Thu Apr 27 04:39:02 CDT 2006

Hi Ed,

this one works for me:

Sub Autoopen()
With Application.CommandBars("Web")
.Enabled = False
.Visible = False
End With
End Sub

plus in autoexec, maybe.

By the way, the I needed the ontime macro
only to get control over custom commandbars
which where located in templates other than normal dot.

--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

Ed
Thu Apr 27 09:31:46 CDT 2006

Thanks, Helmut. Now if it were only so easy to vanquish the Copy Task Pane!
8>{
Ed

"Helmut Weber" <HelmutWeber@discussions.microsoft.com> wrote in message
news:0BE45620-9ED7-4853-90C1-BC4355431909@microsoft.com...
> Hi Ed,
>
> this one works for me:
>
> Sub Autoopen()
> With Application.CommandBars("Web")
> .Enabled = False
> .Visible = False
> End With
> End Sub
>
> plus in autoexec, maybe.
>
> By the way, the I needed the ontime macro
> only to get control over custom commandbars
> which where located in templates other than normal dot.
>
> --
> Greetings from Bavaria, Germany
> Helmut Weber, MVP WordVBA
> "red.sys" & chr(64) & "t-online.de"
> Word 2002, Windows 2000
>