Swap smart and straight quotes in Microsoft Word

ChangeDoubleStraightQuotesToSmartQuotes.vba

Sub ChangeDoubleStraightQuotesToSmartQuotes()
    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

ChangeSingleStraightQuotesToSmartQuotes.vba

Sub ChangeSingleStraightQuotesToSmartQuotes()
    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

RemoveSmartQuotes.vba

Sub RemoveSmartQuotes()
    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