Results 1 to 6 of 6
  1. #1
    New Lounger
    Join Date
    May 2003
    Location
    Croatia
    Posts
    10
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Word Count when Tracking Changes (Word 2000)

    Hi.
    We need to count the number of words changed in a document. If we leave our track changes on, how can we count only the words that were changed?
    Please advise.
    Thanks.
    kw

  2. #2
    Lounger
    Join Date
    Apr 2003
    Location
    Medina, Ohio, USA
    Posts
    44
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Word Count when Tracking Changes (Word 2000)

    May not be exactly what you're looking for it but it might help: <post#=316571>post 316571</post#>

  3. #3
    New Lounger
    Join Date
    May 2003
    Location
    Croatia
    Posts
    10
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Word Count when Tracking Changes (Word 2000)

    Thanks. Was hoping not to have to involve other software but will check out recommendations made.
    Cheers.
    kw

  4. #4
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Word Count when Tracking Changes (Word 2000)

    "Changed" can have many meanings... let me assume that any marked revision is a change. Using VBA code, you can check all of the revisions in the document, so you could count the deleted words and the inserted words (and possibly other kinds of changes). Here's an example of what I mean:

    <pre>Sub CountRevWords()
    Dim lngDeleteRevs As Long, lngDeletedWords As Long
    Dim lngAddRevs As Long, lngAddedWords As Long
    Dim rev As Revision
    For Each rev In ActiveDocument.Revisions
    If rev.Type = wdRevisionDelete Then
    lngDeleteRevs = lngDeleteRevs + 1
    lngDeletedWords = lngDeletedWords + _
    rev.Range.ComputeStatistics(wdStatisticWords)
    ElseIf rev.Type = wdRevisionInsert Then
    lngAddRevs = lngAddRevs + 1
    lngAddedWords = lngAddedWords + _
    rev.Range.ComputeStatistics(wdStatisticWords)
    End If
    Next
    MsgBox "Deleted " & lngDeletedWords & " words in " & _
    lngDeleteRevs & " revisions" & vbCrLf & _
    "Added " & lngAddedWords & " words in " & _
    lngAddRevs & " revisions"
    If Not (rev Is Nothing) Then Set rev = Nothing
    End Sub</pre>

    Hope this helps.

  5. #5
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Los Angeles Area, California, USA
    Posts
    7,453
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Word Count when Tracking Changes (Word 2000)

    Hi Katie:
    I can get you part way there, but I'm stuck on deleted text. If you open the Find/Replace box (Ctrl+H) &:
    Using wildcards
    1. In the Find box, press Ctrl+N & then type
    <*>
    2. In the Replace box, type
    ^&
    3. Click replace all.

    This replaces all new words with themselves (so nothing is changed) & gives you a count of the replacements. You can't use just "*" in the find box because that will count the characters replaced. You also can't leave it blank because two or more new words in a row only count as one replacement. However, if you simply have deleted words, this won't tell you how many words you've deleted.

  6. #6
    New Lounger
    Join Date
    May 2003
    Location
    Croatia
    Posts
    10
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Word Count when Tracking Changes (Word 2000)

    Thanks. Appreciate the input.
    kw

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •