• Liebe User, bitte beachtet folgendes Thema: Was im Forum passiert, bleibt im Forum! Danke!
  • Hallo Gemeinde! Das Problem leidet zurzeit unter technischen Problemen. Wir sind da dran, aber das Zeitkontingent ist begrenzt. In der Zwischenzeit dürfte den meisten aufgefallen sein, dass das Erstellen von Posts funktioniert, auch wenn das Forum erstmal eine Fehlermeldung wirft. Um unseren Löschaufwand zu minimieren, bitten wir euch darum, nicht mehrmals auf 'Post Reply' zu klicken, da das zur Mehrfachposts führt. Grußworte.

Microsoft Word-Funktion/Programm

Mitglied seit
28.11.2005
Beiträge
9.296
Reaktionen
94
Ort
BALLERN
Gibt es in Word ne Funktion, welche einfach zufällig eine Seiten Nummern von 1->9 schreibt? bzw n programm, welches sowas macht?
und nein ich kann sowas nicht selber programmieren
schonmal thx im vorraus

DaGGer
 
Mitglied seit
28.11.2005
Beiträge
9.296
Reaktionen
94
Ort
BALLERN
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 :(
 
Mitglied seit
12.01.2004
Beiträge
8.557
Reaktionen
0
Ort
Gießem
hm spontan würde ich sagen: schreib dir einfach in einer sprache deiner wahl so ein programm und copy&paste es ^^
 

haschischtasche

Ährenpenis
Mitglied seit
28.09.2002
Beiträge
37.272
Reaktionen
7.908
Mitglied seit
30.07.2000
Beiträge
4.626
Reaktionen
71
Geht mit nem VBA-Makro auch in Word ziemlich easy, hab es aber nicht mehr auswendig im Kopf. Wenn du willst, schau ich es nochmal in meinen Erstsemester-Unterlagen nach.
 
Mitglied seit
02.08.2002
Beiträge
2.781
Reaktionen
0
es gibt webseiten, die wirklich zufällige zahlen zum download (oder per copy&paste) liefern - musste aber mal google bemühen, da die uri mir entfallen ist
 
Mitglied seit
28.11.2005
Beiträge
9.296
Reaktionen
94
Ort
BALLERN
ok thx werd mal danach googlen, danke fürs angebot smarty aber soviel arbeit brauchste dir dann auch wieder net machen ;)
 
Mitglied seit
12.08.2002
Beiträge
12.549
Reaktionen
0
Code:
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

der schreibt aber noch so knapp ne zeile auf seite 2 weiter; word hasst seitenzahlen ~
 
Oben