Translation - art & business » Translator resources »
Software to count the number of words inserted and deleted in Word - suggestions needed
Thread poster: Laerte da Silva
Laerte da Silva
Laerte da Silva  Identity Verified
Brazil
Local time: 00:12
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
 
Emma Goldsmith
Emma Goldsmith  Identity Verified
Spain
Local time: 05:12
Member (2004)
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 Fil... See more
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 ▲ Collapse
 
Laerte da Silva
Laerte da Silva  Identity Verified
Brazil
Local time: 00:12
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
lDeletes... See more
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 ▲ Collapse
 
Laerte da Silva
Laerte da Silva  Identity Verified
Brazil
Local time: 00:12
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
 
Emma Goldsmith
Emma Goldsmith  Identity Verified
Spain
Local time: 05:12
Member (2004)
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
 
Laerte da Silva
Laerte da Silva  Identity Verified
Brazil
Local time: 00:12
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 insertion... See more
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 ▲ Collapse
 


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

Moderator(s) of this forum
Maria Castro[Call to this topic]
Nawal Kramer[Call to this topic]

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







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 »
Anycount & Translation Office 3000
Translation Office 3000

Translation Office 3000 is an advanced accounting tool for freelance translators and small agencies. TO3000 easily and seamlessly integrates with the business life of professional freelance translators.

More info »