Microsoft KB Archive/109744

{|
 * width="100%"|

WordBasic Examples: AppWindow

 * }

Q109744

-

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

-

SUMMARY
This article contains an example that demonstrates the use of the following WordBasic statements and functions:

AppWindowHeight, AppWindowHeight

AppWindowPosLeft, AppWindowPosLeft

AppWindowPosTop, AppWindowPosTop

AppWindowWidth, AppWindowWidth This article supplements the information in online Help. To open this Help topic, choose Contents from the Help menu and then choose the "Programming With Microsoft Word" topic.

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

Syntax
AppWindowHeight [WindowName$,] Height

AppWindowHeight([WindowName$])

Example
The AppWindowHeight statement adjusts the height of an application window to a specified number of points (if WindowName$ is omitted, Word is assumed). AppWindowHeight allows you to change the height of a window without affecting its width (unlike AppSize). The AppWindowHeight function returns the height of an application window, in points. For argument descriptions, see AppSize.

 Sub MAIN x = 0 state = AppMaximize If state = - 1 Then AppRestore x = AppWindowHeight MsgBox "The height of this window is: " + Str$(x) AppWindowHeight x - 100 MsgBox "The height of this window is: " + Str$(x - 100) End Sub

Syntax
AppWindowPosLeft [WindowName$,] HorizPos

AppWindowPosLeft([WindowName$])

Example
The AppWindowPosLeft statement moves an application window or icon to a horizontal position specified in points (if WindowName$ is omitted, Word is assumed). AppWindowPosLeft allows you to change the horizontal position of a window or icon without affecting its vertical position (unlike AppMove). The AppWindowPosLeft function returns the horizontal position of an application window or icon, in points. For argument descriptions, see AppMove.

 Sub MAIN state = AppMaximize If state = - 1 Then AppRestore x = AppWindowPosLeft MsgBox "The distance from the left is: " + Str$(x) AppWindowPosLeft x + 100 MsgBox "The distance from the left is: " + Str$(x +100) End Sub

Syntax
AppWindowPosTop [WindowName$,] VertPos

AppWindowPosTop([WindowName$])

Example
The AppWindowPosTop statement moves an application window or icon to a vertical position specified in points (if WindowName$ is omitted, Word is assumed). AppWindowPosTop allows you to change the vertical position of a window or icon without affecting its horizontal position (unlike AppMove). The AppWindowPosTop function returns the vertical position of an application window or icon, in points. For argument descriptions, see AppMove.

 Sub MAIN x = 0 state = AppMaximize If state = - 1 Then AppRestore x = AppWindowPosTop MsgBox "The distance from the top is: " + Str$(x) AppWindowPosTop x + 100 MsgBox "The distance from the top is: " + Str$(x + 100) End Sub

Syntax
AppWindowWidth [WindowName$,] Width

AppWindowWidth([WindowName$])

Example
The AppWindowWidth statement adjusts the width of an application window to a specified number of points (if WindowName$ is omitted, Word is assumed). AppWindowWidth allows you to change the width of a window without affecting its height (unlike AppSize). The AppWindowWidth function returns the width of an application window, in points. For argument descriptions, see AppSize.

 Sub MAIN x = 0 state = AppMaximize If state = - 1 Then AppRestore x = AppWindowWidth MsgBox "The width of this window is: " + Str$(x) AppWindowWidth x / 2 MsgBox "The width of this window is: " + Str$(x / 2) Additional query words: 6.0 winword word6 7.0 word95 word7

Keywords : kbmacroexample

Issue type :

Technology :