V dnešnom článku vám predstavíme 2 rýchle a efektívne metódy spočítania počtu odrážok vo vašom dokumente Word.
Z času na čas sme v našich dokumentoch na usporiadanie položiek použili zoznamy s odrážkami alebo číslované zoznamy. Odrážka alebo číslo spravidla vedú k jednotlivým položkám, či už ide o slovo, frázu alebo vetu. Teraz, ak máte očíslovaný zoznam, nebude problém zistiť celkové číslo položky. Čo však v prípade, ak sa vo vašom dokumente programu Word nachádzajú zoznamy s odrážkami? Ich jednoduché počítanie po jednom neznie dobre.
Preto v prípade, že by niektorí z vás mohli potrebovať zhrnúť číslo guľky, existujú 2 spôsoby riešenia.
Metóda 1: Konvertujte zoznam s odrážkami na očíslovaný zoznam
- Najskôr vyberte zoznam, z ktorého chcete získať číslo odrážky.
- Potom kliknite na položku „Číslovanie“ v skupine „Odsek“ na karte „Domov“. Zoznam s odrážkami sa zmení na očíslovaný.
Alebo môžete tiež kliknúť pravým tlačidlom myši na výber a presunúť kurzor nad možnosť „Číslovanie“ a potom umiestniť kurzor na jeden zo štýlov číslovania v ponuke rozšírenia. Takto môžete získať počet odrážok bez skutočnej konverzie zoznamu s odrážkami na očíslovaný.
Mimochodom, ak potrebujete spočítať odrážky celého dokumentu, stačí umiestniť kurzor do jedného zoznamu s odrážkami a potom postupujte podľa vyššie uvedených krokov. Nájdete všetky zoznamy s odrážkami v súbore, ktoré boli prevedené na číslované zoznamy s postupnými číslami, napríklad nižšie:
Metóda 2: Použite makro
- Ak chcete začať s odrážkami konkrétneho zoznamu, najskôr ich vyberte. Inak pre počet odrážok v celom dokumente stlačte „Ctrl + A“, aby ste ich mali pri výbere.
- Ďalej kliknite na kartu Vývojár.
- Potom kliknite na „Visual Basic“ a otvorte editor VBA. Kombinácia skratiek je „Alt + F11“.
- Teraz kliknite na „Normálny“ a potom na „Vložiť“.
- Ďalej zvoľte „Modul“.
- Dvakrát kliknite na nový modul a vložte tieto kódy do oblasti úprav:
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
- Nakoniec kliknite na tlačidlo „Spustiť“.
Uvidíte vyskakovacie okno so správou, ktoré zobrazuje výsledok.
Spravujte svoj súbor
Počas pracovných skúseností sa zaoberáme veľkým počtom dokumentov programu Word. Navrhujeme, aby sme s nimi zaobchádzali opatrne, pretože akákoľvek nehoda môže viesť k poškodeniu. A v prípade, že dôjde k poškodeniu súboru, budete potrebovať a Nástroj na obnovu dokumentov Word ktorý vám pomôže postarať sa o problém.
Úvod autora:
Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane xls nástroj na opravu poškodenia dát a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S