This page last revised: 06 Jan 2024 23:47:33 -0500 . How can I get rid of the web toolbar?Why get rid of the web toolbar?
How to get rid of the web toolbar ...There are four methods to be looked at. The first two use macros. If you don't know how to use macros like these, take a look at Macros and VBA. Document-specific macro - put in "ThisDocument" object
Private Sub Document_Open()
On Error Resume Next
Application.CommandBars("Web").Enabled = False
On Error GoTo 0
End Sub
Private Sub Document_Close()
On Error Resume Next
Application.CommandBars("Web").Enabled = True
On Error GoTo 0
End Sub
--------------------------------- Global - Get rid of the Web Toolbar in Word
Sub ToggleWebToolbarEnabled()
With Application.CommandBars("Web")
.Enabled = Not .Enabled
If .Enabled = True Then
.Visible = True
End If
End With
End Sub
See Template Basics for information about Normal.dot and other global templates. For the Reviewing toolbar you would use the following macro instead: Sub ToggleReviewingToolbarEnabled() Method 3 - Add-In from this siteI've adapted Pieter Janssen's code to meet my own needs. Feel free to download and see if it works for you. You can download it from my downloads page. Method 4 - Add-In from Pieter JanssenI've created an add-in just for this purpose. you can download it from: http://users.skynet.be/wordprogramming.be/ (right-click on disablewebbar.dot and save target to disk) Link disabled because page is no longer available.
See also MVP site: http://www.word.mvps.org/FAQs/MacrosVBA/BanishWebToolbar.htm
Off-topic - but did you know that you can't
record a macro using the web toolbar? A workaround is discussed at: http://support.microsoft.com/support/kb/articles/Q212/6/42.ASP I want my Web Toolbar information back! - Word 2007 - Word 2010In Word 2007 and 2010 there is no web toolbar (or for that matter any toolbar). A poster wanted to know how to get the filename and path information provided by that toolbar. Here are two suggestions: Solution 1 - use a field
Solution 2 - use vba
Sub ShowAddress() Dim strTemp As String strTemp = InputBox("This is the URL from the Web toolbar", "Excavated!", _ ActiveDocument.CommandBars("Web").FindControl(ID:=1740).Text) End Sub The following code returns the same information without accessing the toolbar: Sub ShowPathAndName() Dim strTemp As String strTemp = InputBox("This is the FullName of the ActiveDocument", "Excavated!", ActiveDocument.FullName) End Sub From Windows Secrets Lounge JScher The up-to-date version of this FAQ may be found at: Download this FAQ in Word 97 format
Changes / suggestions / ideas can be sent to Charles Kenyon. views since 13 April 2004 |
Many people visit this site and use the information it
contains.
Copyright 2000-2024 Charles Kyle Kenyon
FAQ provided as an adjunct / hobby as a part of my web site as a
criminal defense lawyer.
|