用VBA在Word中随机打乱单词表,进行分列
一、效果展示(以下是三次随机打乱的结果)



二、代码
Sub 随机分单词到后面的单元格()Dim C1 As CellDim str, str1, aDim shuffledArray() As VariantSet C1 = Selection.Range.Tables(1).Cell(1, 1)str = C1.Range.textstr = mid(str, 3, Len(str) - 4)str1 = Split(str, vbCr)' 获取数组大小arraySize = UBound(str1) - LBound(str1) + 1halfSize = arraySize \ 2' 生成一个打乱的数组ReDim shuffledArray(LBound(str1) To UBound(str1))For i = LBound(str1) To UBound(str1)shuffledArray(i) = str1(i)Next i' 打乱数组Call 随机打乱数组(shuffledArray)' 分配到两个新数组ReDim group1(LBound(shuffledArray) To halfSize - 1)ReDim group2(halfSize To UBound(shuffledArray))For i = LBound(shuffledArray) To UBound(shuffledArray)If i < halfSize Thengroup1(i) = shuffledArray(i)Elsegroup2(i) = shuffledArray(i)End IfNext i' 输出结果For Each a In group1str2 = str2 & a & vbCrNextFor Each a In group2str3 = str3 & a & vbCrNextSelection.Range.Tables(1).Cell(1, 2).Range.text = str2Selection.Range.Tables(1).Cell(1, 3).Range.text = str3End SubSub 随机打乱数组(ByRef arr() As Variant)Dim i As IntegerDim j As IntegerDim temp As VariantDim n As Integern = UBound(arr) - LBound(arr) + 1For i = LBound(arr) To UBound(arr)j = Int((UBound(arr) - LBound(arr) + 1) * Rnd + LBound(arr))temp = arr(i)arr(i) = arr(j)arr(j) = tempNext i
End Sub
相关文章:
用VBA在Word中随机打乱单词表,进行分列
一、效果展示(以下是三次随机打乱的结果) 二、代码 Sub 随机分单词到后面的单元格()Dim C1 As CellDim str, str1, aDim shuffledArray() As VariantSet C1 Selection.Range.Tables(1).Cell(1, 1)str C1.Range.textstr mid(str, 3, Len(str) - 4)str…...
UNI-APP_点击,长按,触摸,结束触摸事件
touchstartEventHandle手指触摸动作开始字节跳动小程序不支持touchmoveEventHandle手指触摸后移动字节跳动小程序不支持touchendEventHandle手指触摸动作结束字节跳动小程序不支持touchcancelEventHandle手指触摸动作被打断,如来电提醒,弹窗字节跳动小程…...
【QT】Qt 音视频
Qt 音视频 Qt 音视频1. Qt 音频2. Qt 视频 Qt 音视频 在 Qt 中,音频主要是通过 QSound 类来实现。但是需要注意的是 QSound 类只支持播放 wav 格式的音频文件。也就是说如果想要添加音频效果,那么首先需要将非 wav 格式的音频文件转换为 wav 格式。 通…...
CSP-J 复赛 模拟题6
1.大小写字母互换: 题目描述 由输入给定一个字符串,你的任务是将原字符串中的大写字母转换成其对应的小写字母,还要将原字符串中的小写字母转换成对应的大写字母,其余字符不变。 输出转换之后得到的新字符串。 输入格式 一行…...
拷贝函数的三种调用方式
1.使用一个已经创建完成的对象来初始化一个新对象,就比如有参构造接收了一个属性后拷贝构造copy它后可以将获取的值赋值给自己的属性 记得拷贝后还要再进行赋值才行 2.值传递的方式给函数参数 额外声明一点,因为我们知道struct和class很相似,…...
C语言 | Leetcode C语言题解之第327题区间和的个数
题目: 题解: #define FATHER_NODE(i) (0 (i) ? -1 : ((i) - 1 >> 1)) #define LEFT_NODE(i) (((i) << 1) 1) #define RIGHT_NODE(i) (((i) << 1) 2)/* 优先队列(小根堆)。 */ typedef s…...
统计学:条件概率模型
照片由Edge2Edge Media在Unsplash上拍摄 一、介绍 在概率的许多应用中,不可能直接观察实验的结果;而是观察与结果相关的事件。因此,条件概率模型对于考虑和利用从观察到的事件中获得的信息至关重要。此外,条件概率模型与贝叶斯定理…...
前端工程师学习springboot2.x之配置idea热更新实现高效率开发节奏
目前已经学习springboot实现了增删改查分页查询,每次修改业财或者是代码重启项目都让我觉得很闹心,现在给出idea2021版本自带热更新操作设置,设置过程分享给大家 总结:以上就是配置的全部过程,祝大家写代码快乐…...
文本rerank与图像rerank
1、文本rerank: 这里介绍的是目前比较流行和通用一套方案:先利用特征检索(这里是特征空间上的相似度),召回相关信息,然后对query与召回的相关信息进行rerank(这里是利用cross-encoder网络做一个…...
Docker 在 Windows 系统下的使用指南:数据卷和数据库
Docker 在 Windows 系统下的使用指南:数据卷和数据库 Docker 提供了强大的功能来创建、管理和持久化数据。数据卷是 Docker 中用于存储和管理数据的机制,使得数据能够在容器的生命周期之外持久化。数据库容器可以利用数据卷来持久化数据库文件ÿ…...
[数据集][目标检测]轴承缺陷划痕检测数据集VOC+YOLO格式1166张1类别
数据集格式:Pascal VOC格式YOLO格式(不包含分割路径的txt文件,仅仅包含jpg图片以及对应的VOC格式xml文件和yolo格式txt文件) 图片数量(jpg文件个数):1166 标注数量(xml文件个数):1166 标注数量(txt文件个数):1166 标注…...
将本地微服务发布到docker镜像二:
上一篇文章我们介绍了如何将一个简单的springboot服务发布到docker镜像中,这一篇我们将介绍如何将一个复杂的微服务(关联mysql、redis)发布到docker镜像。 我们将使用以下两种不同的方式来实现此功能。 redis、mysql、springboot微服务分开…...
前端构建工具|vite快速入门
认识vite vite组成部分 Vite是一种新型前端构建工具,能够显著提升前端开发体验。它主要由两部分组成: 一个开发服务器,它基于 原生 ES 模块 提供了 丰富的内建功能,如速度快到惊人的 模块热更新(HMR)。一…...
拯救PyCharm:击退IDE内存泄漏的策略
拯救PyCharm:击退IDE内存泄漏的策略 PyCharm,作为一款功能强大的集成开发环境(IDE),在处理大型项目或长时间开发过程中,可能会遇到内存泄漏的问题,导致IDE运行缓慢甚至崩溃。本文将提供一系列解…...
在vue3的开发环境中为什么使用vite而不是用webpack
1、vite在开发阶段没有打包过程,直接启动一个服务器 2、请求一个模块到开发服务器 3、开发服务器编译模块,根据页面用所需要的依赖去加载文件 4、加载完成后,开发服务器把编译的结果返回给页面 这使得提高了我们在开发阶段运行的效率 vite是…...
mybatis结合generator进行分页插件PluginAdapter开发
mybatis结合generator生成的代码没有分页的功能,可以尝试自己继承分页插件PluginAdapter,进行开发,实现自己的分页插件这样generator生产的代码 带分页功能了。 MyBatis MySQL自动生成带分页插件 继承PluginAdapter类,实现相关方…...
面试:ArrayList和LinkedList
ArrayList和LinkedList是什么? ArrayList: ArrayList是Java集合框架中的一个类,它实现了List接口,底层基于数组实现。ArrayList的特点是支持动态数组,可以自动扩容,适合顺序访问和随机访问。LinkedList&am…...
【uniapp】uniapp+vue2微信小程序实现分享功能
uniappvue2做的微信小程序实现分享功能 问题描述 uniappvue2做的微信小程序,发布以后点击右上角三个点,分享小程序的时候,转发和分享按钮都是灰色 解决方案 转发、分享、复制链接这几个功能需要自己来手动写方法,考虑到每个页…...
WEB渗透Web突破篇-目录爆破
开源 工具名称下载地址工具描述cansinahttps://github.com/deibit/cansina网站的敏感目录发掘工具Cewlcewl | Kali Linux Tools你可以给它的爬虫指定URL地址和爬取深度,接下来Cewl会给你返回一个字典文件dirsearchhttps://github.com/maurosoria/dirsearch目录扫描…...
Windows设备文件同步平台
使用咨询: 扫码添加QQ 永久免费: Gitee下载最新版本 使用说明: CSDN查看使用说明 功能: 定时(全量采集or增量采集) SCADA,MES等系统采集工控机,办公电脑文件. 优势1: 开箱即用. 解压直接运行.插件集成下载. 优势2: 批管理设备. 配置均在后台配置管理. 优势3: 无人值守 采集端…...
EF Core 10向量搜索性能突增300%却账单翻倍?揭秘4层隐性成本漏斗及7天可落地的预算熔断策略
第一章:EF Core 10向量搜索性能跃迁与成本悖论全景透视EF Core 10正式引入原生向量类型支持(Vector<float>)及与SQL Server 2022、PostgreSQL 16的深度集成,标志着ORM层首次具备端到端向量相似性查询能力。这一演进并非简单…...
JTAG接口原理与调试实战指南
1. JTAG接口基础解析与核心功能JTAG(Joint Test Action Group)作为现代数字系统开发中不可或缺的调试接口,其重要性往往被工程师们低估。这个诞生于1985年的IEEE 1149.1标准,最初是为了解决PCB板级互联测试难题,如今已…...
chrony命令实验
理论基础授时服务器(NTP服务器)定义:是一种专门提供高精度时间服务的设备或服务,用于告诉设备目前的时间作用:提供标准时间换句话说统一时间、持续校准时间误差在此命令的配置文件/etc/chrony.conf中的 pool ... iburst 这就是授时服务器的地…...
为什么83%的PHP项目AI检测失败:深度拆解Tokenization偏差、框架上下文缺失与Composer依赖盲区
第一章:PHP AI代码检测的现状与核心挑战当前,PHP作为全球广泛部署的Web后端语言,其生态中存在大量历史遗留代码、动态类型特性及弱类型隐式转换机制,为AI驱动的静态/动态代码检测带来了独特复杂性。主流工具链(如PHPSt…...
终极DevSecOps安全测试工具大全:OWASP ZAP、Brakeman等实战应用指南
终极DevSecOps安全测试工具大全:OWASP ZAP、Brakeman等实战应用指南 【免费下载链接】awesome-devsecops An authoritative list of awesome devsecops tools with the help from community experiments and contributions. 项目地址: https://gitcode.com/gh_mir…...
WPF新手村教程(七)—— 终章(MVVM架构初见杀)陶
1. 哑铃图是什么? 哑铃图(Dumbbell Plot),有时也称为DNA图或杠铃图,是一种用于比较两个相关数据点的可视化图表。 它源于人们对更有效数据比较方式的持续探索。 在传统的时间序列比较中,我们通常使用两条折…...
Python入门之函数调用
第1关:内置函数 - 让你偷懒的工具任务描述 我们在编程过程中会用到很多函数,但我们不需要每个函数都自己去编写,因为 Python 内置了很多十分有用的函数,我们在编程过程中可以直接调用。本关目标是让学习者了解并掌握一些常用的 Py…...
Triton + RISC-V缓
. GIF文件结构 相比于 WAV 文件的简单粗暴,GIF 的结构要精密得多,因为它天生是为了网络传输而设计的(包含了压缩机制)。 当我们用二进制视角观察 GIF 时,它是由一个个 数据块(Block) 组成的&…...
购物团截图自动马赛克地址,手机号码
订单截图隐私信息自动脱敏工具一、工具概述 本工具是基于 Python OCR 技术开发的电商订单截图隐私自动脱敏工具,针对淘宝、京东、拼多多等主流电商平台订单截图,自动识别并对收货地址、手机号码等敏感信息进行马赛克打码,实现隐私保护。 工具…...
5分钟上手Krita智能选区插件:AI一键抠图,释放创作潜能 [特殊字符]
5分钟上手Krita智能选区插件:AI一键抠图,释放创作潜能 🎨 【免费下载链接】krita-vision-tools Krita plugin which adds selection tools to mask objects with a single click, or by drawing a bounding box. 项目地址: https://gitcode…...
