Tilfældige tal i et Word dokument

Sidenr kunne vel anvendes - dette er entydigt og kan i givetfald indsættes på forskellige steder.

Men kan jeg bruge det, så sidenr. bliver forskelligt på alle 300 kopier af dokumentet? Det nytter jo ikke noget at to beboere får det samme nr.

OK, hvis du fysisk kun har eet dokument, som udskrives 300 gange - så er det et problem - men en makro kan klare det ved at indsætte spørgeskemaet 300 gange i et dokument.

Ja, det kan der selvfølgelig være noget om, men så kunne jeg jo også bare sidde og paste dokumentet 300 gange i samme dokument. Jeg synes bare det er en temmelig grov løsning.

Er der virkelig ikke en mere raffineret måde at gøre det på?

Du kan indsætte et Felt i top og bund
felt med Time - vælg format (dato + tid)
så får du vist det du ønsker

Hm, interessant.

Hvis jeg så laver en eller anden obskur blanding af minutter og sekunder, burde det give nogle gode tal. Men vil feltet blive opdateret for hver gang jeg printer dokumentet, eller kun når jeg åbner det (jeg sidder ikke ved en printer, så jeg har ikke mulighed for at afprøve det lige nu)?

hvis du udskriver dem alle samme dag, skulle tiden jo være nok
har kun prøvet med 5 udskrifter - 1 af gangen
Hvis du kan fortælle mig hvordan man udskriver flere kopier, kan jeg lige teste

Hvis du vælger Udskriv i Filer, kan du vælge "Antal kopier".

kakadue -> Du kan oprette et excel ark med 300 numre og lave en fletning, så vil du få et dokument med 300 sider og hver sit nr.

desværre ved udskrift af flere kopier, opdateres Time-feltet ikke

Opret 2 "bogmærker" i Spørgeskemaet (løbenr & løbenr2), hvor løbenr ønskes udskrevet.

Indsæt følgende kode i spørgeskemaet - VBA-vinduet (Alt+F11) - Thisdocument:

Const antalSP = 300                                'Antal spørgeskemaer
Const nr = 100                                      'start løbenr

Dim løbenr As Integer
Sub startPrint()
    løbenr = nr
    printUd
End Sub

Private Sub printUd()
    For antal = 1 To antalSP
        indsætLøbenr "løbenr"
        indsætLøbenr "løbenr2"
   
        ActiveDocument.PrintOut
        løbenr = løbenr + 1
    Next antal
End Sub

Private Sub indsætLøbenr(bm)
    ActiveDocument.Bookmarks(bm).Select
    WordBasic.endofline 1
    WordBasic.Insert CStr(løbenr)
End Sub

Okay, det der ser supergodt ud. Men skal jeg så bare vælge Udskriv og angive at jeg vil have 300 kopier og så kører den selv deropad? Eller skal jeg bare sætte en udskrift i gang og så fyrer den selv 300 kopier ud?

Nånej, der fattede jeg den! Man skal bare afspille makroen og så går den i gang! Det er jo PRÆCIS det jeg ledte efter!

Jeg takker mange gange for svaret :)

Selv tak!