Cómo numerar correlativamente las copias impresas de un documento en Word

Home

Novedades Articulos

Escrito por monica

Martes, 26 de Junio de 2007 12:44

En este artículo os enseñaremos a como poner una cabecera en documento de Word que numere secuencialmente las copias que llevamos impresas de nuestro archivo. Para ello nos ayudaremos de una macro que realizará esta tarea de impresión y de un campo colocado en la cabecera que que se incrementará de forma correlativa al imprimir varias copias de este documento

Primero hemos de saber donde queremos que aparezca, nosotros vamos a ponerlo en el Encabezado de página a la derecha de este mismo, para ello:

Menú Ver > encabezado y pie de pagina.

Ahí escribimos [Copia] de la siguiente manera:

Encabezado

Copia

Una vez hecho esto colocamos el cursor al lado de copia hacemos lo siguiente:

Le damos a las teclas:

Ctrl + F9

Para insertar un campo en este caso insertaremos el campo:

PAGE

Quedando así:

Encabezado

Copia { PAGE }

Ahora tenemos que darle a las teclas Alt + F9 para poder así visualizar el campo introducido para que nos quede así:

Copia 1

Y salimos del encabezado nos habrá quedado así:

Copia 1

Anotación:

Decir que las teclas [ Alt + F9 ] se utilizan para visualizar los campos que tengamos en nuestro documento y para volver a la normalidad volvemos a darle a las mismas teclas además de que tenemos la tecla:

[ F9 ] que nos ayuda a actualizar los campos , seleccionándolos primero o bien seleccionando todo el documento de Word.

Bien ahora vamos a ocultar Copia 1

Dos cliks sobre Copia 1

Seleccionamos y nos vamos a menú:

Formato > Fuente > apartado > efectos > y ocultar texto > aceptar

OJO >> Una vez que ocultemos [ copia 1 ] en nuestro documento será necesario que para ver el encabezado y pie le demos a [ ¶ ] ya que sino no podremos visualizarlo y por lo consiguiente el botón de menú ver > encabezado no nos funcionara :--)

Bien podemos darle al botón [ ¶ ] que tenemos en la barra de herramientas Estándar y así veremos que si que esta nuestro campo.

Volvemos a darle para que no veamos esas marcas de párrafo a:

[ ¶ ]

Una vez hecho este proceso vamos a incluir una macro para que nos realice el proceso de impresión mediante la ventana de dialogo:

[Imprimir] y elegir la impresora que nosotros queramos.

Anotación:

OJO >>> no hará falta que le digamos el número de copias que queremos, ya que será al principio cuando nos diga el numero de copias que necesitamos , y luego ya saldrá las propiedades de nuestra impresora, elegimos impresora que queramos y demás propiedades y ya solamente mandar a imprimir botón [ aceptar ]

Aquí el código:

Sub ImprimirContador()

Dim i As Integer

Dim x As String

Selection.WholeStory

Selection.Copy

Documents.Add

x = InputBox("introduzca numero de copias")

On Error GoTo err

For i = 1 To x

Selection.PasteAndFormat (wdPasteDefault)

Selection.InsertBreak Type:=wdSectionBreakNextPage

With Options

.PrintHiddenText = True

End With

Dialogs(wdDialogFilePrint).Show

Selection.Fields.Update

With Options

.PrintHiddenText = False

End With

err:

ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

End Sub

También podéis aplicar el código expuesto a los botones de imprimir que tenemos en las barra de menú Archivo > imprimir y el que tenemos en la barra de herramientas Estándar, si lo deseáis:

OJO >>> no cambiar el nombre de los macros siguientes tienen que ser tal cual los pongos o no os servirá: [podemos emplear tanto la version inglesa estándar para todos los offices o bien la versión española si queremos en un office español.

VERSION EN ESPAÑOL

Sub ArchivoImprimir()

' ArchivoImprimir Macro

' Imprime el documento activo

' aquí resto de código expuesto arriba

End Sub

Sub ArchivoImprimirPredeter()

' ArchivoImprimirPredeter Macro

' Imprime el documento activo usando las opciones predeterminadas

‘aquí resto del código expuesto arriba

End Sub

VERSION EN INGLES