#1
|
|||
|
|||
Toggling Final WITH and WITHOUT markup?
Thanks for the help re toggling macro for track changes.
I've been trying to find a last, additional toggle macro for switching between Final view WITH Markup and Final WITHOUT Markup. I've come up with this from a google group post: Code:
Sub Track_Changes_Final_WITH_markup() With ActiveDocument.ActiveWindow.View .RevisionsView = wdRevisionsViewFinal .ShowRevisionsAndComments = True End With End Sub Code:
Sub Track_Changes_Final_WITHOUT_markup() With ActiveDocument.ActiveWindow.View .RevisionsView = wdRevisionsViewFinal .ShowRevisionsAndComments = False End With End Sub All this is due to Covid-19 and our self-isolation that we're all having to do around the world. I really have to thank everyone for the help! I edit a friend's blog posts and we always did this in a coffee shop a couple of times a week where she passed her iPad over to me and I'd proofread and we'd chat and she'd make the changes before posting. Now we have to do this all remotely, and my trusty old Word with track changes has made this possible in a very easy way. But this last step of just toggling on and off would be the icing on the cake for the ease of this! Cheers and stay safe during this self-isolation! |
#2
|
||||
|
||||
The following combines the two
Code:
Sub Toggle_Track_Changes_Final() With ActiveDocument.ActiveWindow.View .RevisionsView = wdRevisionsViewFinal .ShowRevisionsAndComments = Not .ShowRevisionsAndComments End With End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
||||
|
||||
Graham's code toggles both settings independently which means there are four possible entry combinations and four possible outcome combinations. If you wanted the macro to ensure only two possible outcomes you could modify his code along the lines of
Code:
Sub Toggle_Track_Changes_Final() With ActiveDocument.ActiveWindow.View .RevisionsView = wdRevisionsViewFinal .ShowRevisionsAndComments = .RevisionsView End With End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Toggling between text boxes | wardma | PowerPoint | 2 | 04-26-2017 12:43 PM |
Toggling Layers | Phil H | Visio | 4 | 12-14-2016 10:46 AM |
After Accepting changes in Document and Final Markup | Crystaldiamond | Word | 1 | 01-11-2015 04:00 PM |
Partial highlighting of text in a row in "Final Showing Markup" setting | Redpoint | Word Tables | 4 | 03-11-2011 04:29 PM |
change "final showing markup" default to "final" | Wireframe | Word | 0 | 06-25-2010 11:35 AM |