Ebben a cikkben 3 módszerrel számolhatja meg a Word-dokumentum szakaszaihoz tartozó szavak számát.
Könnyen leolvasható a dokumentum teljes szavainak száma. De a Wordben nincs olyan funkció, amely megmondaná egy szakasz szavainak számát. Tekintettel arra, hogy az azonos témához tartozó tartalmakat szívesebben helyezzük egy szakaszba, mint például egy fejezet rendszerezése könyvírás közben, szükséges, hogy megoldásokat találjunk a szakaszok számának megállapításához. 
Az alábbiakban 3 megközelítés található, amelyekhez makrót kell futtatni.
1. módszer: Számolja meg az aktuális szakaszhoz tartozó szavak számát
- Először is, helyezze a kurzort a célterületre.
- Ezután meg kell nyitnia a VBA-szerkesztőt a Wordben. Kattintson a „Fejlesztő”, majd a „Visual Basic” parancsra. Ha nem találja a „Fejlesztő” pontot a szalagon, nyomja meg helyette az „Alt+F11” gombot.
- Ezután kattintson a „Normál” projektre a bal oldali oszlopban.
- Ezután kattintson a „Beszúrás” fülre.
- A legördülő menüben válassza a „Modul” lehetőséget.
- Nyissa meg az új modult dupla kattintással.
- Most a nyitott modulban illessze be a következő kódokat:
Sub CountWordsOfCurrentSection()
MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
& " words in current section.")
End Sub
- Végül kattintson a „Futtatás” gombra, vagy nyomja meg az „F5” gombot a kódok végrehajtásához.
Üzenetdobozt fog kapni, amely az aktuális szakaszok teljes számát mutatja, például az alábbiak szerint:
2. módszer: Számolja meg a szavak számát egy adott szakaszhoz
Tegyük fel, hogy egy könyvön dolgozik, és minden fejezetet külön szakaszként állít be. Ha meg szeretné tudni, hány szót írt egy fejezetbe, használhatja ezt a módszert.
- Kövesse a fenti lépéseket a makró telepítéséhez és futtatásához.
- Cserélje ki a makrót erre:
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
- És futtatva lesz egy beviteli doboz. A „Szakaszszám megadása” mezőbe írja be a szakasz számát, és kattintson az „OK” gombra a továbblépéshez.
Az eredmény egy üzenetdobozban jelenik meg.
3. módszer: Számolja meg a szavak számát a dokumentum összes szakaszához
Ahogy az alcím is sugallja, ezzel a módszerrel megkapja a dokumentum egyes szakaszaihoz tartozó szavak számát, és egy üzenetdobozban listázza őket.
- Először is, nyisd meg a céldokumentumot.
- Ennek ellenére meg kell ismételnie az 1. módszer lépéseit a makró telepítéséhez és futtatásához.
- És ezúttal változtasson ezzel a makróval:
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
Íme a lehetséges eredmény:
Értékes adatok mentése
Mindenféle dokumentum kezelése során ügyelni kell azok biztonságára. Mivel soha nem lehet megmondani, hogy mikor következik be a következő adatvesztés, javasoljuk, hogy készítsen biztonsági másolatot a fontos fájlokról. Emellett mindig jó olyan eszközt beszerezni, amely képes rá gyógyuljon meg doki, ha van ilyen.
Szerző Bevezetés:
Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xls javítás és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com