日常工作中经常有大量手写工作，这些简单重复的工作不仅占用工作时间，而且效率低，有么有办法打印出来的手写体以假乱真呢，其他先不废话，在world里实现随机字体排版！
Sub 字体随机生成()
\’
\’ 字体修改 宏
\’
Dim R_Character As Range
Dim FontSize(5)
\’ 字体大小在5个值之间进行波动，可以改写
FontSize(1) = \”18\”
FontSize(2) = \”19.5\”
FontSize(3) = \”19\”
FontSize(4) = \”18.5\”
FontSize(5) = \”19.2\”
Dim FontName(13)
\’字体名称在三种字体之间进行波动，可改写，但需要保证系统拥有下列字体
FontName(1) = \”邢世新硬笔行书简体\”
FontName(2) = \”陈继世-硬笔行书\”
FontName(3) = \”hakuyoxingshu7000\”
FontName(4) = \”德彪钢笔行书字库\”
FontName(5) = \”陈代明硬笔体\”
FontName(6) = \”钟齐安景臣硬笔行书\”
FontName(7) = \”司马彦简行修正版\”
FontName(8) = \”全新硬笔行书简\”
FontName(9) = \”全新硬笔行书简\”
FontName(10) = \”书体坊安景臣钢笔行书\”
FontName(11) = \”liguofu\”
FontName(12) = \”王金彦简行书完善体\”
FontName(13) = \”游狼近草体（简）\”
Dim ParagraphSpace(5)
\’行间距 在一定以下值中均等分布，可改写
ParagraphSpace(1) = \”12\”
ParagraphSpace(2) = \”13\”
ParagraphSpace(3) = \”20\”
ParagraphSpace(4) = \”7\”
ParagraphSpace(5) = \”12\”
\’不懂原理的话，不建议修改下列代码
For Each R_Character In ActiveDocument.Characters
VBA.Randomize
\’ Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值
R_Character.Font.Name = FontName(Int(VBA.Rnd * 13) 1)
\’字体选择，1~13的随机整数
R_Character.Font.Size = FontSize(Int(VBA.Rnd * 5) 1)
\’字大小选择，1~5的随机整数
R_Character.Font.Position = VBA.Round(Rnd(), 1) – 0.5
\’Position属性的值为正值时,表示将文本升高;值为负值时,表示将文本降低。 样例 \’ 本示例将选定的文字提高降低磅
R_Character.Font.Spacing = 0
\’选定文字的字符间距加宽0磅’
R_Character.Font.Spacing = -VBA.Round(Rnd(), 1)
Next
Application.ScreenUpdating = True
For Each Cur_Paragraph In ActiveDocument.Paragraphs
Cur_Paragraph.LineSpacing = ParagraphSpace(Int(VBA.Rnd * 5) 1)
\’LineSpacing行距
Next
Application.ScreenUpdating = True
End Sub
这是用代码自动生成后的文稿实例：
需要所需字体文件和源文件代码的可以私信我哦！
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
相关推荐
-
濮存昕谈诵读 打开耳朵 听见美文之美（濮存昕朗读视频）
濮存昕近照 □楚天都市报极目新闻记者 刘我风 通讯员 姬小桃 由楚天都市报主办的楚天少儿诗词朗诵大赛历时已经20多年。这个活动的创办最初是受到了濮存昕等文化明星1999-2000年…
-
电脑字体TTF文件双击没反应无法安装的解决方法（为什么ttf字体安装了用不了）
电脑想修改字体的话必须下载TTF字体文件，但是最近有用户反映，在运行ttf字体文件时没有任何反应，这是怎么回事？鼠标双击TTF字体文件没反应该如何解决？请看下文具体介绍。 解决方法…
-
苏轼：在云里写诗，泥里生活，岁月里洒脱（苏轼-在云里写诗,在泥里生活,在岁月里洒脱）
当轩冕荣华和踽踽独处，在一个人生命的历程中交替出现。当无休无尽的磨难袭来，如环无端。智者总是可以在岁月变换中学会洒脱，以足够的勇气和力量蔑视身外的一切。 在云里写诗 不能否认，苏轼…
-
学习欧楷应该选择什么样的毛笔，欧阳询又是使用的哪种毛笔呢？
欧体楷书是诸多书法爱好者选择的入门书体。 在学习欧楷的时候，选笔是不可忽视的一个重要问题。 笔选得不好，帖临得不像，笔法学得不到位，欧楷自然也就学不到精髓。 那么什么样的笔适合欧楷…
-
田英章硬笔行书6000字，学钢笔字的快收藏（田英章硬笔行书7000字pdf）
田英章硬笔行书6000字 ，学钢笔字的快收藏！
-
龙开胜书法（龙开胜书法价格一平尺多少钱）
龙开胜，男，1969年8月出生，湖南隆回人，毕业于首都师范大学美术系书法专业本科班 ，第十届中华全国青年联合会委员，中国书法家协会理事，中国书协行书专业委员会委员，北京市书法家协会…
-
写人外貌和动物外形时，应该少用-u0026#34;有-u0026#34;字，使人物的外貌更鲜明（仿照这种写法,任意选择一种动物来写一写它的外形）
我们都知道写人物是离不开写人物的外貌，写动物是离不开写动物的外形。但有些同学写人物外貌时写的不生动，不形象，写动物的外形时没有写出动物外形的具体特点。关键是一些学生用了一个…
-
行书的几个规律，可以参考学习一下（行书有什么规律）
行书虽难，但是我们在学习的过程中可以找到一些规律，只要能够在创作中熟练地掌握这些规律，那么我们就能够取得事半功倍的效果。下面我们来看看行书当中有哪些规律！ 一、大小长短 首先我们要…
-
2021秋部编版语文一年级（上册）电子课本（高清版）（2021年秋部编版语文一年级上）
部编版一年级语文上册高清电子课本，各位家长可以暑假给孩子看一看，提前预习新课文！ 电子版：点击下载 内容篇幅较长，无法全部展示，需要全部内容看上面获取！ 完整版：点击下载