W dzisiejszym artykule przedstawimy 2 szybkie i skuteczne metody obliczania liczby punktorów w dokumencie Word.
Od czasu do czasu używaliśmy list punktowanych lub numerowanych w naszych dokumentach do organizowania elementów. Ogólnie rzecz biorąc, punktor lub liczba prowadzą do poszczególnych pozycji, czy to słów, czy fraz, czy też zdań. Teraz, jeśli masz listę numerowaną, nie będzie problemu z ustaleniem całkowitej liczby pozycji. A co, jeśli w dokumencie Word znajdują się wypunktowane listy? Zwykłe liczenie ich jeden po drugim nie brzmi dobrze.
Dlatego w przypadku, gdyby niektórzy z was musieli podsumować numer punktora, oto dwa sposoby rozwiązania.
Metoda 1: Przekonwertuj listę wypunktowaną na listę numerowaną
- Najpierw wybierz listę, dla której chcesz uzyskać numer punktora.
- Następnie kliknij „Numerowanie” w grupie „Akapit” na karcie „Strona główna”. Lista wypunktowana zostanie zmieniona na numerowaną.
Możesz też kliknąć zaznaczenie prawym przyciskiem myszy i przesunąć kursor na opcję „Numerowanie”, a następnie najechać kursorem na jeden ze stylów numeracji w menu rozszerzonym. Pozwala to uzyskać liczbę punktorów bez faktycznej konwersji listy wypunktowanej na numerowaną.
Nawiasem mówiąc, jeśli chcesz policzyć punkty w całym dokumencie, wystarczy umieścić kursor w obrębie jednej listy wypunktowanej, a następnie wykonać powyższe kroki. Znajdziesz wszystkie wypunktowane listy w pliku zostały przekonwertowane na listy numerowane z numerami w kolejności, na przykład poniżej:
Metoda 2: Użyj makra
- Na początek, jeśli chcesz uzyskać punktory z określonej listy, wybierz ją. W przeciwnym razie, aby policzyć punktory w całym dokumencie, należy nacisnąć „Ctrl + A”, aby mieć go w zaznaczeniu.
- Następnie kliknij zakładkę „Deweloper”.
- Następnie kliknij „Visual Basic”, aby otworzyć edytor VBA. Kombinacja skrótu to „Alt + F11”.
- Teraz kliknij „Normalne”, a następnie „Wstaw”.
- Następnie wybierz „Moduł”.
- Kliknij dwukrotnie nowy moduł i wklej te kody w obszarze edycji:
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 koniec kliknij „Uruchom”.
Pojawi się okno komunikatu, pokazujące wynik.
Dobrze zarządzaj swoim plikiem
Podczas pracy mamy do czynienia z dużą liczbą dokumentów Worda, sugeruje się, że powinniśmy obchodzić się z nimi ostrożnie, ponieważ każdy wypadek może prowadzić do korupcji. A jeśli dojdzie do uszkodzenia pliku, będziesz potrzebować pliku Narzędzie do odzyskiwania dokumentów programu Word aby pomóc Ci rozwiązać problem.
Wprowadzenie autora:
Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym xls narzędzie do naprawy uszkodzeń danych i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com