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...