4 načina da brzo izbrišete sve fusnote ili krajnje bilješke u vašem Word dokumentu

U ovom članku postoje 4 načina da brzo izbrišete sve fusnote ili endnote koje imate u Word dokumentu

U velikoj mjeri, endnote i fusnote su tekstovi u dokumentu gdje se nalaze objašnjenja i komentari. Ipak, ponekad kada naslijedite dokument od drugih, ova vrsta informacija vam može biti beskorisna. Stoga ćete ih morati ukloniti. Bez brisanja jednog po jednog, evo 4 brza načina koji vam omogućavaju da ih obrišete jednom za svagda.

Metoda 1: Koristite prozor „Stilovi“.

1. Prvo kliknite na karticu "Početna".
2. Zatim kliknite na dugme sa strelicom nadole u grupi „Stilovi“.
3. Zatim u prozoru “Stilovi” otvorite, pronađite i postavite kursor na “Footnote Reference” ili “Endnote Reference”.
4. I kliknite na naopako dugme trougla.
5. Sada na padajućem izborniku kliknite na “Odaberi sve XX instance(e)”. “XX” se ovdje odnosi na broj fusnota ili krajnjih bilješki koje imate. Sada su odabrane sve fusnote ili endnote.
6. Na kraju pritisnite “Delete” i svi oni nestaju u sekundi.

Međutim, ponekad u koraku 2 možda nećete uspjeti pronaći "Referenca na fusnotu" ili "Referenca na krajnju bilješku". Evo koraka koje možete poduzeti:

1. Prvo, kliknite na "Opcije" na desnoj strani prozora "Stilovi".
2. Zatim u dijaloškom okviru "Opcije okna stilova" odaberite "Svi stilovi" za "Odaberite stilove za prikaz".
3. Zatim kliknite "OK".
4. A sada možete pronaći i “Referenca za fusnotu” i “Referenca za krajnju bilješku”.
5. Ponovite gornji korak 4.
6. Na kraju kliknite na “Odaberi sve” i možete vidjeti da su sada u odabiru.

Metoda 2: Koristite funkciju “Pronađi i zamijeni”.

1. Prvo kliknite na tabelu "Početna".
2. Zatim ovaj put u grupi “Uređivanje” odaberite “Zamijeni”.
3. Zatim u dijaloškom okviru “Pronađi i zamijeni” kursor postavite na tekstualni okvir “Pronađi šta”.
4. I kliknite na dugme „Više“ da proširite više opcija.
5. Zatim kliknite na "Posebno" na dnu.
6. Zatim odaberite “Endnote Mark” ili “Footnote Mark”.
7. Ako odaberete “Endnote Mark”, u tekstualnom okviru “Pronađi šta” vidjet ćete “^e”. Ako odaberete “Oznaka fusnote”, vjerovatno ćete vidjeti “^f”.
8. Sada ostavite polje za tekst “Zamijeni sa” praznim.
9. Na kraju, kliknite na "Zamijeni sve" da izbrišete, a zatim sve. Ili kliknite "Zamijeni" da se krećete kroz njih jedan po jedan i odlučite hoćete li izbrisati ili ne.

Ovdje morate razumjeti ako neke fusnote ili krajnje bilješke sadrže prilagođene oznake, one se ne mogu obrisati, kao što je dolje:

Metod 3: Snimite makro

Na primjer, ako želimo da se riješimo svih fusnota, možemo snimiti makro za metodu 2 i zauzvrat ćemo dobiti kodove. Zatim možete odabrati da dodijelite tipku ili tipkovnicu za makro da biste ga kasnije koristili. Što se tiče snimanja makronaredbe, pogledajte ovaj članak: Kako ukloniti formatiranje zalijepljenih tekstova pomoću makroa i VBA u Wordu

Sljedeći kodovi se koriste za brisanje fusnota:

Sub DeleteFootnotes()
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    .Text = "^f"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Usput, da biste izbrisali krajnje bilješke, samo trebate promijeniti “^f” u “^e” u liniji koda “.Text = “^f”".

Metod 4: Koristite VBA kodove

Ako više volite još brži način, makro vam može pomoći. Kao što je prikazano u metodi 2, neke od prilagođenih oznaka na kraju ili fusnote ne mogu se eliminisati. Ali uz pomoć makroa, to se može lako riješiti.

1. Za start sa, pritisnite “Alt+ F11” da otvorite VBA editor.
2. Zatim kliknite na “Insert” da umetnete novi “Module”.
3. Zatim dvaput kliknite da otvorite modul. Sada ako želite izbrisati sve krajnje bilješke, zalijepite sljedeće kodove:

Sub DeleteAllEndnotes()
  Dim objEndnote As Endnote

  For Each objEndnote In ActiveDocument.Endnotes
    objEndnote.Delete
  Next
End Sub

Da biste izbrisali sve fusnote, umjesto toga zalijepite ove kodove:

Sub DeleteAllfootnotes()
  Dim objFootnote As Footnote

  For Each objFootnote In ActiveDocument.Footnotes
    objFootnote.Delete
  Next
End Sub

4. Na kraju, kliknite na “Run”.

Poređenje 4 metoda

Popravi oštećene datoteke

Uopšteno govoreći, sa toliko funkcija, možemo mnogo postići u Wordu. Ipak, može biti podložan greškama i oštećenjima, ostavljajući oštećene Word datoteke za sobom. Stoga, u ovom trenutku, sigurno ćete morati dobiti a Alat za ispravljanje grešaka u Wordu kako biste sebi pomogli da dođete do vrijednih podataka.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Alat za oporavak od problema s Excel datotekama i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com