Bugünkü məqalədə biz sizə Word sənədinizdəki güllələrin sayını hesablamaq üçün 2 sürətli və effektiv üsul təqdim edəcəyik.
Biz zaman-zaman sənədlərimizdə elementləri sıralamaq üçün markerli və ya nömrələnmiş siyahılardan istifadə edərdik. Ümumiyyətlə, güllə nöqtəsi və ya rəqəm fərdi elementə səbəb olur, istər söz, istər ifadə, istərsə də cümlə. İndi nömrələnmiş siyahınız varsa, ümumi element sayını tapmaq problem olmayacaq. Bununla belə, word sənədinizdə markerlə işarələnmiş siyahılar varsa nə olacaq? Sadəcə onları bir-bir saymaq yaxşı səslənmir.
Buna görə də, bəziləriniz güllə nömrəsini ümumiləşdirməyə ehtiyac duyarsa, burada işləməyin 2 yolu var.
Metod 1: Markerləşdirilmiş Siyahını Nömrələnmiş Siyahıya çevirin
- Əvvəlcə güllə nömrəsini almaq istədiyiniz siyahını seçin.
- Sonra "Ev" sekmesi altındakı "Paraqraf" qrupunda "Nömrələmə" düyməsini basın. Güllələnmiş siyahı nömrələnmiş siyahıya dəyişdirilməlidir.
Və ya siz həmçinin seçimin üzərinə sağ klikləyib kursoru “Nömrələmə” seçiminin üzərinə keçirə, sonra kursoru genişləndirmə menyusunda nömrələmə üslublarından birinə gətirə bilərsiniz. Bu, işarələnmiş siyahını nömrələnmiş siyahıya çevirmədən güllələrin sayını əldə etməyə imkan verir.
Yeri gəlmişkən, bütün sənədin marker nöqtələrini saymaq lazımdırsa, kursoru yalnız bir markerli siyahıya yerləşdirmək və sonra yuxarıdakı addımları yerinə yetirmək lazımdır. Siz fayldakı bütün markerli siyahıların aşağıdakı kimi ardıcıllıqla nömrələnmiş siyahılara çevrildiyini görəcəksiniz:
Metod 2: Makrodan istifadə edin
- Başlamaq üçün, müəyyən bir siyahının güllələrini əldə etmək istəyirsinizsə, onu seçin. Əks halda, bütün sənəddəki güllələrin sayı üçün onu seçimdə saxlamaq üçün “Ctrl+A” düymələrini sıxmalısınız.
- Sonra, "Developer" sekmesini vurun.
- Sonra VBA redaktorunu açmaq üçün "Visual Basic" düyməsini basın. Qısayol kombinasiyası “Alt+ F11”dir.
- İndi "Normal" və sonra "Daxil et" düyməsini basın.
- Sonrakı "Modul" seçin.
- Yeni modulun üzərinə iki dəfə klikləyin və bu kodları redaktə sahəsinə yapışdırın:
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
- Nəhayət, "Çalıştır" düyməsini basın.
Nəticəni göstərən bir mesaj qutusu görünəcək.
Faylınızı yaxşı idarə edin
Biz iş təcrübəsi zamanı çoxlu sayda Word sənədləri ilə məşğul oluruq, təklif olunur ki, onları diqqətlə idarə edək, çünki hər hansı nasazlıq korrupsiyaya səbəb ola bilər. Və faylın zədələnməsi halında, sizə lazım olacaq Word sənədinin bərpası vasitəsi problemin həllinə kömək etmək üçün.
Müəllif Giriş:
Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xls məlumat zədələnməsinin təmiri vasitəsi və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com