WD: Macro to Count Sections in a Document

• Microsoft Word for Windows, versions 2.0, 2.0a, 2.0a-CD, 2.0b, 2.0c, 6.0, 6.0a, 6.0c
• Microsoft Word for Windows NT, version 6.0
• Microsoft Word for Windows 95, versions 7.0, 7.0a
• Word for the Macintosh, versions 6.0, 6.0.1

SUMMARY

The WordBasic macro described in this article returns the total number of sections in your Microsoft Word document.

MORE INFORMATION

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.

   Sub MAIN
      EndOfDocument
      x = SelInfo(2)
      MsgBox Str$(x) + " section(s) in this document.", "Section Count", 48
   End Sub

   n = SelInfo(Type)

Type 2 returns the section number containing the selection. To retrieve the total number of sections in a document, move the insertion point to the end of the document before you use the SelInfo() function. SelInfo() is not available in Word version 1.x for Windows.

For information about how to do this in Word 97 or later, please see the following article in the Microsoft Knowledge Base:

   ARTICLE-ID: Q170891
   TITLE     :  WD97: Macro to Count Sections in a Document 

REFERENCES

"Using WordBasic" by WexTech Systems, Inc. and Microsoft Corporation, Microsoft Press, page 277.