Word 中的中文倒字代码(VBA)

功能简介:批量转换文字方向,使其产生倒字效果(注意不是铅印的反字,效果如:白日依山)
Option Compare Text '不区分大小写 Sub DaoZi() Dim i As Range, Ft As String, MyRange As Range On Error Resume Next Application.ScreenUpdating = False '关闭屏幕刷新 If Selection.Type = wdSelectionIP Then '判断光标位置 Set MyRange = Me.Content '全文 Else Set MyRange = Selection.Range '所选部分 End If For Each i In MyRange.Characters If i Like "[a-z]" = True Or i Like "[0-9]" = True Then Else Ft = i.Font.Name '原来的字体 '中文版式/纵横混排功能 i.HorizontalInVertical = wdHorizontalInVerticalFitInLine i.Font.Name = "@" & Ft '原来字体的@型字体 End If Next Application.ScreenUpdating = True '恢复屏幕刷新 End Sub '----------------------