Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

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

Need script Updating: MS Word Accept changes, delete comments but will retain change history.

Hi,

We asked someone in EE for a script to accept changes, delete comments and turn off change tracking but we would like to have a variation of the script. The current script will accept the changes but will delete the change history versions but we would like an alternative where the version of the changes will be kept even if the change tracking has been disabled. With the current script (attached to this question) the version tracking is deleted as well which means that if would like to look at the changes version it will not be possible because change versions were deleted as well. Is there a way to keep the change versions even if the chnage tracking has been disabled? can anyone do the changes on the script attached so that even if change tracking has been disabled when turned on again the change tracking, the change version will still be there.

Thanks
AcceptTrackChangesWord.doc
0
openaccount1
Asked:
openaccount1
  • 3
  • 3
2 Solutions
 
irudykCommented:
Well the code accepts all changes made to the document and turns the tracking changes off.  If you want to keep the change history, you can't accept the changes (doing so, removes the change history).  Also, turning the tracking changes off will stop tracking any future changes made.
Sounds to me like you want to look at the document with the changes as they have been made, but want the option to go back and look at the original or the original with the change history.  All of this is accomplished using the Display for Review options from the Reviewers toolbar.  In your case pick the Final option from the list.  You will note that there are 4 options from which to choose.  I think using these options is what you are looking for.

ReviewerToolbar.JPG
0
 
openaccount1Author Commented:
so if we turn off change tracking that means we cannot view the versions again?
0
 
openaccount1Author Commented:
Hi,

If so, how would you recommend on automatically seeing the final output using the same batch method in the code. maybe show final output and keep versioning?
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
irudykCommented:
It is unclear to me when you use the term "versioning".  Are you referring to saving versions of the file (e.g. under the Word menu File | Versions... | Save Now) or something else?
What is it that you want to be able to specifically see in the document?  As I stated in my previous post, if you accept changes then all change information history gets removed (i.e. who made what changes gets removed).  If you want to keep tracking changes but not want to see the revision marks in the document choose the Final review view option.
As for how to work that into the code, I would change the Sub change() routine as follows:

Sub change()
With ActiveWindow.View
    .ShowRevisionsAndComments = False
    .RevisionsView = wdRevisionsViewFinal
End With
ActiveDocument.Save
ActiveDocument.Close
End Sub

Open in new window

0
 
openaccount1Author Commented:
Hi,

Yes we would like to be able to do that too. what we want is a batch file to be able to:

1. show the final revision of the document but will keep the change history and they are and hidded and we can see them again at any time. The current code in the word document accepts the changes and remove the change history and we only want the comments or change history hidden.
2. Keep version history of the file everytime it is saved or closed.
0
 
ExcelGuideConsultantCommented:
Hi, see attached file.

It is saving versions. If you click File>Versions, you can find the history and open the several versions.


AcceptTrackChangesWord.doc
0
 
irudykCommented:
For point #1, the code I posted under ID: 23600309 above will do this
For point #2, additional code could be added to start having versions automatically saved when the document is closed.
See the revised code below which should cover off both points.

Sub change()
 
With ActiveWindow.View
    .ShowRevisionsAndComments = False
    .RevisionsView = wdRevisionsViewFinal
End With
 
With ActiveDocument
    .Versions.AutoVersion = wdAutoVersionOnClose
    .Save
    .Close
End With
 
End Sub

Open in new window

0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

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