WD: Macro to Count Sections in a Document

ID: Q97910

The information in this article applies to:

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

The syntax for SelInfo() is as follows:

   n = SelInfo(Type)

There are 36 different arguments or types for the SelInfo function in Word versions 6.x and 7.x for Windows (30 different arguments in Word version 2.x for Windows).

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.

Additional query words: word6 winword word95 word7 winword2 editfind section page selinfo search macword

Keywords          : kbmacro kbmacroexample 
Version           : WINDOWS:2.0,2.0a,2.0a-CD,2.0b,2.0c,6.0,6.0a,6.0c,7.0,7.0a; MACINTOSH:6.0,6.0.1,6.0.1a
Platform          : MACINTOSH Win95 WINDOWS winnt
Issue type        : kbinfo

Last Reviewed: February 3, 1998