百度360必应搜狗淘宝本站头条
python判断字典是否为空crontab每周一执行aes和des区别安装指定版本npmadb pull
当前位置：网站首页 > IT知识 > 正文

该死的手抄滚开（该死的手抄滚开表情包）

liuian 2025-06-13 14:49 4 浏览

碰到形式主义惯犯或硬拔存在感的，顶不住要手抄怎么办？电脑时代这一切都不是问题，除了纸张背面少点中性笔划下的凸痕。

网络上有大量的手写体，比较大众化（就是丑）的有李国夫手写体、陈静的字体、萌妹子等，我们也可以在方正手迹造字app中生成自己的字体，随便用用的话个把小时写个几百字就成。哟，就是下面这些烂字，好处就是平易近人哟！

但这些字体安装应用后，还是有些美中不足，就是字距行距标点符号都一样，重复的字也是一模一样的，碰上较真的还是容易看出偷机的端倪。那么，我们在Word宏编程中设置每个字在几种手写体中随机应用字体，字号、字距、行距、高低等都在一定幅度内随机变化，生成的成果就接近天衣无缝了。如下，应该不好意思再说是电脑生成的了。

Word中，文件>选项>信任中心>信任中心设置>宏设置，选择“启用所有宏设置”，然后，视图>宏，输入名字“字体修改”，在跳出来的窗口中，粘贴网上大神鼓捣的代码，用时运行即可。

我用Word2003，将此宏直接放到了工具栏，要用时点一下就可以了。工具>宏>录制新宏，命名，指定到工具栏。Alt+F8，打开宏，找到刚才录制的宏，编辑，粘贴代码。然后在工具栏中将此宏命名为“手”（菜单栏>右键>自定义）。

把这个应用到什么讲义、表格、A5稿纸，再就简单了。

偷机代码如下【代码中字体名称应与电脑中安装的一致】：


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) = "李国夫手写体"


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

相关推荐

办公小技巧:定时提醒不慌张 Excel制作智能提醒器

平时工作或学习中总有许多事情需要提醒，比如参加高考的日子、女友的生日、每周例会等。我们可以利用Excel的函数制作实用的智能提醒器，就不用担心忽略这些重要的日子了。每周例会轻松提醒公司规定每个月的最后...

使用vba将Excel 文件转成 CSV 文件

使用vba将Excel中的内容写入文本文件，保存为txt或csv格式。方法一：SubtoCSV()DimshtAsWorksheetDimiAsInteger,j...

用Excel编写俄罗斯方块（vb做俄罗斯方块）

看到这个题目，想必你一定会感到非常惊讶，什么，Excel居然能开发游戏？没错，Excel的强大取决于使用者，遇强则强，遇弱则弱。但我这篇文章并不是为了展示Excel使用过程中的奇技淫巧，而是主要写给那...

该死的手抄滚开（该死的手抄滚开表情包）

碰到形式主义惯犯或硬拔存在感的，顶不住要手抄怎么办？电脑时代这一切都不是问题，除了纸张背面少点中性笔划下的凸痕。网络上有大量的手写体，比较大众化（就是丑）的有李国夫手写体、陈静的字体、萌妹子等，我们也...

Excel二维表转换一维表，三种方法一网打尽!

今天高顿网校小编向大家分享二维表格转一维表的三种方法，分别用到函数、数据透视表和VBA代码。三种方法各有利弊，表亲可以自行选择。如下图，A1:E5是数据源，A7:C22是最终要实现的结果样式：一起动手...

PMC用到的所有函数，大咖总结，实用干货，PMC必备神器!

PMC用到的所有函数你和PMC大咖之间的差异，就是这些Excel函数！1.PMC日常用到的所有函数如下，大咖总结，实用干货，PMC必备神器！每个函数都有实例讲解，不怕你不会。序号PMC工作需求EXCE...

Excel VBA应用-13:统计业务员业绩，目标完成率分析表

在评价业务员销售业绩时，往往会给业务员设定销售目标，根据实际业务计算业务员的目标完成率。报表格式如下图：要计算目标完成率，首先要有销售目标的数据，可以在Excel表中建立一个销售目标表，这种方式的好处...

VBA高级应用30例应用2实现在列表框内及列表框间实现数据拖动

《VBA高级应用30例》（版权10178985），是我推出的第十套教程，教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开，这套教程案例与理论结合，紧贴“实战”，并做“战术总结”，以便大家能...

技术分析:一款流行的VBA宏病毒（vba宏是什么）

1.通过邮件传播的宏病毒近期流行的一个宏病毒通过邮件进行传播,捕捉到的一个样本，其邮件头如下：邮件的内容是这样子的(为节省篇幅,省略号处省略部分内容)：YourbillsummaryAccount...

Excel规划求解怎么用?最简单的3*3不同数字填充技...

Excel有什么样的功能，它到底有多强大？Excel表格中有函数公式、图表、操作技巧、vba操作等不同类型的使用方法，但还有一种更加重要的用法就是数据分析，需要用到的就是我们的Excel规划求解。规划...

excel vba vb.net考勤时间处理通用方法(2)

接上期：excelvbavb.net考勤时间处理通用方法（1）DimstartTicksAsIntegerstartTicks=My.Computer.Clock.Ti...

aardio + VBA ( Excel ) 快速开发，3 分钟可入门

aardio很小，下载就可以使用，没有任何复杂步骤。aardio与ExcelVBA（兼容WPSJSA）可以相互调用函数，不需要任何复杂的封装。3分钟够用，下面开始：一、aardio...

VBA+SQL实战:根据时间智能匹配比赛场次，获取最近3场比赛数据

“每天有大量比赛数据，如何快速判断某时间属于哪一场比赛，并自动获取最近3场记录？”本文介绍VBA和SQL双方案，实现：自动匹配时间所属场次（如“第一场/第二场/第三场”）智能返回最近3场比赛数据（跨...

Excel VBA 每天一段代码:自定义分页函数

3月12日视频《ExcelVBA网友答疑：ActiveX控件实现数据分页、翻页》中，我自定义了函数窗体数据查询（），现将代码公布如下：参数说明：1、ItemNum每页显示的数据数量（由复合框下...

VBA布尔矩阵筛选在财会场景的六大高阶应用

基于内存位运算与矩阵预编译技术，布尔矩阵可大幅提升财务数据处理效率。以下是针对2025年财务自动化需求的创新实践案例，覆盖审计、税务、合并报表等核心场景：1.多维度税务异常检测场景：在500万条交易...

一周热门
最近发表
标签列表