Please Note: This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here: Replacing Quoted Text with Italics.

Replacing Quoted Text with Italics

by Allen Wyatt
(last updated November 10, 2016)

1

In many word processors, an author may call out material with quote marks. For instance, the first time a term is introduced, the author may enclose the term in quote marks. In Word, however, you can call out information with italics. Manually changing quoted material to italics can be very time consuming.

The following macro, QuotesToItalics, checks the current paragraph for quoted material. If there is any, it deletes the quotes and changes the text between the quotes to italics. If the quote marks are unbalanced (there is an opening or closing quote mark with no corresponding closing or opening quote mark), then the quote mark is ignored and no changes are made. The macro works with either regular quotes or smart quotes.

Sub QuotesToItalic()
    Dim Redo As Boolean
    Dim Ptr As Integer
    Dim Ptr1 As Integer
    Dim P As String
    Dim P1 As String

    If Selection.ExtendMode Then Exit Sub
    Redo = True
    While Redo
        Selection.StartOf Unit:=wdParagraph, Extend:=wdMove
        Selection.MoveEnd Unit:=wdParagraph
        P = Selection.Text
        Ptr = InStr(P, Chr(34))
        If Ptr = 0 Then Ptr = InStr(P, Chr(147))
        If Ptr > 0 Then
            Selection.MoveLeft Unit:=wdCharacter, Extend:=wdMove
            Selection.MoveRight Unit:=wdCharacter, Count:=Ptr
            Selection.MoveEnd Unit:=wdParagraph
            P1 = Selection.Text
            Ptr1 = InStr(P1, Chr(34))
            If Ptr1 = 0 Then
                Ptr1 = InStr(P1, Chr(148))
                EndChar = Chr(148)
            Else
                EndChar = Chr(34)
            End If
            If Ptr1 > 0 Then
                Selection.MoveLeft Unit:=wdCharacter, Count:=2, _
                  Extend:=wdMove
                Selection.Delete Unit:=wdCharacter
                Selection.MoveRight Unit:=wdCharacter, _
                  Count:=Ptr1 - 1, Extend:=wdExtend
                Selection.Font.Italic = True
                Selection.MoveRight Unit:=wdCharacter, Extend:=wdMove
                Selection.Delete Unit:=wdCharacter
            Else
                Selection.MoveRight Unit:=wdCharacter, Extend:=wdMove
                Redo = 0
            End If
        Else
            Selection.MoveRight Unit:=wdCharacter, Extend:=wdMove
            Redo = 0
        End If
    Wend
End Sub

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (264) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Replacing Quoted Text with Italics.

Author Bio

Allen Wyatt

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He  is president of Sharon Parq Associates, a computer and publishing services company. ...

MORE FROM ALLEN

Switching Windows in a Macro

When you have multiple workbooks open at the same time, Excel allows you to easily switch between those workbooks. How you do ...

Discover More

Creating Folders

Folders are an organizational tool that allow you to easily store like items in Drive. This tip examines how easy it is to ...

Discover More

Editing While Spell-Checking

When you run a spell-check on a document, you may end up seeing other things that need to be edited. Never fear; you can do ...

Discover More

Learning Made Easy! Quickly teach yourself how to format, publish, and share your content using Word 2013. With Step by Step, you set the pace, building and practicing the skills you need, just when you need them! Check out Microsoft Word 2013 Step by Step today!

MORE WORDTIPS (MENU)

Changing Font Size Using a Shortcut Key

When you need to change the font size of a text selection, using the shortcut described in this tip is a great technique. ...

Discover More

Understanding Underlines

Part of the formatting you can add to your text is underlining. That simple word (underlining) represents quite a few ...

Discover More

Smushing Text Together

Word gives you control over how your text appears on the page. This includes adjusting how close letters are to each other ...

Discover More
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

View most recent newsletter.

Comments for this tip:

If you would like to add an image to your comment (not an avatar, but an image to help in making the point of your comment), include the characters [{fig}] in your comment text. You’ll be prompted to upload your image when you submit the comment. Images larger than 600px wide or 1000px tall will be reduced. Up to three images may be included in a comment. All images are subject to review. Commenting privileges may be curtailed if inappropriate images are posted.

What is 9 + 8?

2016-12-25 19:29:52

Terry O\'Connor

Hi. I downloaded this macro, which works perfectly. Many thanks.

I also need to use it with single quote marks rather than with doubles, but when I changed Chr(34) to Chr(39) it stopped working.

What did I do wrong?

Thanks.


Newest Tips
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

(Your e-mail address is not shared with anyone, ever.)

View the most recent newsletter.

Links and Sharing
Share