Writing Tools: Em dashes and Quotation marks

      After last week's writing tools, I played around with em dashes a little more, and one of the odd behaviors I've noticed with word processors is they have a block when it comes to making the dash play along nicely with smart quotation marks.
      The smartquotes feature of Word changes the straight marks into the curled quotes we all know and love (although I had heard that copyeditors preferred the straight quotes, I don't know if that is still the case). However, Word has a bit of a mental block when it comes to getting the marks to behave correctly with the em dash. Word just doesn't know what to make of the dash, and any quotations marks following the dash are treated as you are beginning a new quote.
      This means that you (or a copyeditor) would have to go through and replace all instances (not many, I'm sure) where a dash is followed by quotation marks in order to get the marks to curl in the write direction. Or there's this macro I whipped together. This can be copied straight into the normal.dot module and assigned a toolbar button or keyboard command.

Sub dashquote()
'
' dashquote Macro
' Macro recorded 6/1/2011
'
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
           .Text = "—" & ChrW(8220)
           .Replacement.Text = "—" & ChrW(8221)
           .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