Gå til hovedindhold

Hvordan fjernes fodnote / slutnote-skillelinjen i Word-dokument?

Når du indsætter fodnoter eller slutnoter i Word-dokument, finder du, at der altid er en vandret skillelinje over fodnote- eller slutnoteteksterne. Hvis du vil slippe af med disse skillelinjer, kan du prøve metoder i denne artikel.

Fjern fodnote / slutnote-skillelinje i Word

Fjern fodnote / slutnote-skillelinje med VBA-kode


Fjern fodnote / slutnote-skillelinje i Word

Du kan fjerne fodnote eller slutnote-skillelinje i Word som følger.

1. I dokumentet fjerner du fodnote- eller slutnote-skillelinjen, klik på Specifikation > Udkast til.

2. Klik derefter på Referencer > Vis noter som vist nedenstående skærmbillede.

3. Hvis der både er fodnoter og slutnoter i dit dokument, a Vis noter dialogboksen vises, skal du vælge en indstilling efter behov og derefter klikke på OK knap. Her vælger jeg Se fodnote område.

Bemærk: Hvis der kun findes fodnote eller slutnote i dit dokument, skal du ignorere dette trin og gå til trin 4.

4. Nu er Noter sektion vises i slutningen af ​​dokumentet, vælg venligst Fodnoteudskiller i Fodnoter på rullelisten, vælg skillelinjen og tryk derefter på Slette for at slette den. Se skærmbillede:

5. Skift til Printlayout visning af dokumentet.

Derefter kan du se, at skillelinjen i fodnote fjernes straks fra dokumentet.

Bemærk: For at fjerne skillelinjen til slutnoten skal du bare kontrollere Se slutnote område i ovenstående Vis noter dialog, og vælg derefter Slutnoteseparator i slutnoter rulleliste.


Fjern fodnote / slutnote-skillelinjer med VBA-kode

Hvis ovenstående metode er ubelejlig for dig, kan du prøve følgende VBA-koder for hurtigt at fjerne alle skillelinjer i fodnote eller både fodnote og slutnote fra dokumentet.

1. I dokumentet fjerner du skillelinjen i fodnoten, skal du trykke på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier derefter under VBA-koden i modulvinduet.

VBA-kode: fjern fodnote-skillelinje i dokumentet

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. Tryk på F5 nøgle for at køre koden. Derefter fjernes alle fodnoters skillelinjer straks fra dokumentet.

Bemærk: Hvis du vil fjerne alle skillelinjer i fodnote og slutnote, kan nedenstående VBA-kode hjælpe.

VBA-kode: fjern fodnote- og slutnote-skillelinjer i dokumentet

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

Bedste kontorproduktivitetsværktøjer

Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!

🤖 Kutools AI-assistent: Transformer din skrivning med AI - Generer indhold  /  Omskriv tekst  /  Opsummer dokumenter  /  Spørg for information baseret på Dokument, alt sammen i Word

📘 Dokumentbeherskelse: Opdelt sider  /  Flet dokumenter  /  Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...)  /  Batch Konverter til PDF  /  Eksporter sider som billeder  /  Udskriv flere filer på én gang...

Indholdsredigering: Batch Find og erstat på tværs af flere filer  /  Ændr størrelse på alle billeder  /  Transponer tabelrækker og kolonner  /  Konverter tabel til tekst...

🧹 Ubesværet rengøring: Fej væk Ekstra pladser  /  Afsnit bryder  /  Alle overskrifter  /  Tekstbokse  /  Hyperlinks  / For mere fjernelse af værktøjer, gå til vores Fjern gruppe...

Kreative indlæg: Indsæt Tusind adskillere  /  Afkrydsningsfelter  /  Radio knapper  /  QR kode  /  Stregkode  /  Diagonal linjebord  /  Ligningstekst  /  Billede Caption  /  Tabeltekst  /  Flere billeder  / Oplev mere i Indsæt gruppe...

???? Præcisionsvalg: Find ud af specifikke sider  /  tabeller  /  former  /  overskrifter  / Forbedre navigation med mere Vælg funktioner...

Stjerneforbedringer: Naviger hurtigt til ethvert sted  /  automatisk indsæt gentagende tekst  /  skifte problemfrit mellem dokumentvinduer  /  11 Konverteringsværktøjer...

???? Vil du prøve disse funktioner? Kutools for Word tilbyder en 60-dages gratis prøveperiode, uden begrænsninger! 🚀
 
Comments (6)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
This fixed my problem! Thank you!
Rated 5 out of 5
This comment was minimized by the moderator on the site
si funciona, me ayudo para mi tesis, muchas gracias.
This comment was minimized by the moderator on the site
Brilliant! Thank you!
This comment was minimized by the moderator on the site
Thank you very much you have saved me from my boss he was like please do anything I want a good presentation and this footnotes are like a shit.thanks to you.
This comment was minimized by the moderator on the site
If you have more than one page of footnotes, you'll also want to remove the "Footnote Continuation Separater". They sure make it hard to find; when a double-click might just take you to it. This did help me too, BTW.
This comment was minimized by the moderator on the site
Thanks!
Worked for me :-)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations