可以用vba代码实现。操作:先选择一段文本(此文本不能包含段落标志),然后点击运行代码
Sub 逆序文字()
'把顺序的文字,变成逆序,如把“朋友”变成“友朋”
'选择一段文本,此文本不能包含段落标志,然后点击运行代码
Dim Selerng As Range, Fanstr As String, i As Long
Set Selerng = Selection.Range
Fanstr = ""
If InStr(Selerng, vbCr) > 0 Then
MsgBox "选择的文本中含有段落标志,请重新选择,或者把段落标志删除后重新选择", vbOKOnly + vbInforma
Exit Sub
Else
For i = Selerng.Characters.Count To 1 Step -1
Fanstr = Fanstr & Selerng.Characters(i).Text
Next i
End If
Selerng.Text = Fanstr
End Sub
联系客服