Pages in topic:   [1 2] >
Word count on MS Word with lots of text boxes
Thread poster: María Teresa Taylor Oliver
María Teresa Taylor Oliver
María Teresa Taylor Oliver  Identity Verified
Panama
Local time: 04:04
Spanish to English
+ ...
Sep 19, 2003

Hi, first post here

I have this document in MS Word, over 50 pages long, and I can do the word count with the Word Count Tool with no problem, BUT does this tool ALSO count words in text boxes? These are boxes drawn with the text box tool in the Drawing toolbar, and then written on. And my document has LOTS of these boxes!

Any help?

Thanks!
~*MT*~


 
Jerzy Czopik
Jerzy Czopik  Identity Verified
Germany
Local time: 10:04
Member (2003)
Polish to German
+ ...
Word usually does not count words in text boxes Sep 21, 2003

And yet I did not find any workaround for this.
Perhaps savin in text-only format could help - if the text from text boxes is included, than the size of the file in kB gives you the number of characters within. The rest is simply maths.

Kind regards
Jerzy


 
Robin Salmon (X)
Robin Salmon (X)  Identity Verified
Australia
Local time: 19:04
German to English
+ ...
What about Trados? Sep 22, 2003

I currently have the same problem and tried analysing the original Word doc in Trados. I got 2,500 words, compared to the 1,750 in Word.
Can other, more experienced translators confirm the accuracy of this method?


 
Narasimhan Raghavan
Narasimhan Raghavan  Identity Verified
Local time: 14:34
English to Tamil
+ ...
In memoriam
Copy pasting the textbox contents in an empty word document Sep 22, 2003

This was what I used to do. But Practicount has made this procedure unnecessary. Remember however one thing. While invoicing, inform the client that the wordcount includes the text boxes too, which are not included in the tools menu of Word, lest he should get back to you for the apparent discrepancy in the wordcount.

 
Charlotte Blank
Charlotte Blank  Identity Verified
Germany
Local time: 10:04
Czech to German
+ ...
Simply maths? Sep 22, 2003

Jerzy Czopik wrote:

... the size of the file in kB gives you the number of characters within. The rest is simply maths.

Kind regards
Jerzy



Hi Jerzy,

not being much endowed with maths (to tell the truth: not at all), I'd like to ask you: Could you please state how to do this calculation?

Thanks a lot!

Charlotte


 
Jerzy Czopik
Jerzy Czopik  Identity Verified
Germany
Local time: 10:04
Member (2003)
Polish to German
+ ...
Simple mathematics Sep 22, 2003

What you need are some large files, which you have to analyse in Trados. Then you get a number of characters per word for each file. Build the average of them all. Dividing the number of characters in each file through the number of characters per word will give you the number of word per in your file. That´s all - it is really simple.

HTH
Jerzy


 
Andrzej Mierzejewski
Andrzej Mierzejewski  Identity Verified
Poland
Local time: 10:04
Polish to English
+ ...
counting words/characters in .doc files Sep 23, 2003

From my experience: you should copy texts from all text fields into the main text - field by field. Then you can have it counted by Word.
That's the only way I know.
File format change for .txt will NOT help.


 
Stephen Boyd
Stephen Boyd
Ireland
French to English
+ ...
Macro Sep 23, 2003

I found a way to do this using a very short VBA program (macro). It's on my computer at work. I can post it tomorrow.
Stephen


 
Stephen Boyd
Stephen Boyd
Ireland
French to English
+ ...
Word macro Sep 23, 2003

Sub Wordcount()
Dim Wordcount As Long
Wordcount = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)
For Each ashape In ActiveDocument.Shapes
If ashape.TextFrame.HasText Then
Wordcount = Wordcount + ashape.TextFrame.TextRange.ComputeStatistics(Statistic:=wdStatisticWords)
End If
Next ashape
MsgBox ("The document has " & Wordcount & " words")
End Sub


 
Andrzej Mierzejewski
Andrzej Mierzejewski  Identity Verified
Poland
Local time: 10:04
Polish to English
+ ...
counting words Sep 25, 2003

this VBA really works!
Good job, sboyd!
Thanks!


 
Martina Svehlova Jurikova
Martina Svehlova Jurikova
Local time: 10:04
English to Slovak
+ ...
Thank you! Sep 25, 2003

I have tried the VBA on some documents and it works.
By the way, does anybody have a similar VBA for character counting?
It would be appreciated beacause of invoicing for standard pages based on fixed number of characters including spaces.

Have a nice day!

Martina


 
Stephen Boyd
Stephen Boyd
Ireland
French to English
+ ...
Try this Sep 25, 2003

Glad the last one worked for you.
For characters with spaces, try this:

Sub Charactercount()
Dim Charactercount As Long
Charactercount = ActiveDocument.BuiltInDocumentProperties(wdPropertyCharsWSpaces)
For Each ashape In ActiveDocument.Shapes
If ashape.TextFrame.HasText Then
Charactercount = Charactercount + ashape.TextFrame.TextRange.ComputeStatistics(Statistic:=wdStatisticCharactersWithSpaces)
End If
Next ashape
MsgBox ("The do
... See more
Glad the last one worked for you.
For characters with spaces, try this:

Sub Charactercount()
Dim Charactercount As Long
Charactercount = ActiveDocument.BuiltInDocumentProperties(wdPropertyCharsWSpaces)
For Each ashape In ActiveDocument.Shapes
If ashape.TextFrame.HasText Then
Charactercount = Charactercount + ashape.TextFrame.TextRange.ComputeStatistics(Statistic:=wdStatisticCharactersWithSpaces)
End If
Next ashape
MsgBox ("The document has " & Charactercount & " characters with spaces")
End Sub
Collapse


 
María Teresa Taylor Oliver
María Teresa Taylor Oliver  Identity Verified
Panama
Local time: 04:04
Spanish to English
+ ...
TOPIC STARTER
Thanks, but can you explain how to run this macro? Sep 25, 2003

I have no idea how to apply this!

Thanks again!


sboyd wrote:

Sub Wordcount()
Dim Wordcount As Long
Wordcount = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)
For Each ashape In ActiveDocument.Shapes
If ashape.TextFrame.HasText Then
Wordcount = Wordcount + ashape.TextFrame.TextRange.ComputeStatistics(Statistic:=wdStatisticWords)
End If
Next ashape
MsgBox ("The document has " & Wordcount & " words")
End Sub


 
Stephen Boyd
Stephen Boyd
Ireland
French to English
+ ...
A link to explain how to install macros Sep 26, 2003

It's quite hard to explain quickly - here's a useful web page:

http://www.mvps.org/word/FAQs/MacrosVBA/CreateAMacro.htm


 
Heinrich Pesch
Heinrich Pesch  Identity Verified
Finland
Local time: 11:04
Member (2003)
Finnish to German
+ ...
You saved me 100 euro right away! Sep 29, 2003

Thanks very much for the macros! As it happened I had just such a document at hand. if I had believed Word I would have charged 100 Euro too little.

 
Pages in topic:   [1 2] >


To report site rules violations or get help, contact a site moderator:


You can also contact site staff by submitting a support request »

Word count on MS Word with lots of text boxes







CafeTran Espresso
You've never met a CAT tool this clever!

Translate faster & easier, using a sophisticated CAT tool built by a translator / developer. Accept jobs from clients who use Trados, MemoQ, Wordfast & major CAT tools. Download and start using CafeTran Espresso -- for free

Buy now! »
Protemos translation business management system
Create your account in minutes, and start working! 3-month trial for agencies, and free for freelancers!

The system lets you keep client/vendor database, with contacts and rates, manage projects and assign jobs to vendors, issue invoices, track payments, store and manage project files, generate business reports on turnover profit per client/manager etc.

More info »