Change style when quote

[perezbalen]

Hi




I like to have text inside quotes in a different style than "normal". So far I use a macro that basically does this:

    Selection.Find.Replacement.Style = ActiveDocument.Styles("inQuotes")
    With Selection.Find
        .Text = "[" & ChrW(8220) & "]*[" & ChrW(8221) & "]"
        .Replacement.Text = ""
    End With

Which searches the whole document and puts the "inQuotes" style to anything in quotes.


But, I have to manually do it every time. I was wondering it there's a better way. A way that, after i open a quote, the style changes to "inQuotes", and after I colse a quote, the style changes back to "Normal"


Any ideas?