Šiandienos straipsnyje pateiksime 2 greitus ir efektyvius būdus, kaip suskaičiuoti ženklelių skaičių jūsų Word dokumente.
Retkarčiais savo dokumentuose naudodavome sąrašus su ženkleliais arba sunumeruotais, kad sutvarkytume elementus. Paprastai ženklelis arba skaičius veda prie atskiro elemento, nesvarbu, ar tai žodis, ar frazė, ar sakinys. Dabar, jei turite sunumeruotą sąrašą, nebus problemų išsiaiškinti bendrą prekės numerį. Tačiau ką daryti, jei jūsų Word dokumente yra sąrašų su ženkleliais? Tiesiog skaičiuoti juos po vieną neskamba gerai.
Todėl, jei kai kuriems iš jūsų gali prireikti susumuoti kulkos numerį, pateikiame 2 būdus, kaip tai padaryti.
1 būdas: konvertuokite sąrašą su ženkleliais į numeruotą sąrašą
- Pirmiausia pasirinkite sąrašą, kuriame norite gauti kulkos numerį.
- Tada skirtuko „Pagrindinis“ grupėje „Pastraipa“ spustelėkite „Numeravimas“. Suženklintas sąrašas pakeičiamas į sunumeruotą.
Arba taip pat galite dešiniuoju pelės mygtuku spustelėti pasirinkimą ir perkelti žymeklį ant parinkties „Numeravimas“, tada užveskite žymeklį ant vieno iš numeravimo stilių išplėstiniame meniu. Tai leidžia gauti ženklelių skaičių nekonvertuojant sąrašo su ženkleliais į sunumeruotą.
Beje, jei reikia suskaičiuoti viso dokumento ženklelius, tereikia perkelti žymeklį į vieną ženklelių sąrašą ir atlikti aukščiau nurodytus veiksmus. Pamatysite, kad visi failo sąrašai su ženkleliais buvo konvertuoti į sunumeruotus sąrašus su numeriais iš eilės, pvz., toliau:
2 būdas: naudokite makrokomandą
- Norėdami pradėti, jei norite gauti konkretaus sąrašo ženklelius, pasirinkite jį. Kitu atveju, norėdami skaičiuoti viso dokumento ženklelius, turėtumėte paspausti „Ctrl+A“, kad jis būtų pasirinktas.
- Tada spustelėkite skirtuką „Kūrėjas“.
- Tada spustelėkite „Visual Basic“, kad atidarytumėte VBA redaktorių. Spartusis klavišas yra „Alt + F11“.
- Dabar spustelėkite „Įprastas“, tada „Įterpti“.
- Toliau pasirinkite „Modulis“.
- Dukart spustelėkite naują modulį ir įklijuokite šiuos kodus redagavimo srityje:
Sub GetNumberOfBullets()
Dim objRange As Range
Dim objParagraph As Paragraph
Dim nNumber As Integer
' Initialization
Set objRange = Selection.Range
nNumber = 0
For Each objParagraph In objRange.Paragraphs
If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
nNumber = nNumber + 1
End If
Next objParagraph
' Pop up a message box to show the total number of bullets.
MsgBox ("Bullet number:" & nNumber)
End Sub
- Galiausiai spustelėkite „Vykdyti“.
Pamatysite iššokantį pranešimo laukelį, rodantį rezultatą.
Gerai tvarkykite savo failą
Darbo metu susiduriame su daugybe Word dokumentų, todėl rekomenduojama su jais elgtis atsargiai, nes bet kokia nelaimė gali sukelti korupciją. Ir jei failas bus pažeistas, jums reikės a Word dokumentų atkūrimo įrankis kad padėtų jums išspręsti problemą.
Autoriaus įvadas:
Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant xls duomenų žalos taisymo įrankis bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com