【求助】Word VBA选取到行尾,不含换行符。

Sub 选择至行尾_无换行()
Selection.MoveEnd Unit:=wdLine, Count:=1 '选择至行尾,相当Shift+End
If InStr(Selection.Text, Chr(13)) > 0 Then '若选择区有回车符
Selection.MoveEnd Unit:=wdCharacter, Count:=-1 '选择区结束位置-1字符,排除回车符
End If
End Sub