Answered by : james-fox

Dim strTemp as String
strTemp = Selection.Text
If Right(strTemp, 1) = vbCr Then _ strTemp = Left(strTemp, Len(strTemp) - 1)

Source : https://learn.microsoft.com/en-us/office/vba/api/word.selection | Last Update : Wed, 28 Sep 22