- Track Changes In Word For Mac With Strikethrough Keyboard Shortcut
- Mac Word Track Changes Strikethrough
I think you'd need to use a macro to change the tracked changes markings to
'real' formatting. However, the macro interface for tracked changes is quite
'iffy'; and the longer the document the 'iffier' (more unreliable) it is.
Here's a bit of sample code you can try. It's designed to pick up all the
different kinds of revisions. Just put an apostrophe in front of the lines you
don't want to execute.
Sub FormatRevisions()
Dim doc As Word.Document
Dim rev As Word.Revision
Set doc = ActiveDocument
doc.TrackRevisions = False
For Each rev In doc.Revisions
Select Case rev.Type
Case wdRevisionDelete
rev.Range.Font.StrikeThrough = True
rev.Reject
Case wdRevisionInsert
rev.Range.Underline = wdUnderlineSingle
rev.Accept
Case wdRevisionFormat
MsgBox 'revision format'
rev.Accept
Case wdRevisionStyle
MsgBox 'revision style'
rev.Accept
Case wdRevisionStyleDefinition
MsgBox 'revision style def'
rev.Accept
Case wdRevisionSectionProperty
MsgBox 'revision section prop'
rev.Accept
Case wdRevisionReplace
MsgBox 'revision replace'
rev.Accept
Case wdRevisionTableProperty
MsgBox 'revision table property'
rev.Accept
Case wdRevisionReconcile
MsgBox 'revision reconcile'
rev.Accept
Case wdRevisionProperty
MsgBox 'revision property'
rev.Accept
Case wdRevisionParagraphProperty
MsgBox 'revision para property'
rev.Accept
Case wdRevisionParagraphNumber
MsgBox 'revision para number'
rev.Accept
Case wdRevisionDisplayField
MsgBox 'revision display field'
rev.Accept
Case wdRevisionConflict
MsgBox 'revision conflict'
rev.Accept
Case wdNoRevision
MsgBox 'no revision'
rev.Accept
Case Else
MsgBox 'unknown type'
doc.Comments.Add rev.Range, 'unknown type'
End Select
Next
End Sub
Learn how to use Track Changes in Microsoft Word, including insertions, deletions, format changes, and comments, as well as accepting and rejecting other rev. Track moves Set Word to track when you cut and paste text to another part of a document. The default is On. Moved from Sets the format for cut text when pasted elsewhere. This can be set to several formats, or turned off with None. The default is Double strikethrough. Track changes is on. In your above code made total of three replacements of Rejectwith Accept. When a word inserted by previous earlier editor is changed by a different word by the later editor, the first word gets 'deleted' (strikenthrough purple color) followed by the new word (underlined purple color) flush, without no space.
Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org
Track Changes In Word For Mac With Strikethrough Keyboard Shortcut
Mac Word Track Changes Strikethrough
This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail :-)