How to change straight quotes to curly quotes in word?

Normally the Microsoft Word will automatically change straight quotes to curly (smart ortypographer's) quotes as you type. But if the feature is turned off, both single and double quotes marks may appear straight in your document. Here are tips for you to change straight quotes to curly quotes and vice versa in Word .

Chang straight quotes to curly quotes with Find and Replace

Change straight quotes to curly quotes with VBA

Kutools for Word: Add 100 New Advanced Features to Word 2003/2007/2010/2013.
Office Tab: Enable Tabbed Editing and Browsing in Office, Just Like Chrome, Firefox, IE 8/9/10.
Classic Menu for Office: Bring Old Look of Office 2003 Back to Office 2007, 2010 and 2013.

arrow blue right bubble Change straight quotes to curly quotes with Find and Replace

Hot
Amazing! Using Tabs in Word like Firefox, Chrome, Internet Explore 10!

Learn moreFree download

Before applying Find and Replace, you should go to Auto Correct Options to uncheck the "Straight quotes" with "smart quotes" check box.

In Word 2003, Auto Correct Options is under the Tool bar. And in Word 2007, applying Auto Correct Options by clicking  > Options > Proofing > Auto Correct Options. Here we take Word 2010/2013 for example:

Step 1. Click  > Option > Proofing > Auto Correct Options > AutoFormat As You Type, and select “Straight quotes" with "smart quotes" check box. See screenshot:

Step 2. Click Home > Replace in the Editing group or press Ctrl + H to display Find and Replace dialog, and enteror ‘’ in Find what box, and enter or ’’in Replace with box. See screenshot:

Step 3. Click Replace All.

Note: if you want to replace all curly quotes with straight quotes, please clear "Straight quotes" with "smart quotes" check box).


arrow blue right bubble Change straight quotes to curly quotes with VBA

To replace all straight quotes with curly quotes in Word 2010 with using VBA, please click File> Option > Proofing and click AutoCorrectOptions and select the "Straight quotes" with "smart quotes" check box as follows first. (Note: if you want to replace all curly quotes with straight quotes, please clear "Straight quotes" with "smart quotes" check box).

Step 1: Press “Alt-F11” to open the Microsoft Visual Basic for Application window;

Step 2: Click Module on the Insert tab, copy and paste the following VBA code into the Module window;

Step 3: Then click Run button to apply the VBA.

The following VBA is to change straight quotes to curly quotes:

Sub ChangeDoubleStraightQuotes()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord =False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

The following VBA is to change curly quotes to straight quotes:

Sub ReplaceSmartQuotes()
Dim vFindText As Variant
Dim vReplText As Variant
Dim i As Long
vFindText = Array("[^0145^0146]", "[^0147^0148]")
vReplText = Array("^039", "^034")
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchWildcards = True
For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Execute Replace:=wdReplaceAll
Next i
End With
End Sub

arrow blue right bubble Kutools for Word

More than 100 Advanced Functions for Word 2003, 2007, 2010 and 2013

shot-kutools-700-225-kte

More Features  |  Free Download  |  Only $19.00 for hundreds of functions

Comments  

0#Bill Smith2014-08-19 21:29
Your explanation for replacing in Find/Replace from instruction #2 on is completely incomprehensible.
Reply | Reply with quote | Quote

Add comment


Security code
Refresh