I am using the Track Changes option and want to 'Accept' all of the
"FORMATTED" type changes. How can I do it without having to do it one by one?

Luis Jose Romero wrote:
I am using the Track Changes option and want to 'Accept' all of the
"FORMATTED" type changes. How can I do it without having to do it
one by one?

Use this macro (see http://www.gmayor.com/installing_macro.htm if
necessary):

Sub AcceptFormattingChanges()
Dim myRev As Revision

For Each myRev In ActiveDocument.Revisions
If myRev.Type = wdRevisionProperty Then
myRev.Accept
End If
Next
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

If you are using Word 2002 or 2003, on the Show menu, deselect everything
except Formatting. Then on the Accept Change menu, choose Accept All Changes
Shown.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"Luis Jose Romero" Luis Jose wrote in
message ...
I am using the Track Changes option and want to 'Accept' all of the
"FORMATTED" type changes. How can I do it without having to do it one by
one?