[WORD] Numero progressivo per la stampa

[Spaolithos]

Tratto dal gruppo it.comp.os.win.software:


D: E' possibile secondo voi stampare la stessa pagina di Word con numerazione
progressiva? In particolare dovrei crearmi dei moduli tutti uguali la cui unica differenza sta nel numero progressivo. Il modello ce l'ho pronto. Dovrei inserire un campo numerico e mandare in stampa 1000 volte la stessa pagina ma con numerazione crescente. Che strada devo seguire?

R: Dal menu "Strumenti" -> "Macro" -> "VisualBasicEditor" -> "Inserisci" -> "Modulo"
Incollaci queste righe di codice:

Sub num_crescente() 
Dim i As Integer 
    For i = 1 To 1000 
        With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range 
            .Text = "Pag." & i 
            .ParagraphFormat.Alignment = wdAlignParagraphCenter 
        End With 
        Application.PrintOut Background:=True 
    Next i 
End Sub

Torna su Word e dal menu "Strumenti" -> "Macro" lancia la macro num_crescente