Loading
Word.Tips.Net WordTips (Menu Interface)

Examining Tracked Changes in a Macro

Please Note: This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here: Examining Tracked Changes in a Macro.

If you need to develop a macro to process a document in which changes have been tracked (using the Track Changes feature), you may wonder how you can determine the number of changes in the document and how you can look at each of the changes, programmatically. It isn't that tough to do if you remember that the changes are organized in using the Revisions collection. This means that you can determine the number of changes using this code:

iNumChanges = ActiveDocument.Revisions.Count

Just like any other collection, you can step through each member of the Revisions collection and figure out various information about the change represented in the member. While the details of what properties and methods belong to the Revisions collection is much too voluminous for this tip, you can determine the type of each change by looking at the Type property, in this manner:

vChange = ActiveDocument.Revisions(1).Type

At this point vChange will be equal to one of 14 possible revision types. These revision types can be referenced by the built-in constants wdNoRevision, wdRevisionDelete, wdRevisionInsert, wdRevisionParagraphProperty, wdRevisionReconcile, wdRevisionSectionProperty, wdRevisionStyleDefinition, wdRevisionConflict, wdRevisionDisplayField, wdRevisionParagraphNumber, wdRevisionProperty, wdRevisionReplace, wdRevisionStyle, and wdRevisionTableProperty.

Additional information can be found in Word's Help system or by searching the Internet for the phrase "revisions collection".

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (8914) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Examining Tracked Changes in a Macro.

Related Tips:

Do More in Less Time! Are you ready to harness the full power of Word 2013 to create professional documents? In this comprehensive guide you'll learn the skills and techniques for efficiently building the documents you need for your professional and your personal life. Check out Word 2013 In Depth today!

 

Leave your own comment:

*Name:
Email:
  Notify me about new comments ONLY FOR THIS TIP
Notify me about new comments ANYWHERE ON THIS SITE
Hide my email address
*Text:
*What is 5+3 (To prevent automated submissions and spam.)
 
 
           Commenting Terms

Comments for this tip:

Ken Endacott    01 Nov 2015, 07:05
Some other useful statements.

Turn display of revisions on or off:
ActiveDocument.ShowRevisions = True

Show specific revisions, set to True or False as requited:
ActiveWindow.View.ShowFormatChanges = True
ActiveWindow.View. ShowInsertionsAndDeletions = True
ActiveWindow.View .ShowComments = True

Display the Track Changes option form:
Call Dialogs(wdDialogToolsOptionsTrackChanges).Show

Putting these statements into a macro that prompts to remove individual revisions from the current cursor position forward:
Sub RemoveIndividualRevisions()
Dim Rv As Revision
Dim aRange As Range
Dim k As Long
ActiveDocument.ShowRevisions = True
ActiveWindow.View.ShowFormatChanges = True
ActiveWindow.View.ShowInsertionsAndDeletions = True
ActiveWindow.View.ShowComments = False
Set aRange = Selection.Range
aRange.End = ActiveDocument.Range.End
For Each Rv In aRange.Revisions
Rv.Range.Select
k = MsgBox("Do you want to remove this revision", vbYesNoCancel, "Track Change Revisions")
If k = vbCancel Then Exit Sub
If k = vbYes Then Rv.Accept
Next Rv
End Sub
Colin Pernet    31 Oct 2015, 20:32
Thanks from Colin In Australia
 
 

Our Company

Sharon Parq Associates, Inc.

About Tips.Net

Contact Us

 

Advertise with Us

Our Privacy Policy

Our Sites

Tips.Net

Beauty and Style

Cars

Cleaning

Cooking

DriveTips (Google Drive)

ExcelTips (Excel 97–2003)

ExcelTips (Excel 2007–2016)

Gardening

Health

Home Improvement

Money and Finances

Organizing

Pests and Bugs

Pets and Animals

WindowsTips (Microsoft Windows)

WordTips (Word 97–2003)

WordTips (Word 2007–2016)

Our Products

Helpful E-books

Newsletter Archives

 

Excel Products

Word Products

Our Authors

Author Index

Write for Tips.Net

Copyright © 2016 Sharon Parq Associates, Inc.