Italics to Underline

[Axel]

I need to change all italicized words to underlined words in a fairly
lengthily document. Is there a quick way to do this without having to go
through 600+ pages? The "find/replace" doesn't seem to have this option.

Thanks -

 

[Graham Mayor]

Of course it does!
Click the 'more' button and with the cursor in the search box click format >
font > italic and with the cursor in the replace box click format not
italic, underline.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>
Graham Mayor - Word MVP
E-mail (e-mail address removed)
Web site www.gmayor.com
Word MVP web site www.mvps.org/word
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>

 

[Bruce]

Make sure the cursor is the only thing in the boxes.
Click in the box to see if there is a highlighted area,
which would indicate the presence of a character such as a
space.

 

[Suzanne S. Barnhill]

To expand on Graham's reply:

1. Press Ctrl+H to open the Replace dialog.

2. In the (empty) "Find what" box, press Ctrl+I. You'll see Format: Font:
Italic.

3. In the (empty) "Replace with" box, press Ctrl+I *twice.* You'll see
Format: Font: Not Italic.

4. Now press Ctrl+U. You'll see Format: Font, Not Italic, Underline.

5. Replace All.

Note, however, that if italics have been applied correctly (unlikely),
you'll have some punctuation marks underlined. You can search for these
specifically by clearing both boxes, typing in a period and pressing Ctrl+U
in the "Find what" box and typing a period and pressing Ctrl+U twice in the
"Replace with" box, repeating for commas, etc.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://www.mvps.org/word
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Larry]

If this is something you do regularly, you may want to install this
macro. However, this macro doesn't take care of the leftover
underlinings that Suzanne mentioned.

Sub UnderlineFromAllItalics()
With Selection
.Find.ClearFormatting
.Find.Font.Italic = True
.Find.Replacement.ClearFormatting
With .Find
.Text = ""
.Replacement.Text = ""
.Replacement.Font.Italic = False
.Replacement.Font.Underline = wdUnderlineSingle
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Execute Replace:=wdReplaceAll
' Clear Find box
.ClearFormatting
.Replacement.ClearFormatting
End With
End With
End Sub

Larry