Q109760 - WD: WordBasic Examples: ViewToolbars

WD: WordBasic Examples: ViewToolbars

Q109760

The information in this article applies to:

Microsoft Word for Windows, versions 6.0, 6.0a, 6.0c
Microsoft Word for Windows, version 7.0
Microsoft Word for the Macintosh, versions 6.0, 6.0.1

SUMMARY

This article contains a sample macro that demonstrates the use of the following WordBasic statements and functions:

ViewToolbars
ViewBorderToolbar
ViewDrawingToolbar

This article supplements the information in online Help. To open this Help topic, click Contents on the Help menu and then click the "Programming with Microsoft Word" topic.

MORE INFORMATION

ViewToolbars

Syntax:

ViewToolbars [.Toolbar = text] [, .Context = number] [, .ColorButtons = number] [, .LargeButtons = number] [, .ToolTips = number] [, .Reset] [, .Delete] [, .Show] [, .Hide]

Example:

The following sample macro prompts the user for a toolbar to view. After the toolbar is displayed, the macro asks the user if the toolbar should then be hidden. Run the macro and type "Microsoft" (without the quotation marks).


 Sub MAIN
  On Error Goto done
  name$ = InputBox$("What is the name of the toolbar you would \ 
   like displayed?")
  ViewToolbars .Toolbar = name$, .Show
  n = MsgBox("Would you like to hide the " + name$ + " toolbar?", 35)
  Select Case n
   Case - 1
    ViewToolbars .Toolbar = name$, .Hide
   Case Else
  End Select
  done:
 End Sub

There are two additional commands that can also be used to display and hide certain toolbars:

ViewBorderToolbar

ViewDrawingToolbar

ViewBorderToolbar

Example:


 Sub Main
  MsgBox "Choose OK to toggle the Border Toolbar on or off."
  ViewBorderToolbar
 End Sub

ViewDrawingToolbar


 Sub Main
  MsgBox "Choose OK to toggle the Drawing Toolbar on or off."
  ViewDrawingToolbar
 End Sub

Both of the previous macros display the toolbar if the toolbar is hidden and hide the toolbar if it is displayed.

Additional query words:

Keywords : kbmacro kbprg kbdtacode kbmacroexample winword macword word6 word7 word95
Issue type : kbhowto kbinfo
Technology :