admin管理员组文章数量:1595571
今天来讨论一下如何用word做手写字体
首先我们来看一下效果图：
咳咳，是不是很有feel！
教程来了！
- 首先你需要下载一个手写字体：
百度一下你就拥有，这个我就不推荐什么什么字体，什么什么网站了，相信大家都可以找到一款适合自己的。 - 将手写字体解压到文件夹下
- 打开控制面板，搜索字体，然后进入文件夹：
- 然后将之前文件夹下的ttf文件拖拽进去就可以了。
- 接下来打开word！
- 打开文件->选项->信任中心->信任中心设置中选择该选项：
- 打开视图->宏->新建“手写字体”
Sub 手写字体()
'
' 手写字体 宏
'
'
Dim FontSize(5)
' 字体大小在5个值之间进行波动，可以改写
FontSize(1) = "12"
FontSize(2) = "12.5"
FontSize(3) = "13"
FontSize(4) = "13.5"
FontSize(5) = "14"
Dim FontName(3)
'字体名称在三种字体之间进行波动，可改写，但需要保证系统拥有下列字体
FontName(1) = "某字体"
FontName(2) = "某字体"
FontName(3) = "某字体"
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
R_Character.Font.Name = FontName(Int(VBA.Rnd * 3) + 1)
R_Character.Font.Size = FontSize(Int(VBA.Rnd * 5) + 1)
R_Character.Font.Position = Int(VBA.Rnd * 3) + 1
R_Character.Font.Spacing = 0
Next
Application.ScreenUpdating = True
For Each Cur_Paragraph In ActiveDocument.Paragraphs
Cur_Paragraph.LineSpacing = ParagraphSpace(Int(VBA.Rnd * 5) + 1)
Next
Application.ScreenUpdating = True
End Sub
随后保存退出即可
实测
在宏窗口直接运行该宏代码
版权声明：本文标题：用word模仿手写字体 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dongtai/1728201725a1149468.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论