如何用word制作逼真的手写字体？

效果

代码

Sub rand()Dim R_Character As RangeApplication.ScreenUpdating = FalseFor Each R_Character In ActiveDocument.CharactersVBA.RandomizeIf R_Character = "。" Or R_Character = "，" Or R_Character = "," Or R_Character = "；" Or R_Character = "’" Or R_Character = "‘" Or R_Character = "“" Or R_Character = "”" Or R_Character = "！" Or R_Character = "？" Or R_Character = "、" Or R_Character = "：" ThenR_Character.Font.Name = "世界那么大"ElseIf R_Character = "分" Or R_Character = "统" ThenR_Character.Font.Name = "伯乐俏皮体"ElseIf Asc(R_Character) >= 48 And Asc(R_Character) <= 57 ThenIf R_Character = "5" ThenR_Character.Font.Name = "游狼近草体（简）"ElseR_Character.Font.Name = "建刚字库徐明简体"End IfElseIf Asc(R_Character) >= 97 And Asc(R_Character) <= 122 Or Asc(R_Character) >= 65 And Asc(R_Character) <= 90 Or R_Character = "." Or R_Character = "（" Or R_Character = "）" Or R_Character = "(" Or R_Character = ")" ThenR_Character.Font.Name = "游狼近草体（简）"ElseIf R_Character = "具" Or R_Character = "有" Or R_Character = "面" ThenR_Character.Font.Name = Choose(Int(VBA.Rnd * 5) + 1, "陈代明硬笔体2013正式版", "邯郸-郭灵霞灵芝体", "迷你简硬笔行书", "陈代明粉笔字体演示版", "方正硬笔行书简体")ElseR_Character.Font.Name = Choose(Int(VBA.Rnd * 2) + 1, "邯郸-郭灵霞灵芝体", "邯郸-郭灵霞灵芝体")End IfEnd IfR_Character.Font.Size = Choose(Int(VBA.Rnd * 7) + 1, "19", "18", "18", "19.5", "18.5", "19", "19.5")R_Character.Font.Position = Choose(Int(VBA.Rnd * 5) + 1, 1.5, 2.5, 2, 0, 1)R_Character.Font.Spacing = Choose(Int(VBA.Rnd * 5) + 1, -1.8, -1.5, -1.6, -1.7, -1.4)Next
Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = "“".Replacement.Text = "".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = "”".Replacement.Text = "".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAll
Application.ScreenUpdating = TrueEnd Sub

如何用word制作逼真的手写字体？相关推荐

使用PHP辅助快速制作一套自己的手写字体实践
一.背景笔者以前在网上看到有民间高手制作字体的相关事迹,觉得把自己的手写字用键盘敲出来是一件很有意思的事情,所以一直有时间想制作一套自己的手写体,前几天在网上搜索了一下制作字体的方法,发现技术上并不 ...
如何用Word制作带有日历的漂亮桌面壁纸？
转载自:微点阅读 https://www.weidianyuedu.com/content/4419293502230.html word制作壁纸如何用word制作带有日历的漂亮桌面壁纸,今天为大 ...
【引用】如何用Word制作试卷模板
离期末已近,老师们可能也开始考虑制作考试试卷了.因而今天咱们就来教大家如何用Word制作一个试卷模板. 一.设置页面试卷通常使用B4纸.横向.分两栏印刷,因此在制作之前,先要设置页面.启动Word ...
office_handwriting 手写字体生成脚本手写文章打印手写效果 windows office word 宏脚本模仿手写模拟手写一键生成代码生成任意文本多种字体手写字体
目录效果图安装方法使用方法效果图先上效果图手写文章生成脚本,可模仿手写字体. 安装方法 1.下载脚本地址:https://github.com/DaviesGit/office_handw ...
Java在线打开word文档实现手写批注
前言: 有些OA系统会有用户在线对word文档添加手写批注的需求,这样的需求看似不好实现,其实是可以实现的. 但是这需要开发者具备将activex控件集成到Java环境的能力.对于大部分Java开发工 ...
php生成手写字,使用PHP辅助快速制作一套自己的手写字体实践
一.背景笔者以前在网上看到有民间高手制作字体的相关事迹,觉得把自己的手写字用键盘敲出来是一件很有意思的事情,所以一直有时间想制作一套自己的手写体,前几天在网上搜索了一下制作字体的方法,发现技术上并不 ...
识别手写字体app_我如何构建手写识别器并将其运送到App Store
识别手写字体app 从构建卷积神经网络到将OCR部署到iOS (From constructing a Convolutional Neural Network to deploying an OCR ...
python+tensorflow CNN卷积神经网络手写字体识别
导入所需的库模块: import os import cv2 import numpy as np import tensorflow as tf2 import matplotlib.pyplot ...
「zi2zi」：用AI生成自己的手写字体
导读如果想要自己做一套字体,无论是电脑软件FontCreator还是网站flexifont都为我们带来了极大的便利. 但是最低的国标字体数量近7000个,若采用传统的方法则需要手写相同数量的汉字,这 ...

如何用word制作逼真的手写字体？

效果

代码

如何用word制作逼真的手写字体？相关推荐

最新文章

热门文章