Help me banish Web toolbar, please!

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Ed - 26 Apr 2006 19:01 GMT

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

Reply to this Message

Helmut Weber - 27 Apr 2006 10:39 GMT

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.

Signature

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

Reply to this Message

Ed - 27 Apr 2006 15:31 GMT

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

> Hi Ed,
>
[quoted text clipped - 12 lines]
> only to get control over custom commandbars
> which where located in templates other than normal dot.

Reply to this Message