Gå til hovedindhold

Sådan fjerner du fodnote/slutnote-separatorlinjen Word dokumentere?

Når du indsætter fodnoter eller slutnoter i Word dokument, vil du finde, at der altid er en vandret skillelinje over fodnote- eller slutnoteteksterne. Hvis du vil slippe af med disse separatorlinjer, så prøv venligst metoderne i denne artikel.

Fjern fodnote/slutnote-separatorlinje ind Word

Fjern fodnote / slutnote-skillelinje med VBA-kode


Fjern fodnote/slutnote-separatorlinje ind Word

Du kan fjerne fodnote- eller slutnoteseparatorlinje ind 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

Anbefales Word Produktivitetsværktøjer

 

Kutools For Word - Mere end 100 avancerede funktioner til Word, Spar din 50 % tid

  • Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
  • Indsæt flere billeder på tværs af mapper i Word dokument med det samme.
  • Flet og kombiner flere Word filer på tværs af mapper i én med din ønskede rækkefølge.
  • Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
  • Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...
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