[Hellmasker]

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.

[Suzanne S. Barnhill]

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.




--
Hellmasker

[Hellmasker]

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.

Originally Posted by Suzanne S. Barnhill

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.




--
Hellmasker

[Peter T. Daniels]

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.

[Hellmasker]

I agreed with the changes (99.9%) of them. That's why I wanted to get rid of the text with strikethrough and replace it with the underlined text. I thought the editor manually applied the strikethrough and underline formats, because I was ignorant of the track changes function, so I made macros to remove the formats and delete the strikethrough text. When I applied the macros they didn't work and when I inspected the text it had no format. Thus, I wasted hours learning macros to figure out the track changes function in a few minutes.

Thanks for all your help! (though it came to late due to my impatience heh)

Originally Posted by Peter T. Daniels

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.