Peter escribe manuales y puede generar automáticamente el índice de un capítulo de la forma habitual. Esto permite a los lectores hacer clic en una entrada de TOC y saltar al encabezado, pero no hay forma de hacer clic en el encabezado y volver al TOC. Para que los lectores puedan hacer esto, Peter tiene que aplicar individualmente un hipervínculo al título y luego deshacerse del subrayado, que encuentra desagradable. El capítulo de un manual puede contener cientos de títulos, por lo que la tarea de aplicar los hipervínculos individualmente puede resultar dolorosa. Peter se pregunta si hay alguna forma de automatizar la adición de hipervínculos a los encabezados según sus necesidades.

El enfoque de Peter, aunque bien intencionado, es completamente innecesario.

Word proporciona una forma de hacer clic en un encabezado en el TOC (que Peter conoce) y luego volver a ese encabezado en el TOC (que Peter aparentemente no conoce). El atajo específico para realizar esta tarea es Alt + Flecha izquierda. El atajo regresa a donde estaba antes de hacer clic en el hipervínculo en el TOC, lo que lo hace ideal para tablas de contenido extensas; regresa exactamente a donde estaba en lugar de al principio del TOC.

La tecla de método abreviado es la mejor solución para los lectores; funciona de forma predeterminada en una instalación estándar de Word. Sin embargo, si lo desea, puede agregar un botón Atrás a su enlace: / wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [Quick Access Toolbar] que se puede hacer clic para regresar al punto de partida de la TOC. Siga estos pasos:

  1. Muestra el cuadro de diálogo Opciones de Word. (En Word 2007, haga clic en el botón Office y luego en Opciones de Word. En Word 2010 o una versión posterior, muestre la pestaña Archivo de la cinta y luego haga clic en Opciones).

  2. En el lado izquierdo del cuadro de diálogo, haga clic en Personalizar (Word 2007) o Barra de herramientas de acceso rápido (versiones posteriores de Word). (Ver figura 1)

  3. Usando la lista desplegable Elegir comandos de, elija Todos los comandos.

  4. En la lista de comandos, busque y seleccione el comando Atrás.

  5. Haga clic en el botón Agregar. El comando Atrás ahora aparece en el lado derecho del cuadro de diálogo, en la lista de comandos de la barra de herramientas de acceso rápido.

  6. Utilice los botones de flecha hacia arriba y hacia abajo para situar el comando Atrás dentro de los comandos de la barra de herramientas de acceso rápido.

  7. Haga clic en Aceptar.

El comando Atrás, que ahora aparece en la barra de herramientas de acceso rápido, realiza exactamente la misma función que el atajo Alt + Flecha izquierda.

Si aún desea agregar hipervínculos a los títulos, la única forma de automatizar el proceso es usar una macro. La siguiente macro recorre cada entrada en la primera tabla de contenido del documento, busca el encabezado al que se hace referencia en el cuerpo principal del texto y luego agrega un hipervínculo de nuevo a la tabla de contenido.

Sub HyperlinkHeadings()

Dim hyp As Hyperlink     Dim toc As TableOfContents     Dim k As Long     Dim bkmk As String     Dim sCode As String     Dim fld As Field     Dim aRange As Range

If ActiveDocument.TablesOfContents.Count = 0 Then         MsgBox "There are no Tables of Contents in document"

Exit Sub     End If

Set toc = ActiveDocument.TablesOfContents(1)



For Each fld In toc.Range.Fields         sCode = fld.Code.Text         If InStr(sCode, "HYPERLINK") > 0 Then             bkmk = Mid(sCode, InStr(sCode, "_"))

bkmk = Left(bkmk, Len(bkmk) - 2)

fld.Select             ActiveDocument.Bookmarks.Add Range:=Selection.Range, _               Name:=bkmk & "R"



Set aRange = ActiveDocument.Bookmarks(bkmk).Range             aRange.Select             With ActiveDocument.Hyperlinks.Add(Anchor:=Selection.Range, _                 Address:="", SubAddress:=bkmk & "R", _                   TextToDisplay:=Selection.Text)

.Range.Select                 Selection.ClearCharacterAllFormatting             End With         End If     Next fld

Options.CtrlClickHyperlinkToOpen = False End Sub

_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 (13059) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365.