WD: WordBasic Examples: Window Command

• Microsoft Word for Windows, versions 6.0, 6.0a, 6.0c
• Microsoft Word for Windows NT, version 6.0
• Microsoft Word for Windows 95, versions 7.0, 7.0a
• 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:

   Window<Number>

MORE INFORMATION

Window<Number>

Syntax:

Window<Number>

Example:

The following macro activates a window listed on the Window menu. Window1 activates the first window in the list, Window2 activates the second window, and so on through Window9. If no windows are listed, or if <Number> is greater than the number of windows listed, an error occurs which is ignored.

NOTE: You cannot use a variable in place of <Number>; you must use an integer.

   Sub MAIN
      Dim  DROPLISTBOX1$(2)
      DROPLISTBOX1$(0) = "Window1"
      DROPLISTBOX1$(1) = "Window2"
      DROPLISTBOX1$(2) = "Window3"
      Begin Dialog UserDialog 198, 80, "Microsoft Word"
         OKButton 7, 53, 88, 21
         DropListBox 17, 22, 160, 56, DropListBox1$(), .DropListBox2
         Text 8, 6, 115, 13, "Select Window", .Text2
         CancelButton 100, 53, 88, 21
      End Dialog
      Dim DLG As UserDialog
      Dialog DLG
      On Error Resume Next
      Select Case DLG.DROPLISTBOX2
         Case 0
            Window1
         Case 1
            Window2
         Case 2
            Window3
      End Select
   BYE:
   End Sub