WD2000: Reviewing Toolbar Not Displayed with New DocumentID: Q232400
|
After you display the Reviewing toolbar (on the View menu, point to Toolbars and then click to select Reviewing), when you create a new document, the Reviewing toolbar no longer appears.
NOTE: If you quit Word with the Reviewing toolbar displayed, when you restart Word, the Reviewing toolbar is automatically displayed.
To work around this behavior, you can create a macro and assign it to a toolbar button to easily display the Reviewing toolbar.
Microsoft provides programming examples for illustration only, without warranty
either expressed or implied, including, but not limited to, the implied warranties of
merchantability and/or fitness for a particular purpose. This article assumes that you
are familiar with the programming language being demonstrated and the tools used to
create and debug procedures. Microsoft support professionals can help explain the functionality
of a particular procedure, but they will not modify these examples to provide added
functionality or construct procedures to meet your specific needs. If you have limited
programming experience, you may want to contact a Microsoft Certified Solution Provider
or the Microsoft fee-based consulting line at (800) 936-5200. For more information about
Microsoft Certified Solution Providers, please see the following page on the World Wide Web:
http://www.microsoft.com/mcsp/For more information about the support options available from Microsoft, please see the following page on the World Wide Web:
http://www.microsoft.com/support/supportnet/refguide/
Sub ShowReviewingToolbar()
Dim cbClip As CommandBar
Set cbClip = CommandBars("Reviewing")
With cbClip
If Not .Visible Then
.Visible = True ' Show toolbar.
.Position = msoBarTop ' Dock at top of application.
.RowIndex = msoBarRowLast ' Dock below other toolbars.
End If
End With
End Sub
Microsoft has confirmed this to be a problem in the Microsoft products listed at the beginning of this article.
Sub ShowReviewingToolbar()
'
' ShowReviewingToolbar Macro
' Macro created <date> by <username>
'
End Sub
Sub ShowReviewingToolbar()
'
' ShowReviewingToolbar Macro
' Macro created <date> by <username>
'
Dim cbClip As CommandBar
Set cbClip = CommandBars("Reviewing")
With cbClip
If Not .Visible Then
.Visible = True ' Show toolbar.
.Position = msoBarTop ' Dock at top of application.
.RowIndex = msoBarRowLast ' Dock below other toolbars.
End If
End With
End Sub
Q212536 OFF2000: How to Run Sample Code from Knowledge Base Articles
Normal.NewMacros.ShowReviewingToolbar
For additional information about how to customize and create toolbars and toolbar buttons, please see the following article in the Microsoft Knowledge Base:Changes have been made that affect the global template, Normal.dot. Do you want to save those changes?
Q191178 WD2000: How to Create Custom Toolbars, Toolbar ButtonsFor more information about Office Automation, please visit the Office Development support site at:
http://support.microsoft.com/support/officedev/
Keywords : kbdta wd2000
Version : WINDOWS:2000
Platform : WINDOWS
Issue type : kbbug
Last Reviewed: July 1, 1999