¿Cómo eliminar la línea separadora de notas al pie/notas al final en un documento de Word?

Cuando insertas notas al pie o notas al final en un documento de Word, aparece una línea horizontal sobre el texto de la nota al pie o nota al final. Si deseas eliminar esta línea, prueba los métodos descritos en este artículo.

Eliminar la línea separadora de notas al pie/notas al final en Word

Eliminar la línea separadora de notas al pie/notas al final con código VBA

Eliminar la línea separadora de notas al pie/notas al final en Word

Puedes eliminar la línea separadora de notas al pie o notas al final en Word siguiendo estos pasos:

1. En el documento donde deseas eliminar la línea separadora de notas al pie o notas al final, haz clic en "Vista" > "Borrador".

   

2. Haz clic en "Referencias" > "Mostrar notas".

   

3. Si el documento contiene tanto notas al pie como notas al final, aparecerá un cuadro de diálogo "Mostrar notas". Selecciona la vista que desees y luego haz clic en "Aceptar". Por ejemplo, elige "Ver área de notas al pie".

   

   Nota: Si tu documento solo tiene notas al pie o notas al final, omite este paso y ve al siguiente.

4. Ahora aparecerá la sección "Notas" al final del documento. Elige "Separador de notas al pie" desde el menú desplegable "Notas al pie", selecciona la línea separadora y presiona la tecla Eliminar.

   

5. Cambia el documento de nuevo a la vista "Diseño de impresión".

   

La línea separadora ha sido eliminada del documento.

Eliminar líneas separadoras de notas al pie/notas al final con código VBA

Si el método manual es incómodo, puedes usar el siguiente código VBA para eliminar rápidamente las líneas separadoras de notas al pie o de ambas notas al pie y notas al final:

1. En el documento de Word, presiona Alt + F11 para abrir la ventana "Microsoft Visual Basic para Aplicaciones".
2. En la ventana de VBA, haz clic en "Insertar" > "Módulo", y luego pega el siguiente código en el módulo.

   

   Código VBA: Eliminar la línea separadora de notas al pie de un documento de Word

   Sub DeleteTheFootnoteSeparator()
   'Updated by ExtendOffice 20181112
       If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
       If ActiveWindow.View.SplitSpecial = wdPaneNone Then
           ActiveWindow.ActivePane.View.Type = wdNormalView
       Else
           ActiveWindow.View.Type = wdNormalView
       End If
       With ActiveWindow.ActivePane.View
           If .Type = wdPrintView Or .Type = wdWebView Or _
           .Type = wdPrintPreview Then
               ActiveWindow.View.SeekView = wdSeekFootnotes
           Else
               ActiveWindow.View.SplitSpecial = wdPaneFootnotes
           End If
       End With
       ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
       With Selection
           .MoveRight Unit:=wdCharacter
           .TypeBackspace
           .TypeBackspace
       End With
       ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
       With Selection
           .MoveRight Unit:=wdCharacter, Count:=1
           .TypeBackspace
           .TypeBackspace
           With .ParagraphFormat
               .LineSpacingRule = wdLineSpaceMultiple
               .LineSpacing = LinesToPoints(0.06)
           End With
       End With
       ActiveWindow.View.Type = wdPrintView
   End Sub

3. Presiona F5 para ejecutar el código. Todas las líneas separadoras de notas al pie se eliminarán instantáneamente.

Sub DeleteTheFootnoteSeparator()
'Updated by ExtendOffice 20181112
    If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdNormalView
    Else
        ActiveWindow.View.Type = wdNormalView
    End If
    With ActiveWindow.ActivePane.View
        If .Type = wdPrintView Or .Type = wdWebView Or _
        .Type = wdPrintPreview Then
            ActiveWindow.View.SeekView = wdSeekFootnotes
        Else
            ActiveWindow.View.SplitSpecial = wdPaneFootnotes
        End If
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
    With Selection
        .MoveRight Unit:=wdCharacter
        .TypeBackspace
        .TypeBackspace
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
    With Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeBackspace
        .TypeBackspace
        With .ParagraphFormat
            .LineSpacingRule = wdLineSpaceMultiple
            .LineSpacing = LinesToPoints(0.06)
        End With
    End With
    ActiveWindow.View.SplitSpecial = wdPaneEndnoteSeparator
    With Selection
        .MoveRight Unit:=wdCharacter
        .TypeBackspace
        .TypeBackspace
    End With
    ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationSeparator
    With Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeBackspace
        .TypeBackspace
        With .ParagraphFormat
            .LineSpacingRule = wdLineSpaceMultiple
            .LineSpacing = LinesToPoints(0.06)
        End With
    End With
    ActiveWindow.View.Type = wdPrintView
End Sub

Las mejores herramientas de productividad para Office

Kutools para Word: ¡Mejora tu experiencia en Word con más de 100 funciones excepcionales!

🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir (Conservar Formato) / Super Traducir (Conservar Formato) / Redacción AI / Revisión con IA...

📘 Dominio del Documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...

✏ Edición de Contenidos: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tablas / Convertir tabla a texto...

🧹 Limpieza sin esfuerzo: Elimina espacios extras / saltos de sección / cuadros de texto / hipervínculos / Para más herramientas de eliminación, ve al grupo Eliminar...

➕ Inserciones creativas: Insertar separadores de miles / casillas de verificación / botones de opción / Código QR / Código de Barras / múltiples imágenes / Descubre más en el grupo Insertar...

🔍 Selecciones precisas: Localiza páginas específicas / tablas / formas / Párrafos de Encabezado / Mejora la navegación con más funciones de Seleccionar...

⭐ Mejoras destacadas: Navega a cualquier ubicación / inserta automáticamente texto repetitivo / alterna entre ventanas de documento /11 herramientas de conversión...

🌍 Compatible con más de40 idiomas: Utiliza Kutools en tu idioma preferido: admite Inglés, Español, Alemán, Francés, Chino y más de40 idiomas.

👉 ¿Quieres probar estas funciones? ¡Descarga Kutools para Word ahora! 🚀

Descarga gratuitaComprar ahoraMás información sobre Kutools para Word

 

Las mejores herramientas de productividad para Office

Kutools para Word: más de 100 herramientas para Word

• 🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir / Super Traducir / Redacción AI / Revisión con IA
• 📘 Dominio del Documento: Dividir páginas / Combinar documentos / Convertir en lote a PDF
• ✏ Edición de Contenidos: Buscar y reemplazar en lote / Redimensionar todas las imágenes
• 🧹 Limpieza sin esfuerzo: Eliminar Espacios Extras / Eliminar saltos de sección
• ➕ Inserciones creativas: Insertar separadores de miles / Insertar casillas de verificación / Crear Códigos QR
• 🌍 Compatible con más de40 idiomas: ¡Kutools habla tu idioma! Se admiten más de40 idiomas.

Descarga gratuita Comprar ahora Más información sobre Kutools