V današnjem članku vam bomo predstavili 2 hitri in učinkoviti metodi za štetje krogel v vašem Wordovem dokumentu.
Občasno smo v svojih dokumentih uporabljali označene ali oštevilčene sezname za razvrščanje elementov. Na splošno točka ali številka vodi posamezen element, pa naj gre za besedo, besedno zvezo ali stavek. Zdaj, če imate oštevilčen seznam, ne bo problem ugotoviti skupne številke artikla. Kaj pa, če so v vašem besedilnem dokumentu seznami z oznakami? Preprosto štetje enega za drugim se ne sliši dobro.
Torej, če boste nekateri morali povzeti številko krogle, tukaj sta na voljo dva načina.
1. način: Pretvorite označen seznam v oštevilčen seznam
- Najprej izberite seznam, za katerega želite dobiti številko krogle.
- Nato kliknite »Številčenje« v skupini »Odstavek« na zavihku »Domov«. Označeni seznam se spremeni v oštevilčenega.
Lahko pa tudi z desno miškino tipko kliknete izbiro in premaknete kazalec nad možnost »Številčenje«, nato pa miškin kazalec premaknite na enega od stilov oštevilčenja v razširjenem meniju. To vam omogoča, da dobite število oznak, ne da bi dejansko pretvorili označeni seznam v oštevilčenega.
Mimogrede, če morate prešteti zaporedne točke celotnega dokumenta, morate le kazalec postaviti na en seznam z oznakami in nato slediti zgornjim korakom. Ugotovili boste, da so vsi označeni seznami v datoteki pretvorjeni v oštevilčene sezname s zaporednimi številkami, na primer spodaj:
2. način: Uporabite makro
- Za začetek, če želite dobiti oznake določenega seznama, ga izberite. V nasprotnem primeru za štetje oznak v celotnem dokumentu pritisnite "Ctrl + A", da ga izberete.
- Nato kliknite jeziček »Razvijalec«.
- Nato kliknite »Visual Basic«, da odprete urejevalnik VBA. Kombinacija bližnjic je “Alt + F11”.
- Zdaj kliknite »Običajno« in nato »Vstavi«.
- Izberite »Modul«.
- Dvokliknite novi modul in na območje za urejanje prilepite te kode:
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
- Na koncu kliknite »Zaženi«.
Videli boste okno s sporočilom, ki prikazuje rezultat.
No, upravljajte svojo datoteko
Med delovnimi izkušnjami imamo opravka z velikim številom Wordovih dokumentov, zato predlagamo, da z njimi ravnamo previdno, saj lahko vsaka nesreča povzroči korupcijo. In če pride do poškodbe datoteke, boste potrebovali Orodje za obnovitev Wordovega dokumenta da vam pomaga rešiti težavo.
Uvod avtorja:
Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z xls orodje za popravilo poškodb podatkov - in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com