如何创建可在给定范围内随机选取指定数量字符的VBA程序？

选中固定数量字符的基础实现代码为：
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
要集成随机选择功能，只需将固定的Count参数替换为随机生成的数值即可，具体实现如下：

• 首先调用Randomize初始化随机数种子，避免每次运行生成的随机序列重复
• 用Rnd函数生成你需要范围内的随机整数，替换原代码中的Count参数值

完整示例代码（随机选中1~10个字符） #

' 初始化随机数种子
Randomize
' 生成1到10区间的随机整数，可自行修改上下限调整选中范围
Dim selectCount As Integer
selectCount = Int((10 - 1 + 1) * Rnd + 1)
' 执行随机长度字符选中操作
Selection.MoveRight Unit:=wdCharacter, Count:=selectCount, Extend:=wdExtend

参数调整说明 #

如需修改随机选中的字符数范围，只需调整随机数生成逻辑里的上下限数值即可：

• 将上述代码中的10替换为你需要的最大选中字符数
• 将上述代码中的1替换为你需要的最小选中字符数

内容的提问来源于stack exchange，提问作者Luke Brakes