Sub ToggleQuotes()

' ToggleQuotes Macro
' Macro recorded 5-Mar-2002 by Steven Marzuola
' Toggles the Word 'Smart Quote' setting and makes all replacements 
' in the current document

    Dim myMsg As String, smartStatus As Boolean, myStart, myEnd
    
    myStart = Selection.Start
    myEnd = Selection.End
    
    Selection.HomeKey Unit:=wdStory
    
    smartStatus = Options.AutoFormatAsYouTypeReplaceQuotes
    If smartStatus Then
        MsgBox ("Turning SmartQuotes off")
    Else
        MsgBox ("Turning SmartQuotes on")
    End If
        
    Options.AutoFormatAsYouTypeReplaceQuotes = Not smartStatus
    Options.AutoFormatReplaceQuotes = Not smartStatus
        
    With Selection.Find
        .ClearFormatting: .Replacement.ClearFormatting
        .Wrap = wdFindContinue: .Forward = True
        .Format = False: .MatchCase = False: .MatchWholeWord = False
        .MatchWildcards = False: .MatchSoundsLike = False
        .MatchAllWordForms = False
        
        .Text = "'": .Replacement.Text = "'"
        .Execute Replace:=wdReplaceAll
        .Text = """": .Replacement.Text = """"
        .Execute Replace:=wdReplaceAll
        .Text = "´": .Replacement.Text = "'"
        .Execute Replace:=wdReplaceAll
    End With
    
    Selection.Start = myStart
    Selection.End = myEnd
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.Start = myStart
    Selection.End = myEnd
    
End Sub