Šiame straipsnyje mes jums pasiūlysime 2 protingus būdus, kaip sutraukti arba išplėsti „Word“ dokumento dalis.
Ar retkarčiais susimąstėte, kaip būtų nuostabu, jei galėtumėte sutraukti tam tikrą dokumento diapazoną ir peržiūrėti dvi nenuoseklias dalis? Geros naujienos yra tai, kad ši „Word 2013“ ir vėlesnėse versijose yra integruota funkcija.
Jei turite Word 2013 arba naujesnę versiją, galite peržiūrėti šią nuorodą, kad sužinotumėte daugiau apie šią funkciją: https://support.microsoft.com/en-us/office/collapse-or-expand-parts-of-a-document-701786e0-95e2-40bf-bfe5-f0233cd3520c
Tačiau jei naudojate Word 2010 ar senesnes versijas, tokios sėkmės nėra. Dėl šios priežasties radome 2 sprendimus, kuriuos galite pritaikyti ankstesnėse „Word 2013“ versijose.
1 būdas: sutraukite arba išskleiskite vieną dokumento dalį
- Pirmiausia pasirinkite tekstą, kurį norite sutraukti.
- Tada spustelėkite skirtuką „Įterpti“.
- Tada spustelėkite „Žymėti“ grupėje „Nuorodos“, kad atidarytumėte dialogo langą „Žymės“.
- Teksto laukelyje įveskite žymės pavadinimą ir spustelėkite „Pridėti“, kad sukurtumėte žymę pasirinktam turiniui.

- Dabar paspauskite „Alt + F11“, kad atidarytumėte VBA redaktorių.
- Tada spustelėkite „Įprastas“, tada – skirtuką „Įterpti“.
- Pasirinkite „Modulis“.
- Dukart spustelėkite modulį, kad atidarytumėte kodavimo sritį dešinėje ir įklijuokite šiuos kodus:
Sub CollapseOrExpandTheSelectedText1()
ActiveDocument.Bookmarks("Introduction").Range.Font.Hidden = _
Not ActiveDocument.Bookmarks("Introduction").Range.Font.Hidden
End Sub
Pastaba:
- Galite pakeisti makrokomandos pavadinimą taip, kaip norite.
- „Įvadas“ nurodo žymės pavadinimą. Įsitikinkite, kad jis sutampa su pavadinimu, kurį įvedėte atlikdami 4 veiksmą.
- Spustelėkite „Išsaugoti“, kad išsaugotumėte makrokomandą.
- Tada įdėkite įterpimo žymeklį šalia žymės, bet niekada jos viduje. Pavyzdžiui, mes dedame jį eilutėje virš pasirinkto teksto.
- Tada paspauskite „Ctrl + F9“, kad įterptumėte lauką.
- Lauko viduje įveskite šiuos kodus:
MACROBUTTON CollapseOrExpandTheSelectedText1 Introduction
Pastaba:
- "Sutraukti arba išskleisti pasirinktą tekstą1“ yra makrokomandos pavadinimas 8 veiksme.
- "Įvadas“ yra etiketė, kurią norite rodyti ant mygtuko.
- Dabar paspauskite „Alt + F9“ ir pamatysite mygtuką.
- Dukart spustelėkite mygtuką, kad išplėstumėte arba sutrauktumėte tekstą.
2 būdas: sutraukite arba išskleiskite kelias dokumento dalis
Jei taikote 1 metodą, kad sukurtumėte kelis mygtukus, kad sutrauktumėte arba išplėtumėte turinį, galite naudoti šį metodą, kad rodytumėte arba slėptumėte tekstus paketais.
- Pakartokite 5 būdo 8–1 veiksmus.
- Tada, norėdami sutraukti visus tekstus, įklijuokite ten šią makrokomandą:
Sub CollapseAllSelectedTexts()
Dim objBookmark As Bookmark
For Each objBookmark In ActiveDocument.Bookmarks
objBookmark.Range.Font.Hidden = True
Next
End Sub
Norėdami išplėsti visus tekstus, jums reikės šio:
Sub ExpandAllSelectedTexts()
Dim objBookmark As Bookmark
For Each objBookmark In ActiveDocument.Bookmarks
objBookmark.Range.Font.Hidden = False
Next
End Sub
- Tada spustelėkite „Vykdyti“ arba paspauskite „F5“.
Be to, galite atlikti 10 būdo 14–1 veiksmus, kad sukurtumėte dokumente mygtukus, kad išskleistumėte arba sutrauktumėte visus tekstus vienu metu.
Susitvarkykite su žodžio nesėkmės pasekmėmis
Žodis retkarčiais nepavyksta. Ir yra pasekmių. Kai kurie iš jų yra puikūs, o kiti gali priversti jus atgauti duomenis. Jei pastarasis yra jūsų atvejis, geriau rinkitės a doc atkūrimo įrankis, padėsiantis versle.
Autoriaus įvadas:
Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant xlsx žala bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com





