1. Computer problem? Tech Support Guy is completely free -- paid for by advertisers and donations. Click here to join today! If you're new to Tech Support Guy, we highly recommend that you visit our Guide for New Members.

Macro: Reject Format Changes- MS Word 2003

Discussion in 'Business Applications' started by Green_AJ, Jan 22, 2013.

Thread Status:
Not open for further replies.
  1. Green_AJ

    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
     
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 733,556 other people just like you!

Loading...
Thread Status:
Not open for further replies.

Short URL to this thread: https://techguy.org/1086411

  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice