在word中能否打反字

寒武纪

要是有打反字的功能，印刷厂的朋友肯定要高兴了！

cxffxc

用艺术字和图片可以实现

守柔

除了二楼生成图片外，还可以用设置字体和中文版式进行。当然逐个的转换是完全可以交给WORD VBA来完成的。

说明：仅对中文字体有效，数字和英文字母无效。

如果未选定，则全部转换为倒字，如果选定了，则仅在选定部分进行。

09mn2Vv9.rar (9.51 KB, 下载次数: 46)

2004-10-26 05:11 上传

点击文件名下载附件
在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

寒武纪

谢谢守柔版主，虽然误会了我的意思，还是学了一招。

我说的反字，不是上下或左右颠倒的字，是指从纸背面看到的前后颠倒的字。这是我有一次去印刷厂给单位印材料，听那里的人讲的一个问题，因为他们印胶片就需要这种效果。

这是我从一个论坛上截取下来的字：

[此贴子已经被作者于2004-10-26 13:58:26编辑过]

办公之星

守柔的VBA研究真是炉火纯青，羡慕ing

楼主的需要，最好用文档以页为单位，用复制//选择性粘贴做成图片来解决。