怎么让电脑随机地“签名”？

办公之星

　 　　是这么想的。 　　假如我们有一种文书需要没完没了地签名，每年不下几千份，太麻烦了。 　　于是我想，干脆让需要签名的人把签名多写几个，至少十种二十种的，存放为一个夹子。电脑打印时，每到需要签名的地方，就从签名图库中随机选一种“签”上。 　　拿随机做数学概念理解，没错。可能吗？

cxffxc

要签名的时候，随便插入一个签名不就行了。

守柔

请参考： Sub Macro1()
Dim MyValue
On Error Resume Next
Randomize ' 对随机数生成器做初始化的动作。 MyValue = 6 * Rnd ' 生成 1 到 6 之间的随机数值。
'MsgBox MyValue
Select Case MyValue
Case Is <= 1
ActiveDocument.AttachedTemplate.AutoTextEntries("签名1").Insert Where:= _
Selection.Range, RichText:=True
Case Is <= 2
ActiveDocument.AttachedTemplate.AutoTextEntries("签名2").Insert Where:= _
Selection.Range, RichText:=True
Case Is <= 3
ActiveDocument.AttachedTemplate.AutoTextEntries("签名3").Insert Where:= _
Selection.Range, RichText:=True
Case Is <= 4
ActiveDocument.AttachedTemplate.AutoTextEntries("签名4").Insert Where:= _
Selection.Range, RichText:=True
Case Is <= 5
ActiveDocument.AttachedTemplate.AutoTextEntries("签名5").Insert Where:= _
Selection.Range, RichText:=True
Case Is <= 6
ActiveDocument.AttachedTemplate.AutoTextEntries("签名6").Insert Where:= _
Selection.Range, RichText:=True
End Select
End Sub 请楼主注意，需设置六个（自定义）图章（或签名）的自动图文集。

[此贴子已经被作者于2004-3-18 10:46:56编辑过]

办公之星

　　感谢！

菊石泽露

学习学习!

xuweiqun

我可以给你写个软件,VC写，功能完善

QQ: 12626946

MSN: xuweiqun1982@hotmail.com