Přejít k hlavnímu obsahu

Jak odstranit oddělovací čáru poznámky pod čarou / vysvětlivky v dokumentu Word?

Autor: Siluvia Naposledy změněno: 2018-11-12

Při vkládání poznámek pod čarou nebo vysvětlivek do dokumentu aplikace Word zjistíte, že nad textem poznámky pod čarou nebo vysvětlivkami je vždy vodorovná oddělovací čára. Pokud se chcete těchto oddělovacích řádků zbavit, vyzkoušejte metody v tomto článku.

Odstraňte oddělovací čáru poznámky pod čarou / vysvětlivky v aplikaci Word

Odstraňte řádek oddělovače poznámky pod čarou / vysvětlivky s kódem VBA


Odstraňte oddělovací čáru poznámky pod čarou / vysvětlivky v aplikaci Word

V aplikaci Word můžete odstranit oddělovací čáru poznámky pod čarou nebo vysvětlivky následujícím způsobem.

1. V dokumentu odeberete oddělovací čáru poznámky pod čarou nebo vysvětlivek, klepněte na Zobrazit > čepování.

2. Pak klikněte na tlačítko Reference > Zobrazit poznámky jak je ukázáno níže.

3. Pokud jsou v dokumentu poznámky pod čarou i vysvětlivky, a Zobrazit poznámky Zobrazí se dialogové okno, vyberte požadovanou možnost a poté klikněte na ikonu OK knoflík. Tady jsem si vybral Zobrazit poznámku pod čarou oblast.

Poznámka: Pokud ve vašem dokumentu existuje pouze poznámka pod čarou nebo vysvětlivka, tento krok ignorujte a přejděte ke kroku 4.

4. Nyní Poznámky část se zobrazuje na konci dokumentu, vyberte Oddělovač poznámek pod čarou v Poznámky pod čarou V rozevíracím seznamu vyberte oddělovací řádek a stiskněte klávesu Vymazat klíč k jeho odstranění. Viz snímek obrazovky:

5. Přejděte na Vzhled při tisku pohled na dokument.

Pak můžete vidět, že oddělovací čára poznámky pod čarou je okamžitě odstraněna z dokumentu.

Poznámka: Chcete-li odstranit čáru oddělovače vysvětlivek, stačí zkontrolovat Zobrazit vysvětlivku oblast výše Zobrazit poznámky dialogové okno a poté vyberte Oddělovač vysvětlivek v Závěrečné poznámky rozbalovací seznam.


Odstraňte oddělovací čáry poznámky pod čarou / vysvětlivky s kódem VBA

Pokud je výše uvedená metoda pro vás nepohodlná, můžete zkusit následující kódy VBA a rychle z dokumentu odstranit všechny oddělovací řádky poznámky pod čarou nebo poznámky pod čarou i vysvětlivky.

1. V dokumentu odstraníte oddělovací řádek poznámky pod čarou, stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna modulu.

Kód VBA: odstraňte řádek oddělovače poznámek pod čarou v dokumentu

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. zmáčkni F5 klíč ke spuštění kódu. Poté jsou z dokumentu okamžitě odstraněny oddělovací čáry všech poznámek pod čarou.

Poznámka: Pokud chcete odstranit všechny oddělovací řádky poznámky pod čarou a vysvětlivky, může vám pomoci níže uvedený kód VBA.

Kód VBA: odstraňte oddělovací řádky poznámek pod čarou a vysvětlivek v dokumentu

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

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah  /  Přepsat text  /  Shrnout dokumenty  /  Získejte rychlé odpovědi, vše ve Wordu

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...)  /  Dávkový převod do PDF  /  Exportujte stránky jako obrázky  /  Tisk více souborů najednou...

Úprava obsahu: Dávkové hledání a nahrazení přes více souborů  /  Změnit velikost všech obrázků  /  Transponujte řádky a sloupce tabulky  /  Převést tabulku na text...

🧹 Čištění bez námahy: Smést pryč Extra prostory  /  Sekce přestávky  /  Všechny záhlaví  /  Textová pole  /  Odkazy  / Další nástroje pro odstraňování naleznete na Odebrat skupinu...

Kreativní vložky: Vložit Tisíc separátorů  /  Zaškrtávací políčka  /  Tlačítka rádia  /  QR kód  /  čárový kód  /  Tabulka diagonálních čar  /  Titulek rovnice  /  Titulek obrázku  /  Titulek tabulky  /  Více obrázků  / Objevte více v Vložit skupinu...

???? Přesné výběry: Přesně Konkrétní stránky  /  Tabulky  /  Tvary  /  Nadpis odstavce  / Vylepšete navigaci pomocí vice Vyberte funkce...

Vylepšení hvězd: Přejděte na libovolné místo  /  Automatické vkládání opakujícího se textu  /  Přepínání mezi okny dokumentu  /  11 Konverzní nástroje...

???? Chcete si tyto funkce vyzkoušet? Stáhněte si Kutools pro Word nyní! ????
 
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.
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations