Hur tar jag bort fotnot / slutnotavgränsningsraden i Word-dokument?
När du infogar fotnoter eller slutnoter i Word-dokument, hittar du att det alltid finns en horisontell avgränsningslinje ovanför fotnot eller slutnottexter. Om du vill bli av med dessa separatorlinjer, prova metoder i den här artikeln.
Ta bort avgränsningsraden för fotnot / slutnot i Word
Ta bort fotnot / slutnotavgränsningsrad med VBA-kod
Ta bort avgränsningsraden för fotnot / slutnot i Word
Du kan ta bort fotnot eller slutnotavgränsningslinje i Word enligt följande.
1. I dokumentet kommer du att ta bort dess avdelningslinje för fotnot eller slutnot, klicka utsikt > Förslag.
2. Klicka sedan Referensprojekt > Visa anteckningar som nedan visas skärmdump.
3. Om det finns både fotnoter och slutnoter i ditt dokument, a Visa anteckningar dialogrutan dyker upp, välj ett alternativ efter behov och klicka sedan på OK knapp. Här väljer jag Se fotnot området.
Anmärkningar: Om bara fotnoten eller slutnoten finns i ditt dokument, ignorerar du det här steget och går till steg 4.
4. Nu är Anmärkningar avsnittet visas i slutet av dokumentet, välj Fotnotavgränsare i fotnoter i rullgardinsmenyn, välj avgränsningsraden och tryck sedan på Radera för att radera den. Se skärmdump:
5. Växla till Utskriftslayout vy av dokumentet.
Då kan du se att avgränsningslinjen i fotnot tas bort direkt från dokumentet.
Anmärkningar: För att ta bort slutnotens separatorrad behöver du bara kontrollera Visa slutnot ovanstående Visa anteckningar dialogrutan och välj sedan Avdelare för slutnot i Slutnoter listrutan.
Ta bort separatorlinjer för fotnot / slutnot med VBA-kod
Om ovanstående metod är obekväm för dig kan du prova följande VBA-koder för att snabbt ta bort alla separatorrader i fotnot eller både fotnot och slutnot från dokument.
1. I dokumentet tar du bort avgränsningsraden i fotnot, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera sedan VBA-koden nedan till modulfönstret.
VBA-kod: ta bort avgränsningsraden för fotnot 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. tryck på F5 för att köra koden. Sedan tas alla fotnoters avgränsningslinjer bort direkt från dokumentet.
Anmärkningar: Om du vill ta bort alla separatorrader i fotnot och slutnot kan nedanstående VBA-kod hjälpa till.
VBA-kod: ta bort separatorlinjer för fotnot och slutnot 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
Bästa kontorsproduktivitetsverktyg
Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!
🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll / Skriv om text / Sammanfatta dokument / Fråga för information baserat på dokument, allt i Word
📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Exportera urval i olika format (PDF/TXT/DOC/HTML...) / Batchkonvertera till PDF / Exportera sidor som bilder / Skriv ut flera filer samtidigt...
✏ Innehållsredigering: Batch Hitta och ersätt över flera filer / Ändra storlek på alla bilder / Transponera tabellrader och kolumner / Konvertera tabell till text...
🧹 Enkel rengöring: Svep bort Extra utrymmen / Avsnitt bryter / Alla rubriker / Textrutor / Hyperlänkar / För fler borttagningsverktyg, gå till vår Ta bort gruppen...
➕ Kreativa inlägg: Föra in Tusen avskiljare / Kryssrutor / radio Knappar / QR-kod / Streckkod / Diagonal linjebord / Bildtext för ekvation / Bild Bildtext / Tabelltextning / Flera bilder / Upptäck mer i Infoga grupp...
🔍 Precisionsval: Precisera specifika sidor / Tabellerna / former / rubrikerna / Förbättra navigering med mer Välj funktioner...
⭐ Stjärnförbättringar: Navigera snabbt till vilken plats som helst / infoga repetitiv text automatiskt / växla sömlöst mellan dokumentfönster / 11 Konverteringsverktyg...