Sub PunctuationOff()
' Paul Beverley - Version 06.03.23
' Delete the next punctuation item

myChars = ""
myChars = myChars + ";:.,\!\?"
' Curly quotes
myChars = myChars + ChrW(8216) & ChrW(8217) & ChrW(8220) & ChrW(8221)
' Straight quotes
myChars = myChars + "'" & Chr(34)
' Brackets
myChars = myChars + "\(\)\[\]\{\}"

oldFind = Selection.Find.Text

Selection.End = Selection.Start
With Selection.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = "[" & myChars & "]"
  .Replacement.Text = ""
  .Forward = True
  .MatchWildcards = True
  .MatchWholeWord = False
  .MatchSoundsLike = False
  .Execute Replace:=wdReplaceOne
End With
Selection.MoveRight , 1

With Selection.Find
  .Text = oldFind
  .MatchWildcards = False
End With
End Sub