Si trabaja con documentos que recibe de otras personas, una de las tareas que debe realizar habitualmente es eliminar todos los encabezados y pies de página de 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 llevar mucho tiempo. (Particularmente si considera que cada sección puede tener hasta tres encabezados y pies de página diferentes.)

Las tareas repetitivas y que requieren mucho tiempo son siempre un candidato principal para las macros; esta no es una excepción. La siguiente macro se deslizará directamente a través de cada sección de un documento, eliminando todos los encabezados y pies de página que se han definido.

Sub RemoveHeadAndFoot()

Dim oSec As Section     Dim oHead As HeaderFooter     Dim oFoot As HeaderFooter

For Each oSec In ActiveDocument.Sections         For Each oHead In oSec.Headers             If oHead.Exists Then oHead.Range.Delete         Next oHead

For Each oFoot In oSec.Footers             If oFoot.Exists Then oFoot.Range.Delete         Next oFoot     Next oSec End Sub

Esta macro es muy poderosa: no le pregunta si desea continuar, ni considera qué se puede incluir en los encabezados y pies de página. Simplemente los borra todos, dejando su documento sin ninguno. Si procesa con regularidad bastantes documentos, puede asignar fácilmente la macro a un botón de la barra de herramientas, elemento de menú o tecla de acceso directo.

_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 (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í:

link: / wordribbon-Deleting_All_Headers_and_Footers [Eliminando todos los encabezados y pies de página].