Results 1 to 3 of 3
  1. #1
    2 Star Lounger
    Join Date
    May 2006
    Location
    Portland, Oregon, USA
    Posts
    158
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Word Count (2003)

    Is there a way to include footnotes in the word count?
    Charlotte Quiroz

  2. #2
    Super Moderator
    Join Date
    May 2002
    Location
    Canberra, Australian Capital Territory, Australia
    Posts
    5,054
    Thanks
    2
    Thanked 417 Times in 346 Posts

    Re: Word Count (2003)

    Hi Charlotte,

    Not with a field (eg NUMWORDS or 'Docproperty Words'). But you could do it with a macro like:

    Sub WordCount()
    Dim pRange As Word.Range ' Word Range Object
    Dim Counter As Long
    Counter = 0
    ' Loop through Story Ranges and get word count.
    For Each pRange In ActiveDocument.StoryRanges
    Counter = Counter + pRange.Words.Count
    Next
    MsgBox "Document Word Count: " & Counter
    End Sub

    The above macro not only gets word counts from footers and the like, but also from text boxes.
    Cheers,

    Paul Edstein
    [MS MVP - Word]

  3. #3
    2 Star Lounger
    Join Date
    May 2006
    Location
    Portland, Oregon, USA
    Posts
    158
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Word Count (2003)

    Very cool...Thank You! <img src=/S/doctor.gif border=0 alt=doctor width=25 height=33>
    Charlotte Quiroz

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •