Tässä artikkelissa on 3 tapaa, joilla voit laskea Word-asiakirjan osien sanamäärän.
Asiakirjan sanojen kokonaismäärä on helppo saada. Mutta Wordissa ei ole toimintoa, joka kertoisi meille osan sanojen lukumäärän. Ja kun otetaan huomioon se, että mieluummin laitamme saman aiheen sisällön yhteen osioon, kuten luvun järjestämiseen kirjoittaessamme kirjaa, on välttämätöntä, että keksimme kiertotavat saadaksemme osastojen määrän. 
Seuraavassa on 3 lähestymistapaa, jotka edellyttävät makron suorittamista.
Tapa 1: Laske nykyisen osan sanojen määrä
- Ensin aseta kursori kohdealueen sisälle.
- Sitten sinun on avattava VBA-editori Wordissa. Napsauta “Developer” ja sitten “Visual Basic” -komento. Jos et löydä kehittäjää valintanauhasta, paina sen sijaan Alt + F11.
- Napsauta sitten vasemmassa sarakkeessa “Normaali” -projektia.
- Napsauta sitten Lisää-välilehteä.
- Valitse avattavasta valikosta "Moduuli".
- Avaa uusi moduuli kaksoisnapsauttamalla.
- Liitä nyt avoimeen moduuliin jyrkät koodit:
Sub CountWordsOfCurrentSection()
MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
& " words in current section.")
End Sub
- Lopuksi napsauta "Suorita" tai paina "F5" suorittaaksesi koodit.
Saat viestiruudun, joka näyttää nykyisen osion kokonaismäärän, kuten alla:
Tapa 2: Laske tietyn osan sanojen määrä
Oletetaan, että olet työskennellyt kirjan parissa ja asettanut jokaisen luvun erilliseksi osaksi. Sitten voit käyttää tätä menetelmää tietääksesi kuinka monta sanaa olet kirjoittanut lukuun.
- Asenna ja suorita makro noudattamalla yllä olevia ohjeita.
- Korvaa vain makro tällä:
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
- Ja kun sitä käytetään, siellä on syöttölaatikko. Kirjoita "Anna osanumero" -ruutuun osan numero ja napsauta "OK" siirtyäksesi eteenpäin.
Tulos näkyy viestiruudussa.
Tapa 3: Laske asiakirjan kaikkien osien sanojen määrä
Kuten alaotsikosta käy ilmi, tällä tavoin saat asiakirjan kunkin osan sanojen kokonaismäärän ja luetat ne viestikentässä.
- Ensinnäkin, avaa kohdedokumentti.
- Silti sinun on toistettava menetelmän 1 vaiheet makron asentamiseksi ja suorittamiseksi.
- Ja tällä kertaa vaihda tällä makrolla:
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
Tässä on mahdollinen tulos:
Tallenna arvokasta tietoa
Käsitellessäsi kaikenlaisia asiakirjoja sinun on pidettävä mielessä niiden turvallisuus. Koska et voi koskaan kertoa, milloin seuraava tietojen menetys tapahtuu, on suositeltavaa varmuuskopioida tärkeät tiedostot. Lisäksi on aina hyvä hankkia työkalu, joka pystyy palauta asiakirja, jos mitään.
Tekijän esittely:
Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien xls-korjaus ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com