Macro: Reject Format Changes- MS Word 2003

Status
This thread has been Locked and is not open to further replies. Please start a New Thread if you're having a similar issue. View our Welcome Guide to learn how to use this site.

Green_AJ

Thread Starter
Joined
Jan 22, 2013
Messages
1
Hello,

I am looking to prepare a report comprised of docuemnts sent to various units of the business. All units were instructed to use 'Track Changes' in Word, and I would now like create a Macro that will only reject changes the correspond to formatting (ex. font size, spacing, etc.).

I have a macro that was created previously for similar documents, but was not properly tested on documents that had a large number of changes. Now running the macro with documents completely freezes the file and does not execute as desired. Here is the macro currently being used:

Sub FmtChanges()
Dim revFmtRev As Revision
For Each revFmtRev In ActiveDocument.Revisions
If revFmtRev.FormatDescription <> "" Then
revFmtRev.Reject
End If
Next
End Sub

Since there are many documents and they are all quite long (some exceed 200 pages), it would save a ton of time to use a macro such as this to complete the task.

Thanks a lot for any help you can provide!

AJ
 
Status
This thread has been Locked and is not open to further replies. Please start a New Thread if you're having a similar issue. View our Welcome Guide to learn how to use this site.

Users Who Are Viewing This Thread (Users: 0, Guests: 1)

As Seen On
As Seen On...

Welcome to Tech Support Guy!

Are you looking for the solution to your computer problem? Join our site today to ask your question. This site is completely free -- paid for by advertisers and donations.

If you're not already familiar with forums, watch our Welcome Guide to get started.

Join over 807,865 other people just like you!

Latest posts

Staff online

Members online

Top