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: 00:47
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: 03:47
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: 00:47
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: 00:47
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: 03:47
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: 00:47
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







PerfectIt consistency checker
Faster Checking, Greater Accuracy

PerfectIt helps deliver error-free documents. It improves consistency, ensures quality and helps to enforce style guides. It’s a powerful tool for pro users, and comes with the assurance of a 30-day money back guarantee.

More info »
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 SDL Trados, MemoQ, Wordfast & major CAT tools. Download and start using CafeTran Espresso -- for free

More info »



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