比特微 xaml flexbox io vue路由 vue的钩子函数 vue绑定事件 teamviewer验证被拒绝 java数据分析 本地安装mysql mysql教程 二分查找python python参数 python用什么ide python建站 java案例 java停止线程 源计划卡特 html特殊字符 qq免安装 卡巴斯基离线升级包 linux多线程编程 tampermonkey 什么软件买电影票便宜 华为ff c4d文字 t470拆机 网卡驱动安装包 网页自动点击 foobar2000插件 qq飞车刷车 流媒体下载 fastcgi 计算机科学概论 免费ftp空间 寂静城 内存条是什么 太阳代理ip iosps腹肌 linux解压缩命令
当前位置: 首页 > 学习教程  > 编程语言

用word模仿手写字体

2020/12/5 10:33:03 文章标签:

今天来讨论一下如何用word做手写字体 首先我们来看一下效果图: 咳咳,是不是很有feel! 教程来了! 首先你需要下载一个手写字体: 百度一下你就拥有,这个我就不推荐什么什么字体,什么什么网站了…

今天来讨论一下如何用word做手写字体

首先我们来看一下效果图:
在这里插入图片描述
咳咳,是不是很有feel!

教程来了!

  1. 首先你需要下载一个手写字体:
    百度一下你就拥有,这个我就不推荐什么什么字体,什么什么网站了,相信大家都可以找到一款适合自己的。
  2. 将手写字体解压到文件夹下
    在这里插入图片描述
  3. 打开控制面板,搜索字体,然后进入文件夹:
    在这里插入图片描述
  4. 然后将之前文件夹下的ttf文件拖拽进去就可以了。
  5. 接下来打开word!
  6. 打开文件->选项->信任中心->信任中心设置中选择该选项:
    在这里插入图片描述
  7. 打开视图->宏->新建“手写字体”
    在这里插入图片描述
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

随后保存退出即可

实测

在宏窗口直接运行该宏代码
在这里插入图片描述


本文链接: http://www.dtmao.cc/news_show_450254.shtml

附件下载

相关教程

    暂无相关的数据...

共有条评论 网友评论

验证码: 看不清楚?