|
Das führt zu Problemen, wenn das Umbruchszeichen am Zeilenende mitmarkiert ist. Besser ist
If Selection.Text = "ABCDE" Then
Selection.Text = "EDCBA"
ElseIf Selection.Text = "ABCDE" & Chr(13) Then
Selection.Text = "EDCBA" & Chr(13)
ElseIf Selection.Text = "ABCDE" & Chr(11) Then
Selection.Text = "EDCBA" & Chr(11)
End If
Severus
|