Microsoft Knowledge Base

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

SUMMARY

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

   DrawClearRange

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.

DrawClearRange

Syntax

DrawClearRange

Example

The following macro sets the range to the current page. The range is then cleared, which results in an error when the DrawCount() function is attempted.

 Sub MAIN
  If SelInfo(27) = - 1 Then FileNewDefault
   ViewPage
   a = DrawSetRange("\page")
   DrawEllipse
   CharRight 1
   NumDrawings = DrawCount()
   MsgBox "The range is set for the current page."
   DrawClearRange
   On Error Goto ErrorHandle
   NumDrawings = DrawCount()
   Goto Bye
  ErrorHandle:
   MsgBox "The range has been cleared."
  Bye:
 End Sub