The following macro will toggle the selected text from straight quotes to smart quotes or vice versa.
http://www.gmayor.com/installing_macro.htm
Sub ReplaceQuotes()
Dim vFindText As Variant
Dim vReplText As Variant
Dim sFormat As Boolean
Dim sQuotes As String
Dim oRng As Range
Dim oSearch As Range
Dim i As Long
Set oRng = Selection.Range
sQuotes = MsgBox("Click 'Yes' to convert smart quotes to straight quotes." & vbCr & _
"Click 'No' to convert straight quotes to smart quotes.", _
vbYesNo, "Convert quotes")
sFormat = Options.AutoFormatAsYouTypeReplaceQuotes
If sQuotes = vbYes Then
vFindText = Array(Chr(147), Chr(148), Chr(145), Chr(146))
vReplText = Array(Chr(34), Chr(34), Chr(39), Chr(39))
Options.AutoFormatAsYouTypeReplaceQuotes = False
For i = LBound(vFindText) To UBound(vFindText)
Set oSearch = oRng
With oSearch.Find
Do While .Execute(vFindText(i))
oSearch.Text = vReplText(i)
oSearch.Collapse wdCollapseEnd
Loop
End With
Next i
Else
Options.AutoFormatReplaceQuotes = True
oRng.AutoFormat
End If
Options.AutoFormatAsYouTypeReplaceQuotes = sFormat
oRng.Select
End Sub