In dit artikel worden er 3 methoden beschreven waarmee u het aantal woorden voor secties in uw Word-document kunt tellen.
Het is gemakkelijk om het totale aantal woorden van een document te achterhalen. Maar er is geen functie in Word om ons het aantal woorden van een sectie te vertellen. En gezien het feit dat we de inhoud van hetzelfde onderwerp liever in één sectie plaatsen, zoals het organiseren van een hoofdstuk tijdens het schrijven van een boek, is het noodzakelijk dat we oplossingen bedenken om de sectie te laten tellen. 
Hieronder volgen drie benaderingen waarvoor u een macro moet uitvoeren.
Methode 1: tel het aantal woorden voor de huidige sectie
- Plaats allereerst de cursor in het gewenste gedeelte.
- Vervolgens moet u de VBA-editor in Word openen. Klik op "Developer" en vervolgens op de "Visual Basic" -opdracht. Als u "Developer" niet in het lint kunt vinden, drukt u in plaats daarvan op "Alt + F11".
- Klik vervolgens op “Normaal” project in de linkerkolom.
- Klik vervolgens op het tabblad "Invoegen".
- Kies "Module" in dat vervolgkeuzemenu.
- Open een nieuwe module door te dubbelklikken.
- Plak nu balgcodes in de open module:
Sub CountWordsOfCurrentSection()
MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
& " words in current section.")
End Sub
- Klik ten slotte op "Uitvoeren" of druk op "F5" om codes uit te voeren.
U ontvangt een berichtvenster met het totale aantal huidige secties, zoals hieronder:
Methode 2: tel het aantal woorden voor een specifieke sectie
Stel dat u aan een boek hebt gewerkt en dat u elk hoofdstuk als een afzonderlijke sectie hebt ingesteld. Om vervolgens te weten hoeveel woorden u in een hoofdstuk hebt geschreven, kunt u deze methode gebruiken.
- Volg bovenstaande stappen om een macro te installeren en uit te voeren.
- Vervang de macro gewoon door deze:
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
- En als je het uitvoert, zal er een invoerveld zijn. Voer in het vak “Sectie nummer invoeren” het sectienummer in en klik op “OK” om verder te gaan.
Het resultaat wordt weergegeven in een berichtvenster.
Methode 3: tel het aantal woorden voor alle secties in een document
Zoals de ondertitel suggereert, krijgt u op deze manier het totale aantal woorden van elke sectie in een document en vermeldt u deze in een berichtvenster.
- Open allereerst het doeldocument.
- Toch moet u de stappen in methode 1 herhalen om de macro te installeren en uit te voeren.
- En verander deze keer met deze macro:
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
Hier is het mogelijke resultaat:
Bewaar waardevolle gegevens
Bij het behandelen van allerlei soorten documenten moet u rekening houden met de veiligheid ervan. Aangezien u nooit weet wanneer het volgende gegevensverlies zal plaatsvinden, wordt aangeraden een back-up te maken van belangrijke bestanden. Bovendien is het altijd goed om een tool te kopen die dat kan herstellen doc, indien aanwezig.
Auteur Introductie:
Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder xls reparatie en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com