WD: WordBasic Examples: Toggle Commands |
Q106334
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 or functions:
ToggleFull ToggleMainTextLayer TogglePortrait
This article supplements the information in online Help. To open this Help topic in Word for Windows, click Contents on the Help menu and then choose the "Programming with Microsoft Word" topic. In Word for the Macintosh, click the Help icon, select Microsoft Word Help and choose the "Programming with Microsoft Word" topic.
MORE INFORMATION
ToggleFull
Syntax:
ToggleFull
Example:
This sample macro allows you to see a document on screen without rulers, toolbars, or other screen elements.
Sub MAIN If SelInfo(27) = - 1 Then FileNewDefault MsgBox "Press OK to Toggle Full Screen" ToggleFull MsgBox "Press OK to Toggle Back" ToggleFull End Sub
ToggleMainTextLayer
Syntax:
ToggleMainTextLayer
Example:
This sample macro toggles the display of the text in the document layer when headers and footers are displayed. If the selection is not within a header or footer, an error occurs.
Sub MAIN If SelInfo(27) = - 1 Then FileNewDefault Insert "This text is visible on the main text layer" ViewHeader MsgBox "Press OK to switch to the main text layer" ToggleMainTextLayer End Sub
TogglePortrait
Syntax
TogglePortrait
Example
This sample macro switches the selected sections between portrait and landscape page orientations. If the selected sections have different page orientations, an error occurs.
Sub MAIN If SelInfo(27) = - 1 Then FileNewDefault ViewPage ViewZoom .FullPage TogglePortrait For Count = 1 To 300 '...Pause Next count TogglePortrait End Sub
Additional query words:
Keywords : kbmacro kbprg kbdtacode kbmacroexample winword macword word6 word7 word95
Issue type : kbhowto kbinfo
Technology :
Last Reviewed: November 4, 2000 |