[2005] Word Count Software/API

[szlamany]

Anyone have any experience with using any word count software - such as Practicount?

I'm looking for an API that will do counts of words in a .DOC file.

[Hack]

Would something like this work for you?

Public Class Form1
Private WordApp As New Word.ApplicationClass()
   
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
Dim MyDoc As Word.Document = WordApp.Documents.Open("c:\szlamany.doc")
Dim DocumentWordCount As Integer = DirectCast(MyDoc.Range.ComputeStatistics(Word.WdStatistic.wdStatisticWords), Integer)
MessageBox.Show(DocumentWordCount.ToString)
MyDoc.Close()
 
End Sub
End Class

[szlamany]

Unfortunately the customer tells me WORD is not accurate - especially with some languages.

I tried to contact PRACTICOUNT - and no one answers my e-mails...

[Hack]

Tell your customer that using

MyDoc.Words.Count.ToString

is not accurate, but, the computestatistics is accurate.

Test it for yourself.

Open a word document and do tools/Word Count so you know what it should be.

Now run that code, first with MyDoc.Words.Count.ToString and next with
Dim DocumentWordCount As Integer = DirectCast(MyDoc.Range.ComputeStatistics(Word.WdStatistic.wdStatisticWords), Integer)

The latter will be right on the money.

[szlamany]

I guess these products like PractiCount see words that WORD does not - like in table and even in some kinds of images. And these word's need to be counted as well.

They currently use PractiCount - but through the PractiCount UI - we are trying to integrate our new tracking software with the document folders and do our word counting through an API to a product.

And of course the product cannot be WORD - they have expectations of performance that match these other products...

[Juraj Svincak]

Hi,

did you find out the solution of counting the words?

Thanks,

Juraj

Would something like this work for you?

Public Class Form1
Private WordApp As New Word.ApplicationClass()
   
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
Dim MyDoc As Word.Document = WordApp.Documents.Open("c:\szlamany.doc")
Dim DocumentWordCount As Integer = DirectCast(MyDoc.Range.ComputeStatistics(Word.WdStatistic.wdStatisticWords), Integer)
MessageBox.Show(DocumentWordCount.ToString)
MyDoc.Close()
 
End Sub
End Class

[Juraj Svincak]

hi, did you find some solution for counting the words? Thanks for your help.

[szlamany]

No need to PM me - I prefer keep all activity on the forum itself...

No - this never got solved in a better fashion then what is discussed here.

If you are dealing with .DOCX files - they are simply ZIP files (rename it to .ZIP and you will see the "storage format" quite clearly.

Google for SPIRE.DOC and you will find some libraries you can use - they are not free though...

[Pradeep1210]

Try this:
http://pradeep1210.wordpress.com/201...erties-viewer/

It will show you a lot of information including the "Word Count". You can customize this as per your needs and remove the entries you don't want.