Puede haber ocasiones en las que haya desarrollado un documento y desee compartir un esquema, sus títulos, con otras personas. Afortunadamente, Word le permite hacer esto con bastante facilidad. La forma más fácil, por supuesto, es simplemente imprimir el esquema. Haz esto siguiendo estos pasos:

  1. Cambie a la vista Esquema de su documento.

  2. Utilice la barra de herramientas Esquema para especificar los niveles de encabezado que se deben mostrar.

  3. Haga clic en la herramienta Imprimir en la barra de herramientas Estándar o seleccione Imprimir en el menú Archivo.

Debe tener en cuenta que cuando está viendo un esquema, la forma de imprimir es muy importante. Si elige Vista previa de impresión, Word no muestra solo los encabezados en su documento, lo que significa que no ve lo que realmente se imprimirá. Además, si elige Imprimir desde la vista previa de impresión, se imprimirán más que solo sus títulos. Esto puede llevar a algunos lectores a creer que no puede imprimir solo su esquema. Esto es simplemente engañoso; Si sigue las instrucciones anteriores, puede imprimir su esquema sin problemas.

Este esquema se puede compartir con otros, según se desee.

Pero, ¿qué sucede si desea compartir un documento (no una copia impresa) que consta solo del esquema? Las cosas se ponen un poco más complicadas aquí. La idea es que debes encontrar una manera de eliminar todo excepto los encabezados. La forma obvia de hacer esto es mediante el uso de una tabla de contenido o el uso de campos RD. (Ambas técnicas se han tratado en otros números de WordTips.)

Si necesita compartir solo los encabezados un poco, una solución más simple puede ser escribir una macro que elimine todo del documento excepto los encabezados. La siguiente macro de VBA hará el truco bastante bien:

Sub ReduceToHeadings()

Dim docActive As Document     Dim objPara As Paragraph     Dim objShape As Shape

' set fixed ref to the working document     Set docActive = ActiveDocument

' loop and remove any non-"Heading" paragraphs     For Each objPara In docActive.Content.Paragraphs         If LCase(Left(objPara.Style, 7)) <> "heading" Then             objPara.Range.Delete         End If     Next objPara End Sub

Lo que hace esta macro es simplemente un bucle para eliminar párrafos en el cuerpo principal del documento si el párrafo no usa un estilo de título. Se asume, por supuesto, que los estilos de título no han cambiado de nombre. Cuando termina de ejecutarse, solo quedan los encabezados. Debe asegurarse de usar el comando Guardar como de inmediato para terminar con un documento que pueda compartir con otros. No use el comando Guardar, de lo contrario sobrescribirá su documento original (definitivamente algo malo).

_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 (1780) 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-Sharing_Headings_with_Others [Compartiendo títulos con otros].