OR, I'd like to change all the track changes underlines/strikethrough to
regular word format underline/strikethough.
The documents are used for writing regulations where undline/strikethrough
needs to be shown so that the public can see the changs. Unfortunately, when
sent to other people that must process the document, the intended format as
set in the tools/options/track changes isn't the same in their Word, as was
saved in my Word.
Thanks for any help you may be able to provide,
Thanks,
George
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
Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org
This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail :-)
Thanks, George
PrimoPDF is a conversion tool recommended by some users on this group.
<snip>
>> The documents are used for writing regulations where undline/strikethrough
>> needs to be shown so that the public can see the changs. Unfortunately, when
>> sent to other people that must process the document, the intended format as
>> set in the tools/options/track changes isn't the same in their Word, as was
>> saved in my Word.
--
Daiya Mitchell, MVP Mac/Word
Word FAQ: http://www.word.mvps.org/
MacWord Tips: <http://word.mvps.org/Mac/WordMacHome.html>
What's an MVP? A volunteer! Read the FAQ: http://mvp.support.microsoft.com/
We give them the PDF, but they also want the Word file. But you can't
believe the problems I have when they get it and they open it up instead of
the PDF and start reviewing it. I guess they think it's "better" than the
PDF or they don't understand the PDF or they are not familiar with it. Who
knows. In any event, I think my problem would be solved if I could at least
have the document open up with my "track changes" settings, rather than the
readers. Doesn't that make sense?
George
Having the doc open with your track changes settings and making track
changes permanent are two different issues.
I suspect that if the people you send the doc to knew what track changes was
and how to use it, then whether it came up in your settings or theirs would
not matter. You might see if sending them this link helps:
http://shaunakelly.com/word/trackchanges/HowTrackChangesWorks.html
Cindy sent a macro for the second issue, which would convert track changes
to hardcoded text formatting. Experiment ON A COPY of the doc. If it gets
iffy with long documents, you might break it into shorter documents, run the
macro, recombine the document.
If necessary, see:
What do I do with macros sent to me by other newsgroup readers to help me
out?
I don't know how to install them and put them to use
http://word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm