Italics to Underline

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Axel - 23 Dec 2003 11:38 GMT

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 -

Reply to this Message

Graham Mayor - 23 Dec 2003 11:51 GMT

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.

Signature

<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>
Graham Mayor - Word MVP
E-mail gmayor@mvps.org
Web site www.gmayor.com
Word MVP web site www.mvps.org/word
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>

> 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 -

Reply to this Message

Bruce - 23 Dec 2003 16:15 GMT

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.

>-----Original Message-----
>Of course it does!
[quoted text clipped - 10 lines]
>
>.

Reply to this Message

Suzanne S. Barnhill - 23 Dec 2003 16:17 GMT

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)

Signature

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.

> Of course it does!
> Click the 'more' button and with the cursor in the search box click format
[quoted text clipped - 16 lines]
> >
> > Thanks -

Reply to this Message

Larry - 23 Dec 2003 19:08 GMT

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

Reply to this Message