Thread: Change style when quote
View Single Post
 
Old 12-10-2019, 07:44 AM
perezbalen perezbalen is offline Windows 10 Office 2019
Novice
  
Join Date: Dec 2019
Posts: 1
perezbalen is on a distinguished road
Default Change style when quote
Hi


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


Code:
    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?
Reply With Quote