But that's how Track Changes is supposed to work ... they do it that
way so that you can inspect every change and approve or reject it
individually. Did you make sure that none of the changes accidentally
changed the meaning or emphasis?
On Mar 11, 5:17*pm, Hellmasker
wrote:
Hi Suzanne,
I ended up making a macro that removed all underline but when I used it
on the 35k words, it didn't work because it was indeed the function
track changes. So I just accepted all the changes and the strikethrough
and underlines disappeared.
Thanks anyway.
Suzanne S. Barnhill;492058 Wrote:
Are you sure he has actually applied these formats and not just used
Track
Changes? If the latter, then you can just accept or reject the changes
via
the Reviewing toolbar (Word 2003 and earlier) or Review tab (Word
2007/2010).
If the formatting has in fact been directly applied, then it is easy
enough
to search for. For the underlining:
In the Replace dialog, leave both "Find what" and "Replace with" boxes
empty. In the "Find what" box, press Ctrl+U; you'll see "Format:
Underline."
In the "Replace with" box, press Ctrl+U twice; you'll see "Format: No
underline." Replace All.
For the strikethrough:
Again, leave both boxes empty and clear the Underline formatting. Click
More
to expand the dialog. With the insertion point in the "Find what" box,
click
Format and choose Font. Check the box for Strikethrough and click OK.
Replace All.
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org
"Hellmasker" wrote in message
...-
Hi everyone,
I have approximately 35000 words that has been edited by an editor. He
put a line through all text that he thinks is incorrect and added text
that is underlined to replace the incorrect text.
I would like to figure out how to select all the text with the
strikethrough formatting and delete it AND select all text with the
underline formatting and remove the underline formatting.
I have no experience with macros but I found this to delete all
misspelled words:
Dim i As Long
With ActiveDocument
For i = .SpellingErrors.Count To 1 Step -1
SpellingErrors(i).Delete
Next i
End With
From my programming experience, I'd think SpellingErrors would have to
be replaced with something that selects the underline format.
Can anyone help? Would be greatly appreciated! Thanks.