The last question I got, a very good one, was from a very frustrated guy who was sick of opening up his Word documents and having them appear with all of his reviewing markup showing (additions, deletions, comments, etc.). He wanted a way for it to automatically show the 'Final' version. And here is a solution for you! But fair warning, if you use this bit of VBA code, it will not immediately be apparent if changes have been tracked in a document and if there are comments and other markups in the file. Why might this be a problem? If you're planning on sending this file on to someone outside of your company, they might be able to see all of the changes you've made as you've been working on the document... which isn't so great. So please, if you use this code... make sure you accept all changes made and remember to delete your comments before sending it off.
Obviously that doesn't apply if you're printing or making a PDF of the document.
Anyway! On to the code. I'm writing this post with the assumption that you know how to add a macro to your "Normal" template in Word. If this sounds foreign to you, I suggest doing a quick Google search and learn a bit about macros and VBA code in Word. Or, if you're patient, you can wait and I'll eventually make a post explaining that stuff.
There are two codes here, as there are two instances when you might want Word to automatically switch the view to 'Final': the first being when you open an existing document, and the second being when you create a new document.
Sub AutoOpen()
'Sets the revisions view to 'Final' when opening a document
With ActiveWindow.View
.ShowRevisionsAndComments = False
.RevisionsView = wdRevisionsViewFinal
End With
End Sub
Sub AutoNew()
'Sets the revisions view to 'Final' when making a new document
With ActiveWindow.View
.ShowRevisionsAndComments = False
.RevisionsView = wdRevisionsViewFinal
End With
End Sub
Happy New Year, my friends! Here's hoping your 2010 is a safe, happy, and healthy year for you all.
Obviously that doesn't apply if you're printing or making a PDF of the document.
Anyway! On to the code. I'm writing this post with the assumption that you know how to add a macro to your "Normal" template in Word. If this sounds foreign to you, I suggest doing a quick Google search and learn a bit about macros and VBA code in Word. Or, if you're patient, you can wait and I'll eventually make a post explaining that stuff.
There are two codes here, as there are two instances when you might want Word to automatically switch the view to 'Final': the first being when you open an existing document, and the second being when you create a new document.
Sub AutoOpen()
'Sets the revisions view to 'Final' when opening a document
With ActiveWindow.View
.ShowRevisionsAndComments = False
.RevisionsView = wdRevisionsViewFinal
End With
End Sub
Sub AutoNew()
'Sets the revisions view to 'Final' when making a new document
With ActiveWindow.View
.ShowRevisionsAndComments = False
.RevisionsView = wdRevisionsViewFinal
End With
End Sub
Happy New Year, my friends! Here's hoping your 2010 is a safe, happy, and healthy year for you all.
Posts
In my environment, the code needed to say
ReplyDeleteWith ActiveDocument.ActiveWindow.View
otherwise it errors out with invalid object.
The code works though, just what I was looking for.
Thanks
can this be done without changing code?
ReplyDeleteNot that I know of, unfortunately.
Delete