Kuinka poistaa alaviitteen/loppuviitteen erotinrivi Word-asiakirjasta?

Kun lisäät ala- tai loppuviitteitä Word-asiakirjaan, alaviitteen tai loppuviitteen tekstin yläpuolelle tulee vaakasuora erotinviiva. Jos haluat poistaa tämän rivin, kokeile tämän artikkelin menetelmiä.

Poista alaviitteen/loppuviitteen erotinviiva Wordista

Poista alaviitteen/loppuviitteen erotinrivi VBA-koodilla

Poista alaviitteen/loppuviitteen erotinviiva Wordista

Voit poistaa alaviitteen tai loppuviitteen erotinrivin Wordissa seuraavasti:

1. Napsauta asiakirjassa, josta haluat poistaa alaviitteen tai loppuviitteen erotinrivin "Näytä" > "Luonnos".

   

2. Napsauta "Referenssit" > "Näytä huomautukset".

   

3. Jos asiakirja sisältää sekä alaviitteitä että loppuviitteitä, "Näytä huomautukset" -valintaikkuna tulee näkyviin. Valitse haluamasi näkymä ja napsauta sitten "OK". Valitse esimerkiksi "Näytä alaviitealue".

   

   Huomautus: Jos asiakirjassasi on vain alaviitteitä tai loppuviitteitä, ohita tämä vaihe ja siirry seuraavaan.

4. Nyt "Muistiinpanot"-osio ilmestyy asiakirjan loppuun. Valitse alaviitteiden erotin "Alaviitteet"-pudotusvalikosta, valitse erotinrivi ja paina Delete näppäintä.

   

5. Vaihda asiakirja takaisin "Print Layout" -näkymään.

   

Erotinviiva on nyt poistettu asiakirjasta.

Poista alaviitteiden/loppuviitteiden erotinrivit VBA-koodilla

Jos manuaalinen menetelmä on hankala, voit poistaa alaviitteen tai sekä alaviitteen että loppuviitteen erotinrivit nopeasti seuraavan VBA-koodin avulla:

1. Paina Word-asiakirjassa Alt + F11 avataksesi "Microsoft Visual Basic for Applications" -ikkunan.
2. Napsauta VBA-ikkunassa "Lisää" > "Moduuli" ja liitä sitten seuraava koodi moduuliin.

   

   VBA-koodi: Poista alaviitteiden erotinviiva Word-asiakirjasta

   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. lehdistö F5 suorittaaksesi koodin. Kaikki alaviitteiden erotinviivat poistetaan välittömästi.

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

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!

🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...

📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...

✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...

🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...

➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...

🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...

⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...

???? Haluatko kokeilla näitä ominaisuuksia? Lataa Kutools for Word nyt! 🚀

Ilmainen lataus     Osta nyt     Lue lisää Kutools for Wordista

 

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Yli 100 Wordin työkalua

• 🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super puolalainen / Super käännös / AI editointi / AI Proofread
• 📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Erämuunnos PDF-muotoon
• ✏ Sisältö Editointi: Erä Etsi ja korvaa / Muuta kaikkien kuvien kokoa
• 🧹 Vaivaton puhdistus: Poista ylimääräiset välilyönnit / Poista osion katkokset
• ➕ Luovat lisäosat: Aseta Tuhat erottimet / Lisää valintaruudut / Luo QR-koodeja

Ilmainen lataus Osta nyt Lue lisää Kutoolsista