Results 1 to 10 of 10

Thread: WD2000 Tools

  1. #1
    New Lounger
    Join Date
    Feb 2001
    Posts
    19
    Thanks
    0
    Thanked 0 Times in 0 Posts

    WD2000 Tools

    Exactly what is counted in these statistics? Sometimes the Word count on Tools menu is different from the Property statistics, sometimes it's not. It's very confusing.

  2. #2
    Super Moderator
    Join Date
    Dec 2000
    Location
    New York, NY
    Posts
    2,970
    Thanks
    3
    Thanked 29 Times in 27 Posts

    Re: WD2000 Tools

    The brief answer is to avoid using the statistics word count, this is usually inaccurate.
    There are at least three ways to get some sort of word count; the one that provides the most accurate result is the Word count item on the Tools menu.
    (There was a thread on this topic on the old Lounge, and some folks posted great information; lost alas.)

    For more information on Word Count, you might look at these MS KB articles:

    First article
    Second article

  3. #3
    New Lounger
    Join Date
    Feb 2001
    Posts
    19
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: WD2000 Tools

    I've seen those articles in the Knowledge Base. Thank you. The articles make no mention of headers and footers. Seems to me I recall that Word 97 didn't count this in the Word count, yet I see no mention about it in Word 2000. I understand the count can be wrong for many reasons, and to not trust it at all, but it would be helpful to know exactly what it does count. Thanks for your help!

  4. #4
    Super Moderator
    Join Date
    Dec 2000
    Location
    New York, NY
    Posts
    2,970
    Thanks
    3
    Thanked 29 Times in 27 Posts

    Re: WD2000 Tools

    Hi again,

    It is a safe bet that Word Count doesn't count text in headers and footers. Nor would it count content in the drawing layer. I'm not really sure exactly what it does count!

    In case it's of any use, the following macro takes advantage of the Word Count dialog to produce a count for all words, characters and characters w/spaces, in all the story ranges in a document - this should cover the whole document including headers, footers, footnotes, comments, text in graphics etc.

    Only caveat is that it's based on the Word Count feature so I can't vouch for its accuracy!

    <pre>Sub ShowTotalWordCountForAllStoryRanges()
    'Gary Frieder February 2001
    'Word 97
    'Use Tools>Word Count feature to get word count
    'for all StoryRanges in a document
    'Note: even if header/footer items repeat on continuation pages,
    'they are only counted once!
    Dim lngWdCt As Long
    Dim lngCharCt As Long
    Dim lngCharNSpaceCt As Long
    Dim rngStory As Range
    Dim lngUserView As Long
    lngUserView = ActiveWindow.View.Type

    Application.ScreenUpdating = False
    For Each rngStory In ActiveDocument.StoryRanges
    rngStory.Select
    With Dialogs(wdDialogToolsWordCount)
    .Show (1)
    lngWdCt = (lngWdCt + .Words)
    lngCharCt = (lngCharCt + .Characters)
    lngCharNSpaceCt = (lngCharNSpaceCt + .CharactersIncludingSpaces)
    End With
    Selection.Collapse
    Next rngStory
    MsgBox Prompt:="Total counts for all StoryRanges are as follows: " _
    & vbCr & "Words: " & lngWdCt _
    & vbCr & "Characters: " & lngCharCt _
    & vbCr & "Chars Incl. Spaces: " & lngCharNSpaceCt

    With ActiveWindow
    If .View.Type <> wdPageView Then .View.Type = wdPageView
    .View.SeekView = wdSeekMainDocument
    .View.Type = lngUserView
    End With
    Application.ScreenUpdating = True
    End Sub
    </pre>


  5. #5
    BAM
    Guest

    Re: WD2000 Tools

    Hi Paddy,

    The article is referring to the additional toolbar that is added when you use the Selection Word Count.dot that is available for download.

    As for turning it off, I don't know of a way.
    ~~~~~~~~~~~~~~
    Cheers!

  6. #6
    3 Star Lounger
    Join Date
    Dec 2000
    Location
    Toronto, Ontario
    Posts
    254
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: WD2000 Tools

    Did a search re Word Count and found this discussion.
    However, my problem is quite the opposite: we'd like to turn it off forever! We have a couple of documents from clients that upon opening go through this word count (over 175 & 200 pp respectively) which slows things down considerably plus it is very irritating. One of the articles <A target="_blank" HREF=http://support.microsoft.com/support/kb/articles/Q241/3/33.ASP>http://support.microsoft.com/support/kb/ar...s/Q241/3/33.ASP</A> makes mention of View, Toolbars and click to clear 'Selection Word Count'. Its references word2000 which is what we have but for the life of me can't find any such animal. Only reference to Word Count is found under Tools and there is no option there to turn it off.
    Has anyone any idea about this? TIA, Paddy

  7. #7
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: WD2000 Tools

    If the document does a word count when opened, then VBA code is executing in either the document itself, a global template or the normal template. If the word count only happens for specific document, the code is in the documents (most likely).

    Disabling Tools>Word Count is very easy, but it sounds like what you want is to remove or disable the code that calls the word count.

    Is that correct?
    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

  8. #8
    3 Star Lounger
    Join Date
    Dec 2000
    Location
    Toronto, Ontario
    Posts
    254
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: WD2000 Tools

    Yes, that's right. We'd like to disable Word Count but the toolbar - per the MS Article referenced earlier - that is supposed to be located under Toolbars is NOT there. It only seems to happen with these two rather large docs from an outside firm. We can't find any code in the docs but it is strangely formatted and I think was done in a desktop publishing app. The styles in the doc are varied and badly put together. Changing or converting the docs is not an option. Heard this afternoon that the deal with the client will be finished within the next week so we're just going to live with it. Thanks for your response.

  9. #9
    Silver Lounger Charles Kenyon's Avatar
    Join Date
    Jan 2001
    Location
    Sun Prairie, Wisconsin, Wisconsin, USA
    Posts
    2,049
    Thanks
    124
    Thanked 119 Times in 116 Posts

    Re: WD2000 Tools

    I've included information about problems with Word Count on my and <A target="_blank" HREF=http://www.addbalance.com/usersguide/troubleshooting.htm> Troubleshooting pages. (The insert itself is in a <A target="_blank" HREF=http://www.addbalance.com/usersguide/parts/wordcountwarning.htm> separate page</A>).

    I would like to include your macro both in text and as an available download. Would this be OK?
    Charles Kyle Kenyon
    Madison, Wisconsin

  10. #10
    Super Moderator
    Join Date
    Dec 2000
    Location
    New York, NY
    Posts
    2,970
    Thanks
    3
    Thanked 29 Times in 27 Posts

    Re: WD2000 Tools

    Sure Charles, that's fine. <img src=/S/thumbup.gif border=0 alt=thumbup width=15 height=15>

    I just made one change to it though: don't know why I used ".Show(1)" back then rather than just ".Execute" - temporarily brain lock I think.

    And just to repeat the caveat that went with it - I wouldn't rely on the accuracy of the Word count feature to begin, so neither should this macro be relied upon to be accurate!

    So the following fixes that:

    <pre>Sub ShowTotalWordCountForAllStoryRanges()
    'Gary Frieder amended August 2001
    'Word 97/Word 2000
    'Use Tools>Word Count feature to get word count
    'for all StoryRanges in a document
    'Note: even if header/footer items repeat on continuation pages,
    'they are only counted once!
    Dim lngWdCt As Long
    Dim lngCharCt As Long
    Dim lngCharNSpaceCt As Long
    Dim rngStory As Range
    Dim lngUserView As Long
    lngUserView = ActiveWindow.View.Type

    Application.ScreenUpdating = False
    For Each rngStory In ActiveDocument.StoryRanges
    rngStory.Select
    With Dialogs(wdDialogToolsWordCount)
    .Execute
    lngWdCt = (lngWdCt + .Words)
    lngCharCt = (lngCharCt + .Characters)
    lngCharNSpaceCt = (lngCharNSpaceCt + .CharactersIncludingSpaces)
    End With
    Selection.Collapse
    Next rngStory
    MsgBox Prompt:="Total counts for all StoryRanges are as follows: " _
    & vbCr & "Words: " & lngWdCt _
    & vbCr & "Characters: " & lngCharCt _
    & vbCr & "Chars Incl. Spaces: " & lngCharNSpaceCt

    With ActiveWindow
    If .View.Type <> wdPageView Then .View.Type = wdPageView
    .View.SeekView = wdSeekMainDocument
    .View.Type = lngUserView
    End With
    Application.ScreenUpdating = True
    End Sub
    </pre>

    Gary

Posting Permissions

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