Pages in topic: [1 2] > |
Word count on MS Word with lots of text boxes Thread poster: María Teresa Taylor Oliver
|
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 Germany Local time: 07:50 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) Australia Local time: 16:50 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? | | |
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. | |
|
|
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 Germany Local time: 07:50 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 | | |
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. | | |
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 | |
|
|
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 | | |
counting words | Sep 25, 2003 |
this VBA really works! Good job, sboyd! Thanks! | | |
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 | | |
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 | |
|
|
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 | | |
|
Heinrich Pesch Finland Local time: 08:50 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] > |