Trying to banish toolbars - not working!

[Ed]

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

 

[Helmut Weber]

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.

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

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

 

[Ed]

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