View Single Post
  #4   Report Post  
Graham Mayor
 
Posts: n/a
Default

K&D'smom wrote:
you cut & paste the information in and don't type it? I tried
autocorrect, but it only works when you type.


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
Word MVP web site http://word.mvps.org