How to detect certain characters in a selection/string?

[macropod]

Try:

Sub Demo()
With Selection
  Do While .Characters.First Like "[ " & Chr(34) & Chr(147) & Chr(11) & vbCr & vbTab & ".!?]"
    .MoveStart wdCharacter, 1
  Loop
  Do While .Characters.Last Like "[ " & Chr(34) & Chr(148) & Chr(11) & vbCr & vbTab & ".!?]"
    .MoveEnd wdCharacter, -1
  Loop
  MsgBox .Text
End With
End Sub