Tämänpäiväisessä viestissä jaamme mielellämme kanssanne kaksi tehokasta menetelmää taulukkotekstien poissulkemiseksi sanamäärätilastoista.
Taulukoita käytetään yleensä tietojen pitämiseen. Ja taulukot ovat paras ystävämme havainnollistaessa asioita asiakirjan parissa. Sitten se voi olla hieman hankala, kun sanamäärä on mukana. Joskus meidän on vain saatava päätekstien sanojen määrä eikä kaikkia taulukoissa olevia tietoja. Silti kaikkien tiedetään, että Word laskee oletusarvoisesti kaikki asiakirjan sanat. Tästä syystä olemme keksineet tehokkaita keinoja. Lue lisää saadaksesi lisätietoja.
Tapa 1: Valitse taulukot manuaalisesti ja tee matematiikka itse
Jos kyseessä on lyhyt asiakirja, jossa on vain yksi tai kaksi taulukkoa, ei ole hätää valita taulukoita yksitellen pitämällä Ctrl-näppäintä painettuna. Tässä lähestymistavassa valittujen taulukoiden kokonaismäärä näkyy tilarivillä, kuten paljasta:
Kuten näette, numeroita on 2. Ensimmäinen viittaa valittujen taulukoiden sanamäärään, kun taas toinen on asiakirjan sanojen kokonaismäärä. Käytä vain toista numeroa miinus ensimmäinen saadaksesi tuloksen.
Tapa 2: Suorita VBA-koodit
Kuten edellä mainittiin, menetelmä 1 on tylsä, jos asiakirjassa on paljon taulukoita. Niiden valitseminen manuaalisesti ei todellakaan ole ihanteellinen tapa. Sen sijaan suosittelemme makroa, joka laskee kaikki sanat, mutta sulkee ne pois taulukoista ja tekstityksistä.
- Ensinnäkin, paina "Alt + F11" avataksesi VBA-editorin Wordissa.
- Napsauta sitten “Normaali”.
- Napsauta sitten Lisää-välilehteä.
- Ja valitse Lisää-välilehden avattavasta valikosta Moduuli.
- Kaksoisnapsauta uutta moduulia avataksesi koodausalueen oikealla puolella.
- Liitä nyt seuraava makro sinne:
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
- Napsauta lopuksi Suorita.
Makron suorittaminen avaa viestiruudun, jossa näkyy laskentatulos.
Käsittele sanavahinkoja
Luotamme niin paljon ohjelmiin, kuten Word, prosessoidaksemme työtä päivittäin. Tämän seurauksena emme voineet paljasta ajatella ylivoimaisen seurauksen saamisesta Sanan korruptio. Voit tuntea epätoivoista, ellei sinulla ole riittävästi asiakirjojen korjaustyökalua.
Tekijän esittely:
Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien xls korjata ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com