DOCUMENT:Q162528  13-MAY-2002  [word97]
TITLE   :WD97: Returning Object Counts for Parts of a Document
PRODUCT :Word 97 for Windows
PROD/VER:WINDOWS:97
OPER/SYS:
KEYWORDS:kbdta kbdtacode word8 kbwordvba word97

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Word 97 for Windows 
-------------------------------------------------------------------------------


SUMMARY
=======

In Visual Basic for Applications, an object represents an element of an
application, such as a document, a paragraph, a sentence, a word, or a field.

A collection is an object that contains several other objects, usually, but not
always, of the same type. In Microsoft Word, for example, the Documents
Collection object contains all the open document objects.

At times it may be necessary when you write Visual Basic for Applications macros
to return the number of objects within a particular collection of objects.

This article discusses methods that can be used to return the count of a
collection of objects for part or all of a document including but not limited to
objects located in headers, footers, and different sections of a document.

MORE INFORMATION
================

Microsoft provides programming examples for illustration only, without warranty
either expressed or implied, including, but not limited to, the implied
warranties of merchantability and/or fitness for a particular purpose. This
article assumes that you are familiar with the programming language being
demonstrated and the tools used to create and debug procedures. Microsoft
support professionals can help explain the functionality of a particular
procedure, but they will not modify these examples to provide added
functionality or construct procedures to meet your specific needs. If you have
limited programming experience, you may want to contact a Microsoft Certified
Partner or the Microsoft fee-based consulting line at (800) 936-5200. For more
information about Microsoft Certified Partners, please visit the following
Microsoft Web site:

   http://www.microsoft.com/partner/referral/

For more information about the support options that are available and about how
to contact Microsoft, visit the following Microsoft Web site:

   http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Method 1: To Return a Count of Objects for an Entire Document
-------------------------------------------------------------

To return a count of objects for an entire document including those contained in
headers, footers, comments, endnotes, footnotes and text frames use the
StoryRanges Collection object.

A Story object is contained within the Story Collection. Members of the Story
collection are

 - The Main Text or Body of a Document

 - First Page Header

 - First Page Footer

 - Primary Header

 - Primary Footer

 - Even Pages Headers

 - Even Pages Footers

 - Comments

 - EndNotes

 - Footnotes

 - Text Frames

For example, to count the number of fields in all stories of a document, use the
following example:

      Sub CountAllFields()
         Dim iCount As Integer
         Dim aStory As Range
         For Each aStory In ActiveDocument.StoryRanges
            iCount = iCount + aStory.Fields.Count
         Next
         MsgBox iCount
      End Sub

To count the number of Shapes(Drawing Objects) in all stories of a document, use
the following example:

      Sub CountAllShapes()
         Dim iCount As Integer
         Dim aStory As Range
         For Each aStory In ActiveDocument.StoryRanges
            iCount = iCount + aStory.Application.ActiveDocument.Shapes.Count
         Next
         MsgBox iCount
      End Sub

To count the number of Hyperlinks in all stories of a document, use the following
example:

      Sub CountAllHyperLinks()
         Dim iCount As Integer
         Dim aStory As Range
         For Each aStory In ActiveDocument.StoryRanges
            iCount = iCount + _
            aStory.Application.ActiveDocument.Hyperlinks.Count
         Next
         MsgBox iCount
      End Sub

Method 2: To Return a Count of Objects for Part of a Document
-------------------------------------------------------------

To return a count of items for a single member of the StoryRange, specify a
member of the story range with a wdStoryType constant.

In this example, the wdMainTextStory constant is used in conjunction with the
Paragraphs collection to return the count of paragraphs in the main text or body
of a document:

      Sub CountParagraphs()
         With ActiveDocument.StoryRanges(wdMainTextStory)
            MsgBox .Paragraphs.Count
         End With
      End Sub

In this example, the wdMainTextStory constant is used in conjunction with the
Sentences Collection to return the count of sentences in the main body of a
document:

      Sub CountSentencesInMainDocBody()
         With ActiveDocument.StoryRanges(wdMainTextStory)
            MsgBox .Sentences.Count
         End With
      End Sub

For more information about StoryRanges, from the Visual Basic Editor, click the
Office Assistant, type "StoryRanges" (without the quotation marks) click Search,
and then click to view "StoryRanges."

NOTE: If the Assistant is hidden, click the Office Assistant button on the
Standard toolbar. If the Assistant is not able to answer your query, please see
the following article in the Microsoft Knowledge Base:

   Q176476 OFF: Office Assistant Not Answering Visual Basic Questions

For additional information, please see the following article in the Microsoft
Knowledge Base:

   Q173707 OFF97: How to Run Sample Code from Knowledge Base Articles


REFERENCES
==========

For more information about getting help with Visual Basic for Applications,
please see the following article in the Microsoft Knowledge Base:

   ARTICLE-ID: Q163435 VBA: Programming Resources for Visual Basic for
   Applications


Additional query words: wordcon vb vba vbe

======================================================================
Keywords          : kbdta kbdtacode word8 kbwordvba word97 
Technology        : kbWordSearch kbWord97 kbWord97Search kbZNotKeyword2
Version           : WINDOWS:97
Issue type        : kbhowto

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 2002.