如何在WORD表格中插入随机函数？不是excel

WORD中的VBA也有函数啊。

a$="" & Rnd() '生成0-1之间的小数随机数
a$="" & Rnd() * 1000 '生成0-1000之间的随机数(带小数）
a$="" & Int(Rnd() * 1000) '生成0-1000之间的整数随机数

下面的VBA过程在WORD正文内容中插入一个5位数的整数随机数，后加一个换行符：
Sub bbb()
a$ = "" & Int(Rnd() * 100000)
Selection.TypeText a$
Selection.TypeParagraph
End Sub

-------

1
$ = + 4

2
光标置于表格第一列顶端，先录制一个宏，操作：
a 启动录制宏;
b 输入：123
c 按向下光标键，移到第一列第二格;
d 输入：456
e 关闭录制宏
查看,可见到录制的宏内容：
Sub Macro1()
Selection.TypeText Text:="123"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:="456"
End Sub
进行一些修改，加上循环，成为

Sub Macro1()
For i = 1 To 10
Selection.TypeText Text:="" & Int(Rnd() * 1000)
Selection.MoveDown Unit:=wdLine, Count:=1
Next i
End Sub
该宏从表格当前单元格开始，向下连续填充10个随机数。

使用法：
在表格中放好光标（下面要留有至少10行），运行该宏即可。

自己再研究、扩展一下，更详细的可以查阅VBA窗口中的帮助。