Note: The other languages of the website are Google-translated. Back to English

Kako odstraniti vrstico za ločevanje opomb / opomb v dokumentu Word?

Pri vstavljanju opomb ali opomb v Wordov dokument boste vedno našli vodoravno ločilno črto nad besedili opomb ali opomb. Če se želite znebiti teh ločilnih črt, poskusite z metodami v tem članku.

Odstranite vrstico za ločevanje opomb / opomb v Wordu

Odstranite ločilno vrstico opomb / opomb s kodo VBA


Odstranite vrstico za ločevanje opomb / opomb v Wordu

V Wordu lahko odstranite vrstico za ločevanje opomb ali opomb na naslednji način.

1. V dokumentu boste odstranili njegovo ločnico za opombo pod črto ali končno črko, kliknite Poglej > Osnutek.

2. Nato kliknite Reference > Prikaži opombe kot je prikazano spodaj.

3. Če so v dokumentu tako opombe kot opombe, a Prikaži opombe Pojavi se pogovorno okno, izberite želeno možnost in nato kliknite OK . Tukaj izberem Glej opombo Območje.

Opombe: Če v dokumentu obstajajo samo sprotna ali končna opomba, prezrite ta korak in se premaknite na 4. korak.

4. Zdaj Opombe Odsek je prikazan na koncu dokumenta, izberite Ločevalnik opomb v Opombe na spustnem seznamu izberite ločilno črto in pritisnite na Brisanje tipko, da jo izbrišete. Oglejte si posnetek zaslona:

5. Premaknite na Postavitev tiskanja pogled dokumenta.

Potem lahko vidite, da je ločnica opombe takoj odstranjena iz dokumenta.

Opombe: Če želite odstraniti črto ločevalnika končnih opomb, morate samo preveriti Ogled končne opombe območje v zgornjem Prikaži opombe in nato izberite Ločilo končnih opomb v Endnotes spustni seznam.


Odstranite vrstice ločil za opombe / opombe s kodo VBA

Če je zgornja metoda za vas neprijetna, lahko poskusite z naslednjimi kodami VBA, da iz dokumenta hitro odstranite vse ločevalne vrstice sprotne opombe ali obe opombi in končno opombo.

1. V dokumentu boste odstranili ločilno vrstico opombe, pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte spodnjo kodo VBA v okno modula.

Koda VBA: v dokumentu odstranite ločilno vrstico opomb

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. Pritisnite F5 tipko za zagon kode. Nato se iz dokumenta takoj odstranijo vse ločevalne vrstice opomb.

Opombe: Če želite odstraniti vse ločevalne vrstice sprotne in končne opombe, vam lahko pomaga spodnja koda VBA.

Koda VBA: v dokumentu odstranite črte ločnic za opombe in končne črke

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

Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

  • Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
  • V Wordov dokument hkrati vstavite več slik v mape.
  • Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
  • Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
  • Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
Komentarji (6)
Ocenjeno 5 iz 5 · 1 ocene
Ta komentar je moderator na spletnem mestu minimiziral
Hvala!
Uspelo mi je :-)
Ta komentar je moderator na spletnem mestu minimiziral
Če imate več kot eno stran opomb, boste želeli odstraniti tudi "Ločilo za nadaljevanje opombe". Gotovo jih je težko najti; ko vas dvojni klik lahko pripelje do njega. Tudi meni je to pomagalo, BTW.
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala, da ste me rešili mojega šefa, ki je bil kot prosim, naredi vse, hočem dobro predstavitev in te opombe so kot sranje. hvala tebi.
Ta komentar je moderator na spletnem mestu minimiziral
Briljantno! Hvala vam!
Ta komentar je moderator na spletnem mestu minimiziral
si funciona, me ayudo para mi tesis, muchas gracias.
Ta komentar je moderator na spletnem mestu minimiziral
To je odpravilo mojo težavo! Hvala vam!
Ocenjeno 5 iz 5
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL