可实现电脑体批量生成手写体
使用语言:VBA
1.打开word 在视图中 找到 宏 打开
2.选择 查看宏
3 .选择创建宏
4. 粘贴代码
5.源码
Sub 字体修改()
'
' 字体修改 宏
'
Dim R_Character As Range
Dim FontSize(3)
' 字体大小在5个值之间进行波动,可以改写
FontSize(1) = "17"
FontSize(2) = "17"
FontSize(3) = "17.5"
Dim FontName(3)
'字体名称在三种字体之间进行波动,可改写,但