GearyTech
asked on
Selectively Removing "Edited By" Reference
Hello Word Pros...
I have a customer who needs the ability to selectively turn off the little bubble that tells people who made changes to a document when in Track Revisions mode. I believe he is on Office 2000.
The deal is, he regularly edits documents on behalf of his clients, but the clients turn around and want to be able to show the revisions to their upwind's, but take credit for them. I'm looking for something a little more creative than "take his name out of the user section in tools/options".
Comments, suggestions?
Thanks in advance.
I have a customer who needs the ability to selectively turn off the little bubble that tells people who made changes to a document when in Track Revisions mode. I believe he is on Office 2000.
The deal is, he regularly edits documents on behalf of his clients, but the clients turn around and want to be able to show the revisions to their upwind's, but take credit for them. I'm looking for something a little more creative than "take his name out of the user section in tools/options".
Comments, suggestions?
Thanks in advance.
Well, the first and easiest way is to use Word's Compare Documents feature and then no one gets credit for revisions. It simply shows the revisions.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Rosesolutions1 - thank you... will test this code tonight and get back to you...
ASKER
Rosesolutions - Ok, it kind of works... but when I run the code it strikes out the original revision and enters another revision with the new revisor's name ... any way to avoid ? I tried this with Word 2002.
Also, since this customer may need to change the original revisor and specify the desired revisor, I need to pop up inputboxes to prompt for both. I've figured out the original revisor part... but not the desired revisor part (per below), any suggestions?
Sub Change_Author()
'
' Change_Author Macro
'
Dim intMode As Integer
intMode = ActiveWindow.View.Revision sMode 'remember current mode so we can restore it at the end
ActiveWindow.View.Revision sMode = wdInLineRevisions 'operate without the balloons confusing things
Dim rvsn As Revision
ActiveDocument.TrackRevisi ons = True
Dim x As Integer
Original_Author = InputBox("Enter exact name for current revisor", "Current Revisor")
For x = ActiveDocument.Revisions.C ount To 1 Step -1 'for each can endless loop because we are creating new revisions inside the loop...
Set rvsn = ActiveDocument.Revisions(x )
If rvsn.Author = Original_Author Then
Select Case rvsn.Type
Case wdNoRevision
Case wdRevisionDelete
rvsn.Range.Select
'if it was a deletion, reject the change, which leaves the deletion highlighted
rvsn.Reject
'and then delete it again
Selection.Delete
Case wdRevisionInsert
rvsn.Range.Select
'cut it out - which automatically cancels the revision stuff
Selection.Cut
'and paste it back
Selection.PasteAndFormat (wdPasteDefault)
Case wdRevisionParagraphPropert y
Case wdRevisionReconcile
Case wdRevisionSectionProperty
Case wdRevisionStyleDefinition
Case wdRevisionConflict
Case wdRevisionDisplayField
Case wdRevisionParagraphNumber
Case wdRevisionProperty
Case wdRevisionReplace
Case wdRevisionStyle
Case wdRevisionTableProperty
Case Else
MsgBox "huh?"
End Select
End If
Next
Set rvsn = Nothing
ActiveWindow.View.Revision sMode = intMode 'back the way it was
End Sub
Also, since this customer may need to change the original revisor and specify the desired revisor, I need to pop up inputboxes to prompt for both. I've figured out the original revisor part... but not the desired revisor part (per below), any suggestions?
Sub Change_Author()
'
' Change_Author Macro
'
Dim intMode As Integer
intMode = ActiveWindow.View.Revision
ActiveWindow.View.Revision
Dim rvsn As Revision
ActiveDocument.TrackRevisi
Dim x As Integer
Original_Author = InputBox("Enter exact name for current revisor", "Current Revisor")
For x = ActiveDocument.Revisions.C
Set rvsn = ActiveDocument.Revisions(x
If rvsn.Author = Original_Author Then
Select Case rvsn.Type
Case wdNoRevision
Case wdRevisionDelete
rvsn.Range.Select
'if it was a deletion, reject the change, which leaves the deletion highlighted
rvsn.Reject
'and then delete it again
Selection.Delete
Case wdRevisionInsert
rvsn.Range.Select
'cut it out - which automatically cancels the revision stuff
Selection.Cut
'and paste it back
Selection.PasteAndFormat (wdPasteDefault)
Case wdRevisionParagraphPropert
Case wdRevisionReconcile
Case wdRevisionSectionProperty
Case wdRevisionStyleDefinition
Case wdRevisionConflict
Case wdRevisionDisplayField
Case wdRevisionParagraphNumber
Case wdRevisionProperty
Case wdRevisionReplace
Case wdRevisionStyle
Case wdRevisionTableProperty
Case Else
MsgBox "huh?"
End Select
End If
Next
Set rvsn = Nothing
ActiveWindow.View.Revision
End Sub
Sorry, no - author is a read-only field, and there is no practical way to fake it. [In Word 2003 there should be - using WordML - but the file goes unreadable whenever I try - sob.]
My proposed 'solution' to your problem relies upon the idea that the person who wants to claim to be the author is in fact the person who pushes the button.
My proposed 'solution' to your problem relies upon the idea that the person who wants to claim to be the author is in fact the person who pushes the button.
ASKER
Rosesolutions,
In the end, your code is worth the points... I'll have to deal with the other issue some other way. Thank you for your efforts!
In the end, your code is worth the points... I'll have to deal with the other issue some other way. Thank you for your efforts!