Mahmud pidió una forma de imprimir copias personalizadas de un documento. Comenzó con una lista de nombres en un archivo de texto normal, uno por línea, y quería imprimir una copia del documento de Word actual para cada uno de esos nombres. Además, quería que el nombre de la persona se colocara en el encabezado del documento.

El proceso para realizar dicha tarea es bastante sencillo: abra el archivo de texto, tome un nombre, póngalo en el encabezado y luego imprima el documento. Se toma otro nombre y el proceso se repite hasta que no hay más nombres en el archivo. La siguiente macro implementa dicho proceso:

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 complicada de la macro es usar la propiedad .SeekView para especificar con qué historia en el documento desea trabajar. Como se implementa aquí, la propiedad .SeekView se usa repetidamente para cambiar entre el área de encabezado y el documento principal. Después del ciclo (tomando nombres e imprimiendo)

se completa, el área de encabezado se borra y .SeekView se cambia de nuevo al documento principal.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (152) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Printing_Personalized_Copies_of_a_Document [Impresión de copias personalizadas de un documento].