How to get the number of words in the file (please see details)?

[Jamal NUMAN]

How to get the number of words in the file (please see details)?

Please, see the attached image that shows my question

I need to know the words count except:

• Words in tables
• Words in header and footer
• Words in caption
• Words in the references page

Why I need that?

In most of the assignments, they need us to right up to 2000 words (for example) but the don’t count the words in table, header, footer, caption and in the page of refences. This is why we need an automatic way to get the net word count

Is this feature available in word?

Regard

Jamal

[macropod]

Hi Jamal,

Word doesn't have anything built-in to do the word count the way you want it. it could be done with a macro, though.

[Jamal NUMAN]

Thank you for the answer.

actually, i'vo no experince how to work with macro. could you please elaborate more.

this will save a lot of time, rigth now, i'm used to do the neet count of words manully,

first i get the count of all words in the file, then the words in tables, then the caption, then the refernces.

then

words count = total count - words in table - words in caption - words in refernces

should i continue doing it manually?


regards

jamal

Originally Posted by macropod

Hi Jamal,

Word doesn't have anything built-in to do the word count the way you want it. it could be done with a macro, though.

[BrazzellMarketing]

Highlight the text you want to count. Click Review in the top menu. Select "Word Count" from the Proofing section of the Review ribbon menu. The count that appears is just the count for the area you've selected. If the text you want to count is broken up by tables and other elements that can throw off your count, two options:

1. Select the text areas as far as you can. Write down the total. Select the next text area. So forth. Add your totals.
2. Select and copy all the text you want to count. Paste it into a blank document. Count the new document. Delete the new document.

[Jamal NUMAN]

Thank you for the answer.

please, see the attached image that shows that words count directly the number of selected words.

well, i think that the only soluiton is the MS word must be develpoed in such a way to achieve what we r looking for (which list).

The method that you have provided is manual and not practical for large files which contains hundreds of pages.

do u agree with me?

Originally Posted by BrazzellMarketing

Highlight the text you want to count. Click Review in the top menu. Select "Word Count" from the Proofing section of the Review ribbon menu. The count that appears is just the count for the area you've selected. If the text you want to count is broken up by tables and other elements that can throw off your count, two options:

1. Select the text areas as far as you can. Write down the total. Select the next text area. So forth. Add your totals.
2. Select and copy all the text you want to count. Paste it into a blank document. Count the new document. Delete the new document.

[macropod]

Hi Jamal,

Give me some more time and I'll write a macro for you. Remember, this is a volunteer arrangement and we all need to fit these things in around whatever else we're doing...

[Jamal NUMAN]

Sure.

very much appreciated.

thank

regards

Jamal

Originally Posted by macropod

Hi Jamal,

Give me some more time and I'll write a macro for you. Remember, this is a volunteer arrangement and we all need to fit these things in around whatever else we're doing...

[BrazzellMarketing]

Originally Posted by Jamal NUMAN

Thank you for the answer.

please, see the attached image that shows that words count directly the number of selected words.

well, i think that the only soluiton is the MS word must be develpoed in such a way to achieve what we r looking for (which list).

The method that you have provided is manual and not practical for large files which contains hundreds of pages.

do u agree with me?

Yes. If that strategy creates more than ten sections, that would be too much manual stuff for something a macro could do automatically.

[macropod]

Hi Jamal,

The following macro gives you a wide range of statistics

Sub CountWords()
Application.ScreenUpdating = False
Dim oTbl As Table, lTbl As Long, Sctn As Section
Dim oHdFt As HeaderFooter, lHdr As Long, lFtr As Long
Dim oEnt As Endnote, lEnt As Long
Dim oFnt As Footnote, lFnt As Long
Dim oShp As Shape, lShp As Long
Dim oPara As Paragraph, lCpt As Long
With ActiveDocument
  For Each oTbl In .Tables
    lTbl = lTbl + oTbl.Range.ComputeStatistics(wdStatisticWords)
  Next
  For Each oEnt In .Endnotes
    lEnt = lEnt + oEnt.Range.ComputeStatistics(wdStatisticWords)
  Next
  For Each oFnt In .Footnotes
    lFnt = lFnt + oFnt.Range.ComputeStatistics(wdStatisticWords)
  Next
  For Each Sctn In .Sections
    For Each oHdFt In Sctn.Headers
      If Not oHdFt.LinkToPrevious Then _
        lHdr = lHdr + oHdFt.Range.ComputeStatistics(wdStatisticWords)
    Next
    For Each oHdFt In Sctn.Footers
      If Not oHdFt.LinkToPrevious Then _
        lFtr = lFtr + oHdFt.Range.ComputeStatistics(wdStatisticWords)
    Next
  Next
  For Each oShp In .Endnotes
    If Not oShp.TextFrame Is Nothing Then _
      lShp = lShp + oShp.TextFrame.TextRange.ComputeStatistics(wdStatisticWords)
  Next
  For Each oPara In .Paragraphs
    If oPara.Style = "Caption" Then _
      lCpt = lCpt + oPara.Range.ComputeStatistics(wdStatisticWords)
  Next
  MsgBox "Word Count Statistics:" & vbCr & _
    "Tables - " & vbTab & vbTab & lTbl & vbCr & _
    "EndNotes - " & vbTab & lEnt & vbCr & _
    "Footnotes - " & vbTab & lFnt & vbCr & _
    "Headers - " & vbTab & vbTab & lHdr & vbCr & _
    "Footers - " & vbTab & vbTab & lFtr & vbCr & _
    "Shapes - " & vbTab & vbTab & lShp & vbCr & _
    "Captions - " & vbTab & lCpt & vbCr & _
    "Other - " & vbTab & vbTab & .Range.ComputeStatistics(wdStatisticWords) - lTbl - lCpt
End With
Application.ScreenUpdating = True
End Sub

I haven't included your "Words in the references page" stats, as I don't know how your document is laid out and, therefore, how those stats might best be defined in the vba code. Do note too that words in headers and footers aren't counted by Word anyway.

[Jamal NUMAN]

Very much appreciated paul...but i don't have enough skills to use this macro! could u please explain "if ur time permits" how can i use it to get the statistics that i need.

thank you
regards
Jamal

[macropod]

Hi Jamal,

Originally Posted by Jamal NUMAN

...but i don't have enough skills to use this macro! could u please explain "if ur time permits" how can i use it to get the statistics that i need.

Do you mean to say you've waited all this time before deciding you don't know how to use the macro?!

For installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm

[Jamal NUMAN]

Really, it's great job and would help a lot in counting the words and saving time.

i'm not sure if it is can be developed so that it ignors the count of words in certain pages. for example: the words in the cover page and page of refernces are not counted. otherwise, still we need to count the "effective" number of words in the document manually. This just if yout time permits.

vey much appreciated Paul...fantastic.

regards

Jamal

[Jamal NUMAN]

I've another suggestion, if possibel:

why the word count in the micro doesn't count the number of words if we select certain paragraph or pages? instead, it gives the total for all words in the document.

thank you

regards

Jamal

[macropod]

Hi Jamal,

Originally Posted by Jamal NUMAN

i'm not sure if it is can be developed so that it ignors the count of words in certain pages. for example: the words in the cover page and page of refernces are not counted.

This would be difficult to do, because there is no way for a macro to determine which pages might be cover pages and reference pages. The best you could do is to get a word count based on a pre-selected range.

Originally Posted by Jamal NUMAN

why the word count in the micro doesn't count the number of words if we select certain paragraph or pages? instead, it gives the total for all words in the document.

If you only want the word count for a selected range, change ‘ActiveDocument’ to ‘Selection’. Do note that, if you do this, the word counts for footnotes & end notes will relate to those anchored in the selected range, regardless of where they’re physically located. Header & Footer counts are based on one count per Section in the selected range (provided that Section is not linked to a previous one).

[Jamal NUMAN]

Sorry bothering you again.

i've switched the ‘ActiveDocument’ to ‘Selection’ but didn't work...still counts the whole word in the document

the image is attached

what i might have done wrong?

thank you

regards

Jamal

Originally Posted by macropod

Hi Jamal,

This would be difficult to do, because there is no way for a macro to determine which pages might be cover pages and reference pages. The best you could do is to get a word count based on a pre-selected range.
If you only want the word count for a selected range, change ‘ActiveDocument’ to ‘Selection’. Do note that, if you do this, the word counts for footnotes & end notes will relate to those anchored in the selected range, regardless of where they’re physically located. Header & Footer counts are based on one count per Section in the selected range (provided that Section is not linked to a previous one).