How To Track Changes In Word 2013

Please Annotation: This article is written for users of the following Microsoft Give-and-take versions: 2007, 2010, 2013, 2016, 2019, and Word in Function 365. If yous are using an earlier version (Discussion 2003 or before), this tip may non work for you. For a version of this tip written specifically for before versions of Word, click here: Counting Changed Words.

Counting Changed Words

Steven uses Runway Changes in his documents all the time. He needs a way to count only the words that have been inverse in a certificate—those affected by Track Changes.

The answer is that you tin sort of get the data you want through the use of the Reviewing Pane. Display the Review tab of the ribbon, then click the Reviewing Pane tool (in the Tracking group). Word displays the Reviewing Pane on-screen, and at the elevation of the pane is a summary of the revisions made in the document. It shows statistics for the following five changes:

Insertions
Deletions
Moves
Formatting changes
Comments

These statistics may seem to fit the bill, just you'll call up that I said that they provide "sort of" the data wanted. They fall a bit short if what yous actually want is a count of changed words. The statistics count changes, not changed words. For instance, if you delete a phrase that consists of multiple words, that edit counts as merely a single deletion in the statistics. Similarly, if you add together a phrase to your certificate, that add-on counts as a unmarried insertion, even if the insertion contained a complete paragraph.

If you want actual words changed, you are unfortunately out of luck—Discussion provides no way to get the data desired. You tin, however, devise your own macro to determine the desired information. Here's an example:

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 Example 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     Side by side 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

This macro steps through each change in the current document and separately sums word counts and character counts for both insertions and deletions. The statistics are and then presented in a bulletin box. Annotation that the macro looks at the Words drove for each change in the document. You lot should understand that the word count, as presented here, is an approximation. This is because of the way that words are counted. For case, each punctuation mark in an addition is counted as a separate give-and-take. This means that a phrase such every bit "every bit one tin can see, this is a slap-up manner" would be tallied as ten words instead of nine (the comma counts as a separate word). Further, if the phrase you added included a leading space—which insertions often do—then there would exist xi words tallied for the insertion because of that space.

If you would like to know how to use the macros described on this page (or on whatsoever other folio on the WordTips sites), I've prepared a special folio that includes helpful information. Click here to open that special page in a new browser tab.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the virtually popular word processing software in the world.) This tip (11484) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, and Word in Role 365. You can find a version of this tip for the older carte du jour interface of Word hither: Counting Changed Words.

Author Bio

With more than l non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a figurer and publishing services company. Learn more virtually Allen...

MORE FROM ALLEN

Viewing Workbook Statistics

Excel keeps track of a range of stats nearly each workbook yous use. If you want to have a look at those stats, information technology'due south piece of cake; ...

Discover More

Typing Across the Right Margin

In the days of typewriters, you could type across the right margin by using the MarRel lever or key. This tip discusses ...

Detect More than

Changing the User Interface Language

Tired of Windows showing you information in English when yous'd much prefer a unlike language? Here'south how to alter the ...

Discover More