Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 04-09-2020, 11:25 AM
Conall Kavanaugh Conall Kavanaugh is offline Toggling Final WITH and WITHOUT markup? Windows 7 32bit Toggling Final WITH and WITHOUT markup? Office 97-2003
Novice
Toggling Final WITH and WITHOUT markup?
 
Join Date: Apr 2020
Posts: 4
Conall Kavanaugh is on a distinguished road
Default 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
These work just fine. But just like the case with the toggling macro for the toolbar (kindly provided by macropod, https://www.msofficeforums.com/150049-post3.html), it'll be much easier to have code to just simply switch between the two with one button press (i.e., if markup showing, to take off; if markup not showing, to show with markup). So one press to turn it off or on so not only would it just require one button and one image, and also could be assigned to a keystroke.



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!
Reply With Quote
  #2  
Old 04-10-2020, 12:34 AM
gmayor's Avatar
gmayor gmayor is offline Toggling Final WITH and WITHOUT markup? Windows 10 Toggling Final WITH and WITHOUT markup? Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,101
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

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
Reply With Quote
  #3  
Old 04-10-2020, 08:50 PM
Guessed's Avatar
Guessed Guessed is offline Toggling Final WITH and WITHOUT markup? Windows 10 Toggling Final WITH and WITHOUT markup? Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,932
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

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
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Toggling Final WITH and WITHOUT markup? Toggling between text boxes wardma PowerPoint 2 04-26-2017 12:43 PM
Toggling Final WITH and WITHOUT markup? Toggling Layers Phil H Visio 4 12-14-2016 10:46 AM
Toggling Final WITH and WITHOUT markup? After Accepting changes in Document and Final Markup Crystaldiamond Word 1 01-11-2015 04:00 PM
Toggling Final WITH and WITHOUT markup? 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

Other Forums: Access Forums

All times are GMT -7. The time now is 02:40 PM.


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