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

 

Next

    

     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

 

 

Sub FilePrint ()

 

End sub

 

Sub FilePrintDefault()

 

End sub

  

 

Y si todo lo explicado hasta hora lo he explicado sin comerme nada, pues podré decir:

 

¡¡ AMEN ;-) ¡!

 

Saludos Kiss

 

Monica (Tux)

 

En nuestra sección de descargas, os dejamos un ejemplo de como se aplicaria a un documento real todo lo explicado en este artículo

 

{jos_sb_discuss:6}