Consejos para configurar páginas en blanco automáticamente en Word

Consejos para configurar automáticamente páginas en blanco en Word

Word admite una variedad de saltos de sección, como se muestra en la Figura 1, dos de los cuales insertarán automáticamente una página en blanco cuando sea necesario. Por ejemplo, si se inserta un salto de sección de "página impar" en el documento y la sección anterior termina en una página impar, Word insertará automáticamente una página par en blanco para que la siguiente sección pertenezca a una nueva página impar.

Pero la página en blanco insertada automáticamente a través de estos dos saltos de sección tiene el mismo inconveniente: inserta una página completamente en blanco e incluso el encabezado/pie de página se omite por iniciativa propia. En aplicaciones prácticas, si la página en blanco generada automáticamente también tiene un encabezado/pie de página común, o contiene texto como "(Esta página está en blanco)", todo el documento se verá más estandarizado. Sin embargo, estos problemas no se pueden resolver simplemente confiando en los saltos de sección de Word para insertar automáticamente páginas en blanco.

Figura 1

Hay muchas formas de solucionar este problema. El primer método es el más simple, pero más engorroso, y es un "método tonto". Para páginas en blanco que solo necesitan agregar encabezados/pies de página: revise manualmente el documento e inserte texto invisible cuando sea necesario (es decir, páginas en blanco). El llamado texto invisible significa configurar el color del texto normal para que sea el mismo que el color de fondo, que suele ser blanco. De esta manera, estos textos no se verán en la página en blanco al imprimir, pero Word no tendrá esto en cuenta y seguirá imprimiendo el encabezado/pie de página en esta página "en blanco" como una página normal.

Si desea agregar texto como "(Esta página está en blanco)", una mejor manera es utilizar el campo para construir un "texto de terminación de sección" estándar.

Primero cree un Autotexto que contenga el texto que desea imprimir en una página en blanco e inserte un salto de página al principio del Autotexto. Asigne un nombre apropiado a la entrada de Autotexto, como PÁGINA EN BLANCO. A continuación, al final de cada sección, justo antes del salto de sección, agregue el siguiente campo compuesto (como se muestra en la Figura 2): { if { =int( {page} / 2 ) * 2 } = { page } " " { texto automático "PÁGINA EN BLANCO" } }.

Este conjunto de códigos de campo determina si el número de página actual es un número par o impar y determina si se inserta una entrada de Autotexto denominada PÁGINA EN BLANCO según el resultado de la determinación.

Tenga en cuenta que las llaves ("{" y "}") en el código de campo son marcadores de dominio y no se pueden ingresar ingresando texto normal. Cada par de llaves se debe ingresar presionando Ctrl F9 una vez. .

Si realizas operaciones similares con frecuencia, la mejor manera es utilizar macros de Word. La siguiente macro CheckSecPages recorre el documento actual. Para cada sección del documento, calcula el número de páginas contenidas en la sección, luego determina la paridad del número de página e inserta saltos de página si es necesario.

Sub CheckSecPages()

Atenuar iSec como entero

Atenuar oRng como rango

Atenuar iValue como entero

Con ActiveDocument

' Procesa cada sección del documento en secuencia (excepto la última sección)

For iSec = 1 To .Sections.Count - 1

' Crea un objeto de región (Rango)

Set oRng = .Sections(iSec).Range

'Contraer la región

' (Después de plegar, el objeto inicial posición y La posición final es la misma)

oRng.Collapse wdCollapseStart

' Inserta un campo SecciónPages.

'El campo SecciónPages representa el número total de páginas en una sección

.Fields.Add Range:=oRng, Type:=wdFieldSectionPages

'Agrega el valor de SecciónPáginas Dividir por 2.

Si el resto es 0, entonces el número de páginas de la sección actual es

'un número par; esto es lo que queremos lograr con el salto de sección de "página impar"

If (.Sections( iSec).Range.Fields(1).Result Mod 2) lt;gt; 0 Then

' Antes del salto de sección si el número de página es un número impar

' Insertar un salto de página

Establecer oRng = .Sections(iSec).Range

Con oRng

.Collapse Direction:=wdCollapseEnd

.MoveEnd unidad:=wdCharacter, Count:=-1

.InsertBreak Type:=wdPageBreak

Finalizar con

Finalizar si

'Eliminar el campo SecciónPages creado anteriormente

.Sections(iSec).Range.Fields(1).Delete

Siguiente iSec

Terminar con

End Sub

En Word, presione Alt F11 para abrir el editor de macros de Visual Basic e ingrese el código completo de la macro CheckSecPages, como se muestra en la Figura 3. Guarde cuando haya terminado, cierre el editor de macros y regrese a Word. En el futuro, simplemente ejecute la macro CheckSecPages para configurar automáticamente una página en blanco, lo cual es muy conveniente.