Sub PunctuationOff()
' Paul Beverley - Version 30.06.23
' Deletes 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)
' Ellipsis
myChars = myChars + ChrW(8230)
' 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
End With

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

Set rng = Selection.Range.Duplicate
rng.Collapse wdCollapseEnd
Selection.Delete
rng.Select
End Sub