Comment supprimer la ligne de séparation des notes de bas de page/notes de fin dans un document Word ?

Lorsque vous insérez des notes de bas de page ou des notes de fin dans un document Word, une ligne de séparation horizontale apparaît au-dessus du texte de la note de bas de page ou de la note de fin. Si vous souhaitez supprimer cette ligne, essayez les méthodes décrites dans cet article.

Supprimer la ligne de séparation des notes de bas de page/notes de fin dans Word

Supprimer la ligne de séparation des notes de bas de page/notes de fin avec le code VBA

Supprimer la ligne de séparation des notes de bas de page/notes de fin dans Word

Vous pouvez supprimer la ligne de séparation des notes de bas de page ou des notes de fin dans Word en suivant ces étapes :

1. Dans le document où vous souhaitez supprimer la ligne de séparation des notes de bas de page ou des notes de fin, cliquez sur "Affichage" > "Brouillon".

   

2. Cliquez sur "Références" > "Afficher les notes".

   

3. Si le document contient à la fois des notes de bas de page et des notes de fin, une boîte de dialogue "Afficher les notes" apparaîtra. Sélectionnez l’affichage souhaité, puis cliquez sur "OK". Par exemple, choisissez "Afficher la zone des notes de bas de page".

   

   Remarque : Si votre document ne contient que des notes de bas de page ou des notes de fin, ignorez cette étape et passez à l’étape suivante.

4. La section "Notes" apparaît maintenant à la fin du document. Choisissez "Séparateur de note de bas de page" dans le menu déroulant "Notes de bas de page", sélectionnez la ligne de séparation, puis appuyez sur la touche Supprimer.

   

5. Revenez à la vue "Disposition d'impression" du document.

   

La ligne de séparation a maintenant été supprimée du document.

Supprimer les lignes de séparation des notes de bas de page/notes de fin avec le code VBA

Si la méthode manuelle est peu pratique, vous pouvez utiliser le code VBA suivant pour supprimer rapidement les lignes de séparation des notes de bas de page ou des notes de bas de page et des notes de fin :

1. Dans le document Word, appuyez sur Alt + F11 pour ouvrir la fenêtre "Microsoft Visual Basic for Applications".
2. Dans la fenêtre VBA, cliquez sur "Insérer" > "Module", puis collez le code suivant dans le module.

   

   Code VBA : Supprimer la ligne de séparation des notes de bas de page d'un document 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. Appuyez sur F5 pour exécuter le code. Toutes les lignes de séparation des notes de bas de page seront supprimées instantanément.

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

Meilleurs outils de productivité pour Office

Kutools pour Word - Élevez votre expérience Word avec plus de 100 fonctionnalités remarquables !

🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais (Conserver le format) / Super Traduire (Conserver le format) / Rédaction IA / Correction AI...

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter la sélection dans divers formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...

✏ Édition de contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes du tableau / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminer les espaces supplémentaires / Sauts de section / Zones de texte / Liens hypertexte / Pour plus d'outils de suppression, rendez-vous dans le groupe Supprimer...

➕ Insertion créative : Insérer des séparateurs de milliers / Cases à cocher / Boutons radio / Code QR / Code-barres / Images multiples / Découvrez plus dans le groupe Insérer...

🔍 Sélections précises : Identifier des pages spécifiques / Tableaux / Formes / Paragraphes de titre / Améliorez la navigation avec plus de fonctionnalités de sélection...

⭐ Améliorations étoilées : Naviguer vers n'importe quel emplacement / Insertion automatique de texte répétitif / Basculer entre les fenêtres de document /11 outils de conversion...

👉 Vous voulez essayer ces fonctionnalités ? Téléchargez Kutools pour Word maintenant ! 🚀

Téléchargement gratuit     Acheter maintenant     En savoir plus sur Kutools pour Word

 

Meilleurs outils de productivité pour Office

Kutools pour Word - 100+ outils pour Word

• 🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais / Super Traduire / Rédaction IA / Correction AI
• 📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Conversion en lot vers PDF
• ✏ Édition de contenu : Recherche et remplacement en lot / Redimensionner toutes les images
• 🧹 Nettoyage sans effort : Supprimer les espaces supplémentaires / Supprimer les sauts de section
• ➕ Insertion créative : Insérer des séparateurs de milliers / Insérer des cases à cocher / Créer des codes QR

Téléchargement gratuit Acheter maintenant En savoir plus sur Kutools