gutes argument, denn wenn man es mit einem computer macht, ist es auch nicht 100prozentig zufaellig.Original geschrieben von -DaGGer-
hm und wie geht es da?
ich brauch ja praktisch nur ein Blatt voll mit Zahlen die zufällig sind, wenn man das per Hand macht ist es ja nicht 100prozentig zufällig![]()
Original geschrieben von -DaGGer-
und nein ich kann sowas nicht selber programmieren
Dim zufall As Integer
Do Until Selection.Information(wdNumberOfPagesInDocument) = 2
If Selection.Information(wdNumberOfPagesInDocument) = 1 Then
Randomize
zufall = Int(Rnd * 9)
If zufall > 0 Then
Selection.TypeText Text:=zufall
End If
End If
Loop