How can I stop the reviewing toolbar from popping up?

[Sandi Vogel]

I am using another program called iRedline for document comparisons and
changes. After I compare documents with iRedline, Word's native Reviewing
toolbar pops up. It is redundant sitting there next to the iRedline toolbar;
and I don't want to confuse my users.

 

[Cindy M.]

Hi =?Utf-8?B?U2FuZGkgVm9nZWw=?=,

I am using another program called iRedline for document comparisons and
changes. After I compare documents with iRedline, Word's native Reviewing
toolbar pops up. It is redundant sitting there next to the iRedline toolbar;
and I don't want to confuse my users.

Contact the folks that created iRedline and ask them if they can incorporate
this into their product (perhaps as an option).

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail

 

[Ed]

Hi, Sandi. I have the following in my Normal.dot ThisDocument object:

Sub AutoOpen()
With Application.CommandBars("Web")
.Enabled = False
.Visible = False
End With
With Application.CommandBars("Reviewing")
.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

Sub ShowReviewingBar()
With Application.CommandBars("Reviewing")
.Enabled = True
.Visible = True
End With
End Sub

Hopefully, this should take care of things on your own computer.

Ed

 

[Sandi Vogel]

Bless you! Thanks so much!

Hi, Sandi. I have the following in my Normal.dot ThisDocument object:

Sub AutoOpen()
With Application.CommandBars("Web")
.Enabled = False
.Visible = False
End With
With Application.CommandBars("Reviewing")
.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

Sub ShowReviewingBar()
With Application.CommandBars("Reviewing")
.Enabled = True
.Visible = True
End With
End Sub

Hopefully, this should take care of things on your own computer.

Ed