Can Word be set-up to change curly quotes to straight quotes when.

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

you cut & paste the information in and don't type it? I tried autocorrect,
but it only works when you type.
 
With smart quotes turned on in the AutoCorrect options, find " and
replace all with ".
 
Actually, what g-n-o meant in this instance was "with Smart Quotes turned
OFF."

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
 
K&D'smom said:
you cut & paste the information in and don't type it? I tried
autocorrect, but it only works when you type.
Click to expand...

You can accomplish Garfield's suggestion easily with a macro. The following
will take account of your usual preference in relation to the automatic
insertion of smart quotes and replace any smart quotes in the document with
straight quotes.

Sub ChangeQuotes()
Dim sOption As String
sOption = Options.AutoFormatAsYouTypeReplaceQuotes
Selection.HomeKey Unit:=wdStory
Options.AutoFormatAsYouTypeReplaceQuotes = False
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[" & ChrW(8220) & ChrW(8221) & "]"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute replace:=wdReplaceAll
Options.AutoFormatAsYouTypeReplaceQuotes = sOption
End Sub

See http://www.gmayor.com/installing_macro.htm


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
K&D'smom said:
you cut & paste the information in and don't type it? I tried
autocorrect, but it only works when you type.
Click to expand...

Incidentally, to change the other way, run autoformat with the convert
quotes option set - or by macro

Sub ChangeToSmartQuotes()
Dim sOption As String
sOption = Options.AutoFormatReplaceQuotes
Options.AutoFormatReplaceQuotes = True
Selection.Document.Kind = wdDocumentNotSpecified
Selection.Range.AutoFormat
Options.AutoFormatReplaceQuotes = sOption
WordBasic.AcceptAllChangesInDoc
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
Back
Top