Software to count the number of words inserted and deleted in Word - suggestions needed
Thread poster: Laerte da Silva
Laerte da Silva  Identity Verified
Brazil
Local time: 07:48
English to Portuguese
+ ...
Nov 8, 2012

HI everyone


Does anyone know any software that counts the number of words inserted and deleted in word? I saw one some time ago but can't remember the name.




Kind regards,


Laerte J Silva


Direct link Reply with quote
 

Emma Goldsmith  Identity Verified
Spain
Local time: 12:48
Member (2010)
Spanish to English
2 links Nov 8, 2012

Macros and other workarounds were discussed a month ago in this thread:
http://www.proz.com/forum/software_applications/235450-macros_for_track_changes_word_count.html

And Filipe Samora discussed Practicount here:
http://thewordmatrix.wordpress.com/2012/09/30/counting-track-changes-in-ms-word/comment-page-1/#comment-38

HTH,
Emma


Direct link Reply with quote
 
Laerte da Silva  Identity Verified
Brazil
Local time: 07:48
English to Portuguese
+ ...
TOPIC STARTER
Another macro Nov 8, 2012

Also found this macro. Works wonderfully. I had a look at practicount but couldn't see it could count changes. I'll have a second look.



Sub GetTCStats()
Dim lInsertsWords As Long
Dim lInsertsChar As Long
Dim lDeletesWords As Long
Dim lDeletesChar As Long
Dim sTemp As String
Dim oRevision As Revision

lInsertsWords = 0
lInsertsChar = 0
lDeletesWords = 0
lDeletesChar = 0
For Each oRevision In ActiveDocument.Revisions
Select Case oRevision.Type
Case wdRevisionInsert
lInsertsChar = lInsertsChar + Len(oRevision.Range.Text)
lInsertsWords = lInsertsWords + oRevision.Range.Words.Count
Case wdRevisionDelete
lDeletesChar = lDeletesChar + Len(oRevision.Range.Text)
lDeletesWords = lDeletesWords + oRevision.Range.Words.Count
End Select
Next oRevision

sTemp = "Insertions" & vbCrLf
sTemp = sTemp & " Words: " & lInsertsWords & vbCrLf
sTemp = sTemp & " Characters: " & lInsertsChar & vbCrLf
sTemp = sTemp & "Deletions" & vbCrLf
sTemp = sTemp & " Words: " & lDeletesWords & vbCrLf
sTemp = sTemp & " Characters: " & lDeletesChar & vbCrLf
MsgBox sTemp
End Sub



Thanks.


Laerte


Direct link Reply with quote
 
Laerte da Silva  Identity Verified
Brazil
Local time: 07:48
English to Portuguese
+ ...
TOPIC STARTER
Error in macro Nov 8, 2012

Hi Emma


The macro in your site had a mistake.

End Ifd should be End If


I corrected and tested it and worked all right.


The previous macro counts insertions and deletions as well.


All the best,



Laerte J Silva


Direct link Reply with quote
 

Emma Goldsmith  Identity Verified
Spain
Local time: 12:48
Member (2010)
Spanish to English
Corrected! Nov 8, 2012

Laerte da Silva wrote:

Hi Emma

The macro in your site had a mistake.

End Ifd should be End If



Thanks for the heads up, Laerte. I had a problem with file uploading/downloading on Wordpress and somehow an extra "d" slipped in along the way! I've sorted it out now.

I'll test your macro when I get a moment - it looks very useful as it accounts for deletions too.

Emma


Direct link Reply with quote
 
Laerte da Silva  Identity Verified
Brazil
Local time: 07:48
English to Portuguese
+ ...
TOPIC STARTER
Word macros Nov 8, 2012

Thanks a lot too!


Some might find this useful too:

Macro – extract tracked changes to new document

You may wish to get en overview of tracked changes (revisions) in a document. You can print the changes by selecting "List of Markup" in the "Print What" field in the Print dialog box. However, you may want the overview in electronic form. Here you will find a macro that lets you extract the tracked changes to a new document. Note that only insertions and deletions will be included whereas other types of changes (formatting changes etc.) will be skipped. Also note that the macro will only include insertions and deletions in the main body of the document (i.e. changes in headers, footers, footnotes and endnotes will not be included).
BulletREAD TIP Macro – extract tracked changes to new document

http://www.thedoctools.com/index.php?show=macros


ljs


Direct link Reply with quote
 


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


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

Software to count the number of words inserted and deleted in Word - suggestions needed

Advanced search







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 »
SDL Trados Studio 2017 Freelance
The leading translation software used by over 250,000 translators.

SDL Trados Studio 2017 helps translators increase translation productivity whilst ensuring quality. Combining translation memory, terminology management and machine translation in one simple and easy-to-use environment.

More info »



Forums
  • All of ProZ.com
  • Term search
  • Jobs
  • Forums
  • Multiple search