Jak odstranit oddělovací čáru poznámky pod čarou / vysvětlivky v dokumentu Word?
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 Pohled > č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 Sub3. 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 SubNejlepší 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 / Vyžádejte si informace na základě dokumentu, 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 u nás Odstranit 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 / nadpisové odstavce / Vylepšete navigaci pomocí vice Vyberte funkce...
⭐ Vylepšení hvězd: Navigujte rychle na libovolné místo / automatické vkládání opakujícího se textu / plynule přepínat mezi okny dokumentů / 11 Konverzní nástroje...
