Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 07-15-2021, 01:52 AM
le_robert le_robert is offline Accepting/rejecting language formatting in Track Changes Windows 10 Accepting/rejecting language formatting in Track Changes Office 2016
Novice
Accepting/rejecting language formatting in Track Changes
 
Join Date: Jul 2021
Location: France
Posts: 3
le_robert is on a distinguished road
Default Accepting/rejecting language formatting in Track Changes

Hi,


This is linked to this solved issue regarding the 'Unknown Field Code' change tracked by Word. I did reply to that topic, but since it's marked as solved, I thought I should probably start a new thread instead. I hope I've done the right thing .

I want to know if it's possible to only accept/reject changes to the text language (e.g. 'Formatted: English (United Kingdom)'). These occur when docs are shared between people with different default system languages and are applied automatically when Track Changes are enabled. I know you can accept/reject all formatting changes, but there are some (bold, italics, alignment etc.) that I want to leave in.

Thanks very much in advance.
[edit: example doc attached]
Attached Files
File Type: docx formatting language.docx (15.7 KB, 2 views)
Reply With Quote
  #2  
Old 07-15-2021, 02:28 AM
Guessed's Avatar
Guessed Guessed is offline Accepting/rejecting language formatting in Track Changes Windows 10 Accepting/rejecting language formatting in Track Changes Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 2,641
Guessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to beholdGuessed is a splendid one to behold
Default

Yes, it is possible. Something along the lines of
Code:
Sub SelectiveAmnesia()
  Dim aRev As Revision
  For Each aRev In ActiveDocument.Revisions
    Debug.Print aRev.FormatDescription
    If aRev.FormatDescription = "Formatted: English (United Kingdom)" Then
      aRev.Accept
    End If
  Next aRev
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote
  #3  
Old 07-15-2021, 04:13 AM
le_robert le_robert is offline Accepting/rejecting language formatting in Track Changes Windows 10 Accepting/rejecting language formatting in Track Changes Office 2016
Novice
Accepting/rejecting language formatting in Track Changes
 
Join Date: Jul 2021
Location: France
Posts: 3
le_robert is on a distinguished road
Default

That works really well, thank you!
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Accepting track changes via macro skips last paragraph mark, but not when accepting via Review menu Peterson Word VBA 3 03-25-2020 10:03 PM
Resource rejecting ALL occasions for reoccurring meeting Youppie Outlook 0 08-26-2019 12:10 AM
Track Formatting Ad Nauseum patlaw Word 1 05-17-2019 04:43 PM
Accepting/rejecting language formatting in Track Changes Strike through formatting in Track Changes derohanes Word 4 03-26-2019 09:18 AM
Accepting/rejecting language formatting in Track Changes Track Changes Automatically Accepting Changes after Closing and Re-Opening Document cnethercott Word 1 01-16-2017 03:21 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 05:00 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2021, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2021 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft