WPS文字中通过宏加快捷键实现仿word中Lorem()函数的功能

习惯了在word中用lorem(p,s)生成乱数假文以便快速测试，最近公司要求统一使用wps企业版，但是wps文字中没有lorem()函数，于是尝试用宏来实现快速插入乱数假文。

思路：编写宏从已指定元素的字符串数组依次取一这量的字符串拼成指定段落数语句数的文本插入到光标所在行。原lorem()函数81句一重复，所以以这81句声明一个String数组来作为取值的源。然后给宏设置快捷键以快速触发。

实现的效果：输入“[(段落数),(每段句数)”，按快捷键生成指定段落数的乱数假文。

步骤：

编写宏

点击工具栏的开发工具->VB编辑器，在 Normal-模块新增一个模块（也可以点击录制宏来新添一个宏，需要注意的是设置将宏保存在所有文档）

在打开的代码窗体中编写如下：

Sub Lorem()
On Error GoTo errorhandle
'乱数假文源
Dim arrSource(80) As String
arrSource(0) = "Lorem ipsum dolor sit amet, consectetuer adipiscing elit."
arrSource(1) = "Maecenas porttitor congue massa."
arrSource(2) = "Fusce posuere, magna sed pulvinar ultricies, purus lectus malesuada libero, sit amet commodo magna eros quis urna."
arrSource(3) = "Nunc viverra imperdiet enim."
arrSource(4) = "Fusce est."
arrSource(5) = "Vivamus a tellus."
arrSource(6) = "Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas."
arrSource(7) = "Proin pharetra nonummy pede."
arrSource(8) = "Mauris et orci."
arrSource(9) = "Aenean nec lorem."
arrSource(10) = "In porttitor."
arrSource(11) = "Donec laoreet nonummy augue."
arrSource(12) = "Suspendisse dui purus, scelerisque at, vulputate vitae, pretium mattis, nunc."
arrSource(13) = "Mauris eget neque at sem venenatis eleifend."
arrSource(14) = "Ut nonummy."
arrSource(15) = "Fusce aliquet pede non pede."
arrSource(16) = "Suspendisse dapibus lorem pellentesque magna."
arrSource(17) = "Integer nulla."
arrSource(18) = "Donec blandit feugiat ligula."
arrSource(19) = "Donec hendrerit, felis et imperdiet euismod, purus ipsum pretium metus, in lacinia nulla nisl eget sapien."
arrSource(20) = "Donec ut est in lectus consequat consequat."
arrSource(21) = "Etiam eget dui."
arrSource(22) = "Aliquam erat volutpat."
arrSource(23) = "Sed at lorem in nunc porta tristique."
arrSource(24) = "Proin nec augue."
arrSource(25) = "Quisque aliquam tempor magna."
arrSource(26) = "Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas."
arrSource(27) = "Nunc ac magna."
arrSource(28) = "Maecenas odio dolor, vulputate vel, auctor ac, accumsan id, felis."
arrSource(29) = "Pellentesque cursus sagittis felis."
arrSource(30) = "Pellentesque porttitor, velit lacinia egestas auctor, diam eros tempus arcu, nec vulputate augue magna vel risus."
arrSource(31) = "Cras non magna vel ante adipiscing rhoncus."
arrSource(32) = "Vivamus a mi."
arrSource(33) = "Morbi neque."
arrSource(34) = "Aliquam erat volutpat."
arrSource(35) = "Integer ultrices lobortis eros."
arrSource(36) = "Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas."
arrSource(37) = "Proin semper, ante vitae sollicitudin posuere, metus quam iaculis nibh, vitae scelerisque nunc massa eget pede."
arrSource(38) = "Sed velit urna, interdum vel, ultricies vel, faucibus at, quam."
arrSource(39) = "Donec elit est, consectetuer eget, consequat quis, tempus quis, wisi."
arrSource(40) = "In in nunc."
arrSource(41) = "Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos hymenaeos."
arrSource(42) = "Donec ullamcorper fringilla eros."
arrSource(43) = "Fusce in sapien eu purus dapibus commodo."
arrSource(44) = "Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus."
arrSource(45) = "Cras faucibus condimentum odio."
arrSource(46) = "Sed ac ligula."
arrSource(47) = "Aliquam at eros."
arrSource(48) = "Etiam at ligula et tellus ullamcorper ultrices."
arrSource(49) = "In fermentum, lorem non cursus porttitor, diam urna accumsan lacus, sed interdum wisi nibh nec nisl."
arrSource(50) = "Ut tincidunt volutpat urna."
arrSource(51) = "Mauris eleifend nulla eget mauris."
arrSource(52) = "Sed cursus quam id felis."
arrSource(53) = "Curabitur posuere quam vel nibh."
arrSource(54) = "Cras dapibus dapibus nisl."
arrSource(55) = "Vestibulum quis dolor a felis congue vehicula."
arrSource(56) = "Maecenas pede purus, tristique ac, tempus eget, egestas quis, mauris."
arrSource(57) = "Curabitur non eros."
arrSource(58) = "Nullam hendrerit bibendum justo."
arrSource(59) = "Fusce iaculis, est quis lacinia pretium, pede metus molestie lacus, at gravida wisi ante at libero."
arrSource(60) = "Quisque ornare placerat risus."
arrSource(61) = "Ut molestie magna at mi."
arrSource(62) = "Integer aliquet mauris et nibh."
arrSource(63) = "Ut mattis ligula posuere velit."
arrSource(64) = "Nunc sagittis."
arrSource(65) = "Curabitur varius fringilla nisl."
arrSource(66) = "Duis pretium mi euismod erat."
arrSource(67) = "Maecenas id augue."
arrSource(68) = "Nam vulputate."
arrSource(69) = "Duis a quam non neque lobortis malesuada."
arrSource(70) = "Praesent euismod."
arrSource(71) = "Donec nulla augue, venenatis scelerisque, dapibus a, consequat at, leo."
arrSource(72) = "Pellentesque libero lectus, tristique ac, consectetuer sit amet, imperdiet ut, justo."
arrSource(73) = "Sed aliquam odio vitae tortor."
arrSource(74) = "Proin hendrerit tempus arcu."
arrSource(75) = "In hac habitasse platea dictumst."
arrSource(76) = "Suspendisse potenti."
arrSource(77) = "Vivamus vitae massa adipiscing est lacinia sodales."
arrSource(78) = "Donec metus massa, mollis vel, tempus placerat, vestibulum condimentum, ligula."
arrSource(79) = "Nunc lacus metus, posuere eget, lacinia eu, varius quis, libero."
arrSource(80) = "Aliquam nonummy adipiscing augue."'获取光标所在行输入的文本
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Dim strInput As String, inArr() As String
strInput = Selection.Text
strInput = Mid(strInput, 2)
inArr = Split(strInput, ",")Dim p As Integer, s As Integer  '生成的段落数，每段句数
Dim defFlag As Boolean
defFlag = True
If UBound(inArr) = 1 ThenIf IsNumeric(inArr(0)) And IsNumeric(inArr(1)) Then defFlag = False
End IfIf defFlag Then
'未输入或录入有误默认取5段每段3句p = 5s = 3
Elsep = CInt(inArr(0))s = CInt(inArr(1))
End IfDim word As String '插入的内容
Index% = 0
For i% = 1 To pFor j% = 1 To sIf j = 1 Thenword = word & arrSource(Index)Elseword = word & Chr(32) & arrSource(Index)End IfIf Index = UBound(arrSource) ThenIndex = 0ElseIndex = Index + 1End IfNextword = word & Chr(13)
NextSelection.TypeText Text:=word
Exit Sub
errorhandle:
MsgBox Error
End Sub

设置快捷键

1.关闭VB编辑器，打开文件-》选项-》自定义功能区，点击键盘快捷方式栏的自定义：

2.类别中找到最下面的宏，设置快捷键，点击“指定”。

WPS文字中通过宏加快捷键实现仿word中Lorem()函数的功能相关推荐

html中写自增数字,WPS word中数字怎么自增如何在word中设置数字的千位分隔符
选中某行,列或者某一部分,选择菜单栏的"行和列"->"填充"选项,选择序列选项. 在弹出的窗口中设置你需要的选项. WPS文字怎样自动增加数字如何在WP ...
word学习/word如何显示空格/LaTeX格式转为Word格式/ latex中的公式格式如何转换成word中的公式格式/excel复制到word表格过大超出
以windows的word365为例进行讲解,主要分为显示,公式,表格,图片,审阅以及写作方式(含Latex格式转换). 常用快捷键: f4: cmd + y 查找: cmd + shift + h ...
mathtype中公式导入matlab中,如何将MathType公式保存到Word中
在文档中编辑公式是一件很麻烦的事情,因为数学公式编辑起来很麻烦,里面涉及到很多的符号,而这些符号都不是直接在文档中就能编辑出来的,因此要想要Word文档中编辑出数学公式,就一定要借助MathType公 ...
计算机中word的快捷键大全,Word中全选的快捷键是什么 word快捷键大全【图解】...
导语: Word我想大家应该都不陌生吧,不管是科技落后的20世纪,还是科技高度发达的今天,word文档从诞生之始就一直是我们电脑办公最为重要的工具.现在我们不论是学习.工作.还是休闲娱乐,到处都可以见 ...
html中怎么只加一条边框,html中如何让层只显示上下边框.急
html中如何让层只显示上下边框.急以下文字资料是由(历史新知网www.lishixinzhi.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 中如何让层只显示上下边框.急设定层 ...
Java 类中各成分加载顺序和内存中的存放位置
一.什么时候会加载类? 使用到类中的内容时加载:有三种情况 1.创建对象:new StaticCode(); 2.使用类中的静态成员:StaticCode.num=9; StaticCode.show ...
vb语言中怎样编码窗体中所有字体加粗_VBText控件中使字体加粗和倾斜的代码是什么...
展开全部 VBText控件中使字体加粗和倾e69da5e6ba9062616964757a686964616f31333365656537斜的代码是: 加粗 Label1.FontBold = Tru ...
mysql left join中on后加条件判断和where中加条件的区别
left join中关于where和on条件的几个知识点:1.多表left join是会生成一张临时表,并返回给用户2.where条件是针对最后生成的这张临时表进行过滤,过滤掉不符合where条件的记 ...
在word中编辑matlab图,基于Matlab在Word中插入函数图形
在Word中插入已有的图片.图形,或者是用Word提供的绘图工具插入图形是非常方便的,但要在Word中精准地插入复杂的数学函数图像图形,Word本身提供的绘图功能就显得力不从心了,将Word与MatL ...

WPS文字中通过宏加快捷键实现仿word中Lorem()函数的功能

WPS文字中通过宏加快捷键实现仿word中Lorem()函数的功能相关推荐

最新文章

热门文章