Mahmud ha chiesto un modo per stampare copie personalizzate di un documento. Ha iniziato con un elenco di nomi in un normale file di testo, uno per riga, e voleva stampare una copia del documento Word corrente per ciascuno di quei nomi. Inoltre, voleva che il nome della persona fosse inserito nell’intestazione del documento.

Il processo per eseguire tale attività è abbastanza semplice: apri il file di testo, prendi un nome, mettilo nell’intestazione e quindi stampa il documento. Viene acquisito un altro nome e il processo viene ripetuto finché non ci sono più nomi nel file. La seguente macro implementa tale processo:

Sub PutNamesInHeader()

Dim sName As String

Open "c:/names.txt" For Input As #5     Do While Not EOF(5)

' get the name         Line Input #5, sName

ActiveWindow.ActivePane.View.SeekView = _           wdSeekCurrentPageHeader         Selection.WholeStory         Selection.Delete         Selection.TypeText Text:=sName

ActiveWindow.ActivePane.View.SeekView = _           wdSeekMainDocument         ActiveDocument.PrintOut     Loop

Close #5

ActiveWindow.ActivePane.View.SeekView = _       wdSeekCurrentPageHeader     Selection.WholeStory     Selection.Delete     ActiveWindow.ActivePane.View.SeekView = _       wdSeekMainDocument End Sub

La parte complicata della macro sta usando la proprietà .SeekView per specificare quale storia nel documento si desidera lavorare. Come implementato qui, la proprietà .SeekView viene utilizzata ripetutamente per passare dall’area dell’intestazione al documento principale. Dopo il ciclo (prendere nomi e stampare)

è completato, l’area dell’intestazione viene cancellata e .SeekView viene riportato al documento principale.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (152) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia a nastro di Word (Word 2007 e più tardi) qui:

Stampa di copie personalizzate di un documento.