Sub DeleteQuote()
' Paul Beverley - Version 08.07.13
' Go to next quote mark and delete it

trackIt = True

myTrack = ActiveDocument.TrackRevisions
If trackIt = False Then ActiveDocument.TrackRevisions = False

searchChars = Chr(34) & Chr(39) & ChrW(8216) & ChrW(8217) _
       & ChrW(8220) & ChrW(8221) & ChrW(8249) & ChrW(8250) _
       & ChrW(8222) & ChrW(8218) & ChrW(171) & ChrW(187) & ChrW(96)
Selection.End = Selection.Start
Do
  Selection.MoveRight , 1
Loop Until InStr(searchChars, Selection) > 0
Selection.MoveEnd wdCharacter, 1
Selection.TypeBackspace
ActiveDocument.TrackRevisions = myTrack
End Sub