Change straight quotes to curly quotes in an existing document


E

Eric

I'm working with a document that now has a mix of straight and curly quotes.
I'd like to change all the straight quotes to curly quotes throughout the
document.

Obviously I can edit it by hand. But is there any simpler way to
systematically change the straight quotes to curly quotes?

I'm using Word 2003.

Thanks.
 
Ad

Advertisements

G

Greg Maxey

Eric,

Tools>AutoCorrect Options>Auto Format. Check "striaght qoutes with smart
quotes" and click OK.

Format>AutoFormat>OK

I'm working with a document that now has a mix of straight and curly
quotes. I'd like to change all the straight quotes to curly quotes
throughout the document.

Obviously I can edit it by hand. But is there any simpler way to
systematically change the straight quotes to curly quotes?

I'm using Word 2003.

Thanks.

--
Greg Maxey

See my web site http://gregmaxey.mvps.org
for an eclectic collection of Word Tips.

"It is not the critic who counts, not the man who points out how the
strong man stumbles, or where the doer of deeds could have done them
better. The credit belongs to the man in the arena, whose face is
marred by dust and sweat and blood, who strives valiantly...who knows
the great enthusiasms, the great devotions, who spends himself in a
worthy cause, who at the best knows in the end the triumph of high
achievement, and who at the worst, if he fails, at least fails while
daring greatly, so that his place shall never be with those cold and
timid souls who have never known neither victory nor defeat." - TR
 
E

Eric

Thank you.

Greg Maxey said:
Eric,

Tools>AutoCorrect Options>Auto Format. Check "striaght qoutes with smart
quotes" and click OK.

Format>AutoFormat>OK



--
Greg Maxey

See my web site http://gregmaxey.mvps.org
for an eclectic collection of Word Tips.

"It is not the critic who counts, not the man who points out how the
strong man stumbles, or where the doer of deeds could have done them
better. The credit belongs to the man in the arena, whose face is
marred by dust and sweat and blood, who strives valiantly...who knows
the great enthusiasms, the great devotions, who spends himself in a
worthy cause, who at the best knows in the end the triumph of high
achievement, and who at the worst, if he fails, at least fails while
daring greatly, so that his place shall never be with those cold and
timid souls who have never known neither victory nor defeat." - TR
 
P

Peter T. Daniels

With "Replace Straight Quotes with Curly Quotes" turned on, Ctrl-H
(Find-Replace), type ' in the Find box, type ' in the Replace With
box, and click "Replace All." Repeat with " in the Find and in the
Replace With boxes.

Should you ever want to go back to straight quotes, for instance if
you were copying some of your text to email, repeat the procedures
with the replacement option unchecked.
 
Ad

Advertisements

G

Greg Maxey

Peter,

This looks like another nail that could be pounded down with a hammer.
Surely considering your drive for efficiency and in any universe running a
simple macro is easier than all of your option changes, finding, replacing,
and typing:

Sub ToogleQuoteType()
Dim rngstory As Word.Range
Dim myRange As Range
Dim SmartQuote As Boolean
Select Case True
Case Options.AutoFormatAsYouTypeReplaceQuotes
If MsgBox("Smart quotes are turned on. Do you want to convert to
straight quotes", vbQuestion + vbYesNo, "Settings") = vbYes Then
Options.AutoFormatAsYouTypeReplaceQuotes = False
For Each rngstory In ActiveDocument.StoryRanges
Do
If rngstory.StoryLength >= 2 Then
QuoteToggle rngstory
End If
Set rngstory = rngstory.NextStoryRange
Loop Until rngstory Is Nothing
Next rngstory
End If
Case Else
If MsgBox("Smart quotes are turned off. Do you want to convert to smart
quotes", vbQuestion + vbYesNo, "Settings") = vbYes Then
Options.AutoFormatAsYouTypeReplaceQuotes = True
For Each rngstory In ActiveDocument.StoryRanges
Do
If rngstory.StoryLength >= 2 Then
QuoteToggle rngstory
End If
Set rngstory = rngstory.NextStoryRange
Loop Until rngstory Is Nothing
Next rngstory
End If
End Select
End Sub

Sub QuoteToggle(ByVal rngstory As Word.Range)
With rngstory.Find
'quote marks
.Text = Chr$(34)
.Replacement.Text = Chr$(34)
.Execute Replace:=wdReplaceAll
'apostrophe
.Text = Chr$(39)
.Replacement.Text = Chr$(39)
.Execute Replace:=wdReplaceAll
End With
End Sub

With "Replace Straight Quotes with Curly Quotes" turned on, Ctrl-H
(Find-Replace), type ' in the Find box, type ' in the Replace With
box, and click "Replace All." Repeat with " in the Find and in the
Replace With boxes.

Should you ever want to go back to straight quotes, for instance if
you were copying some of your text to email, repeat the procedures
with the replacement option unchecked.

--
Greg Maxey

See my web site http://gregmaxey.mvps.org
for an eclectic collection of Word Tips.

"It is not the critic who counts, not the man who points out how the
strong man stumbles, or where the doer of deeds could have done them
better. The credit belongs to the man in the arena, whose face is
marred by dust and sweat and blood, who strives valiantly...who knows
the great enthusiasms, the great devotions, who spends himself in a
worthy cause, who at the best knows in the end the triumph of high
achievement, and who at the worst, if he fails, at least fails while
daring greatly, so that his place shall never be with those cold and
timid souls who have never known neither victory nor defeat." - TR
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top