A mai cikkben 2 gyors és hatékony módszert mutatunk be a Word-dokumentumban lévő golyók számának megszámlálására.
Időről időre felsorolásjeles vagy számozott listákat használtunk dokumentumainkban az elemek rendszerezéséhez. Általában egy felsoroláspont vagy egy szám vezet egy egyedi elemhez, legyen az szó, kifejezés vagy mondat. Ha most van számozott listája, akkor nem okoz gondot kitalálni a teljes cikkszámot. De mi van akkor, ha felsorolásjeles listák vannak a Word-dokumentumban? Egyszerűen egyenként megszámolni őket nem hangzik jól.
Ezért arra az esetre, ha valakinek esetleg össze kell adnia a felsorolásszámot, itt van 2 módszer a kidolgozásra.
1. módszer: Konvertálja a felsorolásjeles listát számozott listává
- Először válassza ki azt a listát, amelyiknek a felsorolásszámát szeretné megkapni.
- Ezután kattintson a „Számozás” elemre a „Bekezdés” csoportban a „Kezdőlap” fülön. A felsorolásjeles lista számozottra változik.
Vagy kattintson a jobb gombbal a kijelölésre, és vigye a kurzort a „Számozás” opció fölé, majd vigye a kurzort a bővítőmenü egyik számozási stílusára. Ez lehetővé teszi, hogy lekérje a felsorolások számát anélkül, hogy a felsorolásjeles listát ténylegesen számozottá alakítaná.
Egyébként, ha meg kell számolnia a teljes dokumentum felsoroláspontjait, csak egy felsorolásjeles listán belül kell elhelyeznie a kurzort, majd kövesse a fenti lépéseket. A fájlban lévő összes felsorolásjeles listát számozott listákká alakították, sorszámmal, például az alábbiakban:
2. módszer: Makró használata
- Először is, ha egy adott lista felsorolásait szeretné megkapni, válassza ki azt. Ellenkező esetben az egész dokumentumban lévő felsorolások számának megtekintéséhez nyomja meg a „Ctrl+A” billentyűkombinációt, hogy kijelölje azt.
- Ezután kattintson a „Fejlesztő” fülre.
- Ezután kattintson a „Visual Basic” elemre a VBA-szerkesztő megnyitásához. A billentyűkombináció az „Alt+F11”.
- Most kattintson a „Normál”, majd a „Beszúrás” gombra.
- Ezután válassza a „Modul” lehetőséget.
- Kattintson duplán az új modulra, és illessze be ezeket a kódokat a szerkesztési területre:
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
- Végül kattintson a „Futtatás” gombra.
Ekkor megjelenik egy üzenetablak, amely az eredményt mutatja.
Jól kezelheti fájlját
A munkatapasztalat során nagyszámú Word dokumentummal foglalkozunk, javasolt óvatosan bánni velük, mert minden szerencsétlenség korrupcióhoz vezethet. És abban az esetben, ha a fájl megsérül, szüksége lesz a Word dokumentum-helyreállító eszköz hogy segítsen megoldani a problémát.
Szerző Bevezetés:
Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xls adatkárosodás javító eszköz és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com