Šiame straipsnyje norime pasidalinti su jumis 2 greitais būdais, kaip ieškoti visų pabrauktų tekstų „Word“ dokumente.
Didelis pabraukimų skaičius Word dokumente nėra neįprastas dalykas. Todėl nuolat kyla tiek daug reikalavimų, susijusių su pabraukimų taikymu. Dabar pažvelkime į tokius prašymus.
- Raskite pabrauktus tarpus. Iš pirmos minties galite jaustis netekę. Tačiau galite galvoti taip, kad pildydami egzaminą Word dokumente turėsite ieškoti faile, kad pamatytumėte, ar liko neatsakytas klausimas.
- Pakeiskite tekstų perbraukimo būdą. Tekstus galite išskirti juos pabraukdami. Tačiau yra ir kitų priemonių, pavyzdžiui, pritaikyti tekstus kursyvu.
- Pakeiskite pabraukimo spalvą. Galite pakeisti pabraukimo spalvą, kad ji labiau trauktų akį.
Norint įvykdyti pirmiau nurodytus reikalavimus, yra vienas bendras veiksmas – pirmiausia reikia ieškoti pabraukimų. Ir štai mūsų 2 būdai:
1 būdas: naudokite parinktį „Išplėstinė paieška“.
- Norėdami pradėti, spustelėkite skirtuką „Pagrindinis“.
- Tada spustelėkite apversto trikampio mygtuką, esantį už „Rasti“.
- Tada pasirinkite „Išplėstinis paieška“.
- Dialogo lange „Rasti ir pakeisti“ spustelėkite mygtuką „Formatuoti“.
- Tada pasirinkite „Šriftas“.
- Lauke „Rasti šriftą“ pasirinkite dokumente naudojamą pabraukimo stilių ir spustelėkite „Gerai“.
- Dabar pasirinkite arba spustelėkite „Rasti“, tada „Pagrindinis dokumentas“, arba toliau spustelėkite „Rasti kitą“. Pirmoji pažymės visus dokumento pabraukimus, o antroji leis jums pereiti per pabraukimą po vieną.
Beje, jei norite praleisti 4–6 veiksmą, galite naudoti sparčiuosius klavišus. „Ctrl + U“ reiškia vieną pabraukimą ir „Ctrl + Shift + D“, dvigubas pabraukimas.
2 būdas: paleiskite Word makrokomandą
- Iš pradžių spustelėkite skirtuką „Kūrėjas“, o tada „Visual Basic“, kad sukurtumėte VBA redaktorių. Kitas būdas yra paspausti „Alt + F11“.
- Tada spustelėkite „Normalus“.
- Tada spustelėkite skirtuką „Įterpti“ ir pasirinkite „Modulis“.
- Dabar sėkmingai įdėjote naują modulį į „Įprastą“ projektą. Dukart spustelėkite naują modulį, kad atidarytumėte redagavimo sritį.
- Tada įklijuokite šiuos kodus:
Sub FindUnderlineInDoc()
Dim objDoc As Document
Dim objRange As Range
Set objDoc = ActiveDocument
Set objRange = objDoc.Range
objRange.Find.ClearFormatting
objRange.Find.Font.Underline = wdUnderlineSingle
With Selection.Find
.text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Execute
End With
End Sub
- Galiausiai paspauskite mygtuką „Vykdyti“.
pastabos:
Kodo eilutė “objRange.Find.Font.Underline = wdUnderlineSingle“ reiškia, kad ši makrokomanda ras vieną pabraukimą. Taigi norėdami rasti pabraukimą su kitais stiliais, turite pakeisti „wdUnderlineSingle“ su kitomis konstantomis, kurių daugiau rasite čia: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
Susidoroti su Word klaidomis
Ar rengdami ataskaitas kada nors susidūrėte su a sugadintas žodis, todėl prarandate failą, su kuriuo ką tik dirbate? Tokio scenarijaus mažiausiai tikėjomės. Nepaisant to, taip nutinka ir gali būti pražūtingas smūgis jūsų karjerai. Todėl, norėdami sutaupyti savo laiką ir karjerą, jums taip pat reikės profesionalo, kuris taisytų Word programą.
Autoriaus įvadas:
Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant xls pataisymas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com