Skip to main content

Kutools for Office β€” One Suite. Five Tools. Get More Done.

How to change straight quotes to curly quotes in Word?

Author Amanda Li Last modified

Normally the Microsoft Word will automatically change straight quotes Straight quotes to curly (smart ortypographer's) quotes Curly 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

Straight quotes Arrow Curly quotes

Recommended Productivity Tools for Word

Kutools for Word: Integrating AI πŸ€–, over 100 advanced features save 50% of your document handling time.Free Download

Office Tab: Introduces the browser-like tabs to Word (and other Office tools), simplifying multi-document navigation.Free Download


Change straight quotes to curly quotes with Find and Replace

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

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

File menu with Options selected Arrow Word Options window with Proofing tab opened, AutoCorrect Options clicked
Arrow
AutoFormat As You Type section with 'Straight quotes' with 'smart quotes' checkbox selected

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:

Find and Replace dialog

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

Office Tab: Brings tabbed interfaces to Word, Excel, PowerPoint...
Navigate through documents using Office Tab
Enhance your workflow now.      Learn More about Office Tab       Free Download

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

Best Office Productivity Tools

Kutools for Word - Elevate Your Word Experience with Over 100 Remarkable Features!

πŸ€– Kutools AI Features: AI Assistant / Real-Time Assistant / Super Polish (Preserve Format) / Super Translate (Preserve Format) / AI Redaction / AI Proofread...

πŸ“˜ Document Mastery: Split Pages / Merge Documents / Export Selection in Various Formats (PDF/TXT/DOC/HTML...) / Batch Convert to PDF...

✏ 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 / Text Boxes / Hyperlinks / For more removing tools, head to the Remove group...

βž• Creative Inserts: Insert Thousand Separators / Check Boxes / Radio Buttons / QR Code / Barcode / Multiple Pictures / Discover more in the Insert group...

πŸ” Precision Selections: Pinpoint Specific Pages / Tables / Shapes / Heading Paragraphs / Enhance navigation with more Select features...

⭐ Star Enhancements: Navigate to Any Location / Auto-Insert Repetitive Text / Toggle Between Document Windows / 11 Conversion Tools...

🌍 Supports 40+ Languages: Use Kutools in your preferred language – supports English, Spanish, German, French, Chinese, and 40+ others!

Kutools and Kutools Plus tabs on the Word Ribbon
πŸ‘‰ Want to try these features? Download Kutools for Word now! πŸš€
 

✨ Kutools for Office – One Installation, Five Powerful Tools!

Includes Office Tab Pro Β· Kutools for Excel Β· Kutools for Outlook Β· Kutools for Word Β· Kutools for PowerPoint

πŸ“¦ Get all 5 tools in one suite | πŸ”— Seamless integration with Microsoft Office | ⚑ Save time and boost productivity instantly

Best Office Productivity Tools

Kutools for Word - 100+ Tools for Word