小伙儿参加了学校的一个学时活动,原以为水水就过去了,报名后发现事实并没那么简单

 

 

利用 Word 实现手写效果


背景

2019 年 9 月,我第一次背上行囊离开生我养我的家乡,开启美好的大学生活,原以为高中老师嘴中那自由的新天地在向我疯狂招手,在得知【学时】制度 (大学四年一共要修满 240 个学时 ——> 及格;400——> 满分) 后,我宛如再次被 “囚禁” 的鸟儿,“什么,参加活动才有学时?!还计分??🤬🤬🤬”,自此以后学时

六月是我国的安全生产月,但由于疫情的影响,学时活动都只能在网上进行,原以为可以水水学时,但是但是但是800字

 

开始操作

不少于 800 字】、【纸质扫描版】…… 让原本不富裕的家庭雪上加霜。要说科技改变生活,不无道理。

懒人改变生活

快速地打开百毒,优雅地输入 “手写体”,下载 ——> 解压 ——> 安装字体,兴致冲冲地打开 Word,嘴角疯狂上扬,就这?一番捣鼓后,800 多字的读后感完成了,但是又出现了问题NPF8jx.png


再次操作

写得太整齐了。办法总是有的,一顿操作后,在知乎上发现了前人栽的树

UncleSugar 的回答

通过 “UncleSugar” 大佬的方法完成 “手写 800 字” 任务,附上最终成品 [一张]。NPAfcn.png

我一共下载了三款字体【** 陈静的字完整版】、【萌妹子字体】、【李国夫手写字体 **】。也可以根据自己的需要和喜好去下载,字体相似度越高越好。


疯狂操作

打开 Word,【左下角 “选项”】——>【左侧 “信任中心”】——>【信任中心设置】——> 勾选【启用所有宏

NPejPO.png

 

创建宏NPmkIf.png

删除自动生成的代码

1
2
3
4
5
6
7
Sub 字体修改()
'
' 字体修改 宏
'
'

End Sub

添加代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Sub 字体修改()
'
' 字体修改 宏
'
Dim R_Character As Range


Dim FontSize(5)
' 字体大小在5个值之间进行波动,可以改写
FontSize(1) = "21"
FontSize(2) = "21.5"
FontSize(3) = "22"
FontSize(4) = "22.5"
FontSize(5) = "23"



Dim FontName(3)
'字体名称在三种字体之间进行波动,可改写,但需要保证系统拥有下列字体
FontName(1) = "陈静的字完整版"
FontName(2) = "萌妹子体"
FontName(3) = "liguofu"

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

快捷键 F5,运行,即可返回 Word 查看效果,可以在调整调整字体大小,使其更加自然。大功告成!


  我是此间少年郎,你是天上明月光。