今天来讨论一下如何用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
1234567891011121314151617181920212223242526272829303132333435363738394041随后保存退出即可
实测在宏窗口直接运行该宏代码
