The easiest was I think would be to use Options, Customize Ribbon and run the macro
This doesn't require any CustomXML, but not as polished
Capture1.JPG
Capture.JPG
Option Explicit Sub ToggleSQ() With Options If .AutoFormatAsYouTypeReplaceQuotes Then .AutoFormatAsYouTypeReplaceQuotes = False MsgBox "Smart Quotes turned OFF" Else .AutoFormatAsYouTypeReplaceQuotes = True MsgBox "Smart Quotes turned ON" End If End With End Sub