Në këtë artikull, do të ketë 3 mënyra për të numëruar numrin e fjalëve për seksionet në dokumentin tuaj Word.
Është e lehtë për të marrë numrin e përgjithshëm të fjalëve të një dokumenti. Por nuk ka asnjë funksion në Word për të na treguar numrin e fjalëve të një seksioni. Dhe duke pasur parasysh faktin se ne preferojmë të vendosim përmbajtje të së njëjtës temë në një seksion, si organizimi i një kapitulli gjatë shkrimit të një libri, është e nevojshme që ne të gjejmë zgjidhje për të marrë numërimin e seksioneve. 
Më poshtë janë 3 qasje që kërkojnë që ju të ekzekutoni një makro.
Metoda 1: Numëroni numrin e fjalëve për seksionin aktual
- Së pari, vendosni kursorin brenda një seksioni të synuar.
- Pastaj duhet të hapni redaktorin VBA në Word. Klikoni "Zhvillues" dhe më pas komandën "Visual Basic". Në rast se nuk mund të gjeni "Zhvilluesin" në Shirit, atëherë shtypni "Alt+ F11" në vend të kësaj.
- Pastaj klikoni projektin "Normal" në kolonën e majtë.
- Pastaj klikoni në skedën "Fut".
- Në atë menu drop-down, zgjidhni "Modul".
- Hapni modulin e ri duke klikuar dy herë.
- Tani në modulin e hapur, ngjitni kodet e mëposhtme:
Sub CountWordsOfCurrentSection()
MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
& " words in current section.")
End Sub
- Së fundi, klikoni "Run" ose shtypni "F5" për të ekzekutuar kodet.
Do të merrni një kuti mesazhi, që tregon numrin total të seksionit aktual, si më poshtë:
Metoda 2: Numëroni numrin e fjalëve për një seksion të caktuar
Le të themi se keni punuar për një libër dhe keni vendosur çdo kapitull si një seksion individual. Pastaj për të ditur se sa fjalë keni shkruar në një kapitull, mund të përdorni këtë metodë.
- Ndiqni hapat e mësipërm për të instaluar dhe ekzekutuar një makro.
- Thjesht zëvendësoni makro me këtë:
Sub CountWordsOfSpecificSection()
Dim strSecNum As String
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
strSecNum = InputBox("Enter a section number here:", "Enter Section Number")
MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
& " words in section " & strSecNum & ".")
Application.ScreenUpdating = True
End Sub
- Dhe duke e drejtuar atë, do të ketë një kuti hyrëse. Në kutinë "Fut numrin e seksionit", fut numrin e seksionit dhe kliko "OK" për të vazhduar më tej.
Rezultati shfaqet në një kuti mesazhi.
Metoda 3: Numëroni numrin e fjalëve për të gjitha seksionet në një dokument
Siç sugjeron nëntitulli, në këtë mënyrë do të merrni numrin total të fjalëve të secilit seksion në një dokument dhe do t'i renditni ato në një kuti mesazhi.
- Para së gjithash, hapni dokumentin e synuar.
- Megjithatë, ju duhet të përsërisni hapat në metodën 1 për të instaluar dhe ekzekutuar makro.
- Dhe këtë herë, ndryshoni me këtë makro:
Sub CountWordsOfEachSectionInDoc()
Dim objDoc As Document
Dim nNumberOfSection As Long
Dim strText As String
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
nNumberOfSection = objDoc.Sections.Count
For nNumberOfSection = 1 To nNumberOfSection
strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
.Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
& vbNewLine
Next nNumberOfSection
MsgBox strText
Application.ScreenUpdating = True
End Sub
Këtu është rezultati i mundshëm:
Ruani të dhëna të vlefshme
Ndërsa merreni me të gjitha llojet e dokumenteve, duhet të keni parasysh sigurinë e tyre. Meqenëse nuk mund të dalloni kurrë se kur do të ndodhë humbja e ardhshme e të dhënave, sugjerohet të bëni kopje rezervë të skedarëve të rëndësishëm. Përveç kësaj, është gjithmonë mirë të marrësh një mjet që mund rikuperoj doc, nëse ndonjë.
Hyrje e autorit:
Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim xls pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com