Бүгінгі жазбада біз сіздермен сөз саны статистикасынан кесте мәтіндерін алып тастаудың 2 тиімді әдісімен бөлісуге қуаныштымыз.
Кестелер негізінен мәліметтерді сақтау үшін қолданылады. Кестелер - құжатпен жұмыс істеу кезінде нүктелерді иллюстрациялауда біздің ең жақсы досымыз. Содан кейін сөздерді санау кезінде бұл сәл ыңғайсыз болуы мүмкін. Кестелердегі барлық мәліметтерден гөрі негізгі мәтіндердің сөздерін алу қажет. Дегенмен, Word сіздің құжаттағы барлық сөздерді әдепкі бойынша санайтыны бәріне белгілі. Осы себепті біз тиімді құралдарды ойлап таптық. Толығырақ білу үшін оқыңыз.
1-әдіс: Кестелерді қолмен таңдап, математиканы өз бетіңізше орындаңыз
Егер бұл тек бір-екі кестеден тұратын қысқа құжат болса, онда «Ctrl» пернесін басып тұрып, кестелерді бір-бірлеп таңдау қажет. Бұл тәсілде таңдалған кестелердегі жалпы сан күй жолағында көрінеді, мысалы:
Көріп отырғаныңыздай, 2 сан бар. Біріншісі таңдалған кестелердегі сөздердің санын білдіреді, ал екіншісі сіздің құжатыңыздағы сөздердің жалпы санын білдіреді. Нәтижеге жету үшін екінші санды пайдаланып, біріншісін алып тастаңыз.
2-әдіс: VBA кодтарын іске қосыңыз
Жоғарыда айтылғандай, егер құжатта кестелер саны көп болса, 1-әдіс жалықтырады. Оларды қолмен таңдау идеалды әдіс емес. Керісінше, біз сізге барлық сөздерді санайтын макросты ұсынамыз, бірақ оларды кестелер мен жазулардан алып тастаймыз.
- Ең алдымен, Word бағдарламасындағы VBA редакторын іске қосу үшін «Alt+F11» пернелер тіркесімін басыңыз.
- Содан кейін «Қалыпты» батырмасын басыңыз.
- Әрі қарай «Кірістіру» қойындысын нұқыңыз.
- «Кірістіру» қойындысының ашылмалы мәзірінен «Модульді» таңдаңыз.
- Оң жағында кодтау аймағын ашу үшін жаңа модульді екі рет басыңыз.
- Енді келесі макросты сол жерге қойыңыз:
Sub ExcludeTableAndCaptionWordsFromWordCount()
Dim objTable As Table
Dim objParagraph As Paragraph
Dim objDoc As Document
Dim nTableWords As Integer, nDocWords As Integer, nWordCount As Integer, nCaptionWords As Integer
Set objDoc = ActiveDocument
nTableWords = 0
nCaptionWords = 0
nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
With objDoc
For Each objTable In .Tables
nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
Next objTable
End With
With objDoc
For Each objParagraph In .Paragraphs
If objParagraph.Range.Style = "Caption" Then
nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
End If
Next objParagraph
End With
nWordCount = nDocWords - nTableWords - nCaptionWords
MsgBox ("There are " & nWordCount & " main text words in this document." & vbCr & "The following items are excluded from word count: " & vbCr & "Total words in tables: " & nTableWords & vbCr & "Total caption words: " & nCaptionWords)
End Sub
- Соңында «Іске қосу» батырмасын басыңыз.
Макросты іске қосу санау нәтижесін көрсететін хабарлама терезесінде пайда болады.
Сөздің зақымдануымен күресу
Біз күнделікті жұмыс істеу үшін Word сияқты бағдарламалық жасақтамаға көп сенім артамыз. Нәтижесінде біз а-ның үлкен салдары туралы ойлана алмадық Сөздердің бұзылуы. Құжаттарды жөндеу құралы болмаса, сіз өзіңізді шарасыз сезінесіз.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xls түзету және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com