Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment supprimer la ligne de séparation note de bas de page / note 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, vous constaterez qu'il existe toujours une ligne de séparation horizontale au-dessus de la note de bas de page ou du texte des notes de fin. Si vous souhaitez vous débarrasser de ces lignes de séparation, veuillez essayer les méthodes décrites dans cet article.

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

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


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

Vous pouvez supprimer la ligne de séparation de la note de bas de page ou de la note de fin dans Word comme suit.

1. Dans le document, vous supprimerez sa ligne de séparation des notes de bas de page ou des notes de fin, cliquez sur Affichage > Ébauche.

2. Puis clique Les références > Afficher les notes comme ci-dessous capture d'écran montré.

3. S'il y a à la fois des notes de bas de page et des notes de fin dans votre document, une Afficher les notes boîte de dialogue apparaîtra, veuillez sélectionner une option selon vos besoins, puis cliquez sur le bouton OK bouton. Ici je sélectionne Voir la note de bas de page région.

NoteRemarque: S'il n'y a qu'une note de bas de page ou une note de fin existant dans votre document, ignorez cette étape et passez à l'étape 4.

4. Maintenant le Remarques la section est affichée à la fin du document, veuillez sélectionner Séparateur de note le Notes de bas de page liste déroulante, sélectionnez la ligne de séparation, puis appuyez sur la Effacer clé pour le supprimer. Voir la capture d'écran:

5. Passer à la Mise en page vue du document.

Ensuite, vous pouvez voir que la ligne de séparation de la note de bas de page est immédiatement supprimée du document.

Note: Pour supprimer la ligne de séparation des notes de fin, il vous suffit de vérifier Voir la note de fin zone ci-dessus Afficher les notes dialogue, puis sélectionnez Séparateur de fin de note le Notes en fin de texte la liste déroulante.


Supprimer les lignes de séparation de la note de bas de page / note de fin avec le code VBA

Si la méthode ci-dessus ne vous convient pas, vous pouvez essayer les codes VBA suivants pour supprimer rapidement toutes les lignes de séparation de la note de bas de page ou les notes de bas de page et de fin du document.

1. Dans le document, vous supprimerez la ligne de bas de page de séparation, appuyez sur la touche autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Copiez ensuite le code VBA dans la fenêtre Module.

Code VBA: supprimer la ligne de séparation des notes de bas de page dans le document

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. appuie sur le F5 clé pour exécuter le code. Ensuite, toutes les lignes de séparation des notes de bas de page sont immédiatement supprimées du document.

Note: Si vous souhaitez supprimer toutes les lignes de séparation de note de bas de page et de note de fin, le code VBA ci-dessous peut vous aider.

Code VBA: supprimer les lignes de séparation des notes de bas de page et de fin de document dans le document

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


Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.