Бүгінгі мақалада біз сізге Word құжатындағы таңбалар санын санаудың 2 жылдам және тиімді әдісін ұсынамыз.
Біз элементтерді ретке келтіру үшін оқтын-оқтын құжаттарымызда маркерленген немесе нөмірленген тізімдерді қолданамыз. Жалпы, таңбалауыш немесе сан жеке элементті, мейлі ол сөз немесе сөз тіркесі немесе сөйлем болсын, әкеледі. Енді сізде нөмірленген тізім болса, жалпы элемент санын анықтау қиын болмайды. Дегенмен, Word құжатында маркерленген тізімдер болса ше? Оларды бір-бірлеп санау жақсы емес.
Сондықтан, кейбіреулеріңізге оқтың нөмірін қорытындылау қажет болса, мұнда жұмыс істеудің 2 жолы бар.
1-әдіс: Маркерленген тізімді нөмірленген тізімге түрлендіру
- Біріншіден, маркер нөмірін алғыңыз келетін тізімді таңдаңыз.
- Содан кейін «Басты» қойындысының астындағы «Параграф» тобындағы «Нөмірлеу» түймесін басыңыз. Маркерленген тізім нөмірленген тізімге ауыстырылады.
Немесе таңдауды тінтуірдің оң жақ түймешігімен басып, курсорды «Нөмірлеу» опциясының үстіне жылжытуға болады, содан кейін курсорды кеңейту мәзіріндегі нөмірлеу мәнерлерінің біріне апаруға болады. Бұл таңбаланған тізімді нақты нөмірленген тізімге түрлендірусіз таңбалар санын алуға мүмкіндік береді.
Айтпақшы, бүкіл құжаттың таңбалауыш нүктелерін санау қажет болса, курсорды тек бір таңбаланған тізімге қойып, жоғарыдағы қадамдарды орындаңыз. Файлдағы барлық маркерленген тізімдердің нөмірлері ретімен нөмірленген тізімдерге түрлендірілгенін табасыз, мысалы, төменде:
2-әдіс: Макросты қолданыңыз
- Бастау үшін, белгілі бір тізімнің таңбаларын алғыңыз келсе, оны таңдаңыз. Әйтпесе, бүкіл құжаттағы таңбалауыштарды санау үшін оны таңдау үшін «Ctrl+ A» пернелерін басу керек.
- Содан кейін «Әзірлеуші» қойындысын басыңыз.
- Содан кейін VBA редакторын ашу үшін «Visual Basic» түймесін басыңыз. Пернелер тіркесімі – “Alt+ F11”.
- Енді «Қалыпты», содан кейін «Кірістіру» түймесін басыңыз.
- Келесі «Модуль» таңдаңыз.
- Жаңа модульді екі рет басып, осы кодтарды өңдеу аймағына қойыңыз:
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
- Соңында «Іске қосу» батырмасын басыңыз.
Сіз нәтижені көрсететін хабарлама терезесін көресіз.
Файлыңызды жақсы басқарыңыз
Жұмыс тәжірибесі кезінде Word құжаттарының көп санымен айналысамыз, оларды мұқият өңдеу ұсынылады, себебі кез келген сәтсіздік сыбайлас жемқорлыққа әкелуі мүмкін. Ал файл зақымдалған жағдайда, сізге қажет болады Word құжатын қалпына келтіру құралы мәселені шешуге көмектесу үшін.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xls деректер зақымын жөндеу құралы және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com