[Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1024
  • Last Modified:

MS Word macro to accept all "format" changes

Dear expert,

As per subject line.
Best regards,
JP
0
easycapital
Asked:
easycapital
1 Solution
 
GrahamSkanCommented:
Try this:
Sub AcceptFormatChanges()
    Dim rev As Revision
    For Each rev In ActiveDocument.Revisions
        If Left(rev.FormatDescription, 10) = "Formatted:" Then
            rev.Accept
        End If
    Next rev
End Sub

Open in new window

1
 
Eric FletcherCommented:
Graham's code will accept all existing format changes, but be sure to turn off the Formatting checkbox within the Track Changes Options dialog to prevent it from marking future formatting changes.
0
 
easycapitalAuthor Commented:
Thanks.
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now