Trying to banish toolbars

Trying to banish toolbars - not working!

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Ed - 29 Mar 2006 00:25 GMT

In accordance with several posts here, I'm trying to banish the Web and
Reviewing toolbars with an AutoExec macro in the Document object of
Normal.dot in Word XP. This is NOT working, though. The Web toolbar has
especially been annoying today. Can anyone help with this?

Ed

Sub AutoExec()

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 - 29 Mar 2006 11:55 GMT

Hi Ed,

all of a doc, maybe even all of the application
seems to be available only after automacros
have been executed completely.

Sub AutoExec()
' other code if there is some
Application.OnTime _
When:=Now + TimeValue("00:00:02"), _
Name:="RemoveBar"
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

You have to check out,
whether TimeValue("00:00:02") is sufficient.

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message

Ed - 29 Mar 2006 14:49 GMT

Thank you, Helmut. How I wish banishing the Task Panes was this easy!
Ed

> Hi Ed,
>
[quoted text clipped - 22 lines]
> You have to check out,
> whether TimeValue("00:00:02") is sufficient.

Reply to this Message