Microsoft KB Archive/109769

From BetaArchive Wiki

WD: WordBasic Examples: Window Command

Q109769



The information in this article applies to:


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

Window<Number>

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

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 

Additional query words:

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


Last Reviewed: November 4, 2000
© 2001 Microsoft Corporation. All rights reserved. Terms of Use.