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
 |
 |
 |
Change straight quotes to curly quotes with Find and Replace
Office Tab: Brings tabbed interfaces to Word, Excel, PowerPoint... |
|
Enhance your workflow now. Read More Free 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 enter ‘or ‘’ 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).
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 AutoCorrect Options 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 SubBest Office Productivity Tools
Kutools for Word - Elevate Your Word Experience with Over 100 Remarkable Features!
Dive into the highlighted features below or click here to explore the full power of Kutools for Word.
📘 Document Mastery: Split Pages / Merge Documents / Export Selection in Various Formats (PDF/TXT/DOC/XLSX) / Batch Convert to PDF / Export Pages as Images / Print Multiple Files at once ...
✏ Contents Editing: Batch Find and Replace across Multiple Files / Resize All Pictures / Transpose Table Rows and Columns / Convert Table to Text ...
🧹 Effortless Clean: Sweap away Extra Spaces / Section Breaks / All Headers / Text Boxes / Hyperlinks / For more removing tools, head to our Remove Group
➕ Creative Inserts: Insert Thousand Separators / Check Boxes / Radio Buttons / QR Code / Barcode / Diagonal Line Table / Equation Caption / Image Caption / Table Caption / Multiple Pictures / Discover more in our Insert Group
🔍 Precision Selections: Pinpoint specific pages / tables / shapes / heading paragraphs / Navigate with ease using our Select Group
⭐ Star Enhancements: Navigate swiftly to any location / auto-insert repetitive text / seamlessly toggle between document windows / 11 Conversion Tools ...
Transform your Word tasks with Kutools. 👉 Download with 30-day trial Now 🚀.
