4 būdai, kaip greitai ištrinti visas „Word“ dokumento išnašas ar pabaigas

Šiame straipsnyje pateikiami 4 būdai, kaip greitai ištrinti visas Word dokumento išnašas arba pabaigos pastabas

Didelės apimties galinės pastabos ir išnašos yra dokumento tekstai, kuriuose pateikiami paaiškinimai ir komentarai. Tačiau kartais, kai paveldi dokumentą iš kitų, tokia informacija gali būti jums nenaudinga. Todėl turėsite juos pašalinti. Neištrindami po vieną, čia yra 4 greiti būdai, leidžiantys juos išvalyti vieną kartą.

1 būdas: naudokite langą „Stiliai“.

1. Pirmiausia spustelėkite skirtuką „Pagrindinis“.
2. Tada spustelėkite rodyklės žemyn mygtuką grupėje „Stiliai“.
3. Toliau atidarytame lange „Stiliai“ suraskite ir užveskite žymeklį ant „Footnote Reference“ arba „Endnote Reference“.
4. Ir spustelėkite apversto trikampio mygtuką.
5. Dabar išskleidžiamajame meniu spustelėkite „Pasirinkti visus XX egzempliorius (-us)“. „XX“ čia nurodo jūsų turimų išnašų arba pabaigos išnašų skaičių. Dabar pasirinktos visos išnašos arba pabaigos išnašos.
6. Galiausiai paspauskite „Ištrinti“ ir visi jie išnyks per sekundę.

Tačiau kartais 2 veiksme jums gali nepavykti rasti nei „Footnote Reference“, nei „Endnote Reference“. Štai žingsniai, kuriuos galite atlikti:

1. Pirmiausia dešinėje lango „Stiliai“ pusėje spustelėkite „Parinktys“.
2. Toliau dialogo lange „Stiliaus srities parinktys“ pasirinkite „Visi stiliai“, skirtą „Pasirinkti rodytinus stilius“.
3. Tada spustelėkite „Gerai“.
4. Dabar galite rasti ir „Footnote Reference“, ir „Endnote Reference“.
5. Pakartokite 4 veiksmą aukščiau.
6. Galiausiai spustelėkite „Pasirinkti viską“ ir pamatysite, kad jie dabar yra atrinkti.

2 būdas: naudokite funkciją „Rasti ir pakeisti“.

1. Iš pradžių taip pat spustelėkite lentelę „Pagrindinis“.
2. Tada šį kartą grupėje „Redagavimas“ pasirinkite „Pakeisti“.
3. Toliau dialogo lange „Rasti ir pakeisti“ užveskite žymeklį ties teksto laukeliu „Rasti ką“.
4. Ir spustelėkite mygtuką „Daugiau“, kad išplėstumėte daugiau parinkčių.
5. Tada apačioje spustelėkite „Specialus“.
6. Tada pasirinkite „Endnote Mark“ arba „Footnote Mark“.
7. Jei pasirinksite „Endnote Mark“, teksto laukelyje „Rasti ką“, pamatysite „^e“. Jei pasirinksite „Footnote Mark“, greičiausiai pamatysite „^f“.
8. Dabar palikite tuščią teksto laukelį „Pakeisti į“.
9. Galiausiai spustelėkite „Pakeisti viską“, kad ištrintumėte, tada visus. Arba spustelėkite „Pakeisti“, kad naršytumėte juos po vieną ir nuspręstumėte, ar ištrinti, ar ne.

Čia jūs turite suprasti, jei kai kuriose išnašose ar išnašose yra pasirinktinių ženklų, jų negalima išvalyti, pvz., toliau:

3 būdas: Įrašykite makrokomandą

Pavyzdžiui, jei norime atsikratyti visų išnašų, galime įrašyti 2 metodo makrokomandą ir mainais gausime kodus. Tada galite pasirinkti makrokomandai priskirti mygtuką arba klaviatūrą, kad galėtumėte ją naudoti vėliau. Apie tai, kaip įrašyti makrokomandą, skaitykite šiame straipsnyje: Kaip pašalinti įklijuotų tekstų formatavimą naudojant makrokomandas ir VBA programoje „Word“.

Išnašoms ištrinti naudojami šie kodai:

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

Beje, norėdami ištrinti galines pastabas, jums tereikia pakeisti „^f“ į „^e“ kodo eilutėje „.Tekstas = „^f“".

4 būdas: naudokite VBA kodus

Jei pageidaujate dar greitesnio būdo, gali padėti makrokomandos. Kaip parodyta 2 metodu, kai kurių tinkintų išnašų ar išnašų žymių pašalinti negalima. Tačiau naudojant makrokomandą, ją galima lengvai tvarkyti.

1. Į start ir paspauskite „Alt+ F11“, kad atidarytumėte VBA redaktorių.
2. Tada spustelėkite „Įterpti“, kad įterptumėte naują „modulį“.
3. Tada dukart spustelėkite, kad atidarytumėte modulį. Dabar, jei norite ištrinti visas galines pastabas, įklijuokite šiuos kodus:

Sub DeleteAllEndnotes()
  Dim objEndnote As Endnote

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

Jei norite ištrinti visas išnašas, įklijuokite šiuos kodus:

Sub DeleteAllfootnotes()
  Dim objFootnote As Footnote

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

4. Galiausiai spustelėkite „Vykdyti“.

4 metodų palyginimas

Pataisykite pažeistus failus

Apskritai, turėdami tiek daug funkcijų, „Word“ galime pasiekti daug. Tačiau jis gali būti jautrus klaidoms ir sugadinimams, palikdamas sugadintus „Word“ failus. Todėl šiuo metu jūs tikrai turėsite gauti a Word klaidų taisymo įrankis kad padėtumėte sau gauti vertingus duomenis.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant Excel failo problemų atkūrimo įrankis bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com