WordBasic Examples: NormalFontPosition, NormalFontSpacing

• Microsoft Word for Windows, versions 6.0, 6.0a, 6.0c
• Microsoft Word for Windows 95, version 7.0

SUMMARY

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

   NormalFontPosition

   NormalFontSpacing

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.

NormalFontPosition NormalFontSpacing

Syntax

NormalFontPosition NormalFontSpacing

Example

This example types sample text into the document, then adds spacing and subscripting to the text. It then resets the text using the NormalFontPosition and NormalFontSpacing commands.

Sub MAIN
     Insert "This is a Test"
     MsgBox "Press OK to change the spacing and position of this text"
     StartOfLine 1
     FormatFont .Position = - 150, .Spacing = 200
     EndOfLine
     MsgBox "Press OK to reset the text back to normal"
     StartOfLine 1
     NormalFontPosition
     NormalFontSpacing
     EndOfLine
End Sub