prucommercialre.com


Eliminación de todos los encabezados y pies de página

Si usted trabaja con documentos que reciba de otras personas, una de las tareas que puede rutinariamente necesitas hacer es eliminar todos los encabezados y pies de página en los documentos. Una forma de hacer esto es simplemente seleccionar los distintos encabezados y pies de página y eliminarlos, pero si el documento contiene muchas secciones, hacerlo puede ser muy lento. (Sobre todo si tenemos en cuenta que cada sección puede tener hasta tres encabezados y pies de página diferentes.)

, Tareas que requieren mucho tiempo repetitivas son siempre un candidato ideal para macros; esta no es la excepción. La siguiente macro zip derecha a través de cada sección de un documento, eliminando todos los encabezados y pies de página que se han definido.

RemoveHeadAndFoot Sub ()
Dim OSEC Como Sección
Dim oHead Como HeaderFooter
Dim oFoot Como HeaderFooter

Para Cada OSEC En ActiveDocument.Sections
Para Cada oHead En oSec.Headers
Si oHead.Exists Entonces oHead.Range.Delete
Siguiente oHead

Para Cada oFoot En oSec.Footers
Si oFoot.Exists Entonces oFoot.Range.Delete
Siguiente oFoot
Siguiente OSEC
End Sub

Esta macro es muy potente que no le pregunte si desea continuar, ni toma en consideración lo que se puede incluir en los encabezados y pies de página. Simplemente elimina a todos, dejando a su documento con ninguno. Si procesa regularmente un buen número de documentos, puede asignar fácilmente la macro a un botón de barra de herramientas, menú, o la tecla de acceso directo.

WordTips es su fuente de formación de Microsoft Word rentable. (Microsoft Word es el procesador de textos más popular en el mundo.) Esta punta (1777) 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í: Eliminación de todos los encabezados y pies de página.