WordBasic Examples: NormalFontPosition, NormalFontSpacing

ID: Q106315

The information in this article applies to:

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

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.

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

Kbcategory: kbusage kbmacro KBSubcategory: kbmacroexample Additional query words: 6.0 winword word6 6.0a 6.0c 7.0 word95 word7

Keywords          : kbmacroexample 
Version           : 6.0 6.0a 6.0c 7.0
Platform          : WINDOWS

Last Reviewed: July 31, 1997