Tänases postituses jagame teiega rõõmuga kahte tõhusat meetodit tabelitekstide sõnade arvu statistikast väljajätmiseks.
Andmete hoidmiseks kasutatakse tavaliselt tabeleid. Ja tabelid on meie parim sõber punktide illustreerimisel dokumendi kallal töötades. Siis võib see sõnade arvuga seotud küsimustes pisut ebamugavaks muutuda. Mõnikord peame lihtsalt saama põhitekstide sõnade arvu, mitte kõiki tabelites olevaid andmeid. Siiski on kõigile teada, et Word loeb vaikimisi kõik teie dokumendi sõnad. Sel põhjusel oleme välja mõelnud tõhusad vahendid. Lisateabe saamiseks lugege edasi.
1. meetod: valige tabelid käsitsi ja tehke matemaatika ise
Kui see on lühike dokument, milles on vaid üks või kaks tabelit, ei ole probleemiks valida tabeleid ükshaaval, hoides all klahvi "Ctrl". Selle lähenemisviisi korral on valitud tabelite koguarv olekuribal nähtav, näiteks allpool:
Nagu näete, on 2 numbrit. Esimene viitab valitud tabelite sõnade arvule, teine aga sõnade koguarvule teie dokumendis. Tulemuse saamiseks kasutage lihtsalt teist numbrit, et esimene miinus.
2. meetod: käivitage VBA koodid
Nagu eespool mainitud, on 1. meetod tüütu, kui dokumendis on palju tabeleid. Nende käsitsi valimine pole kindlasti ideaalne viis. Selle asemel soovitame kasutada makrot, mis loeb kõik sõnad, kuid jätab need tabelites ja pealdistes välja.
- Esiteks ja kõige tähtsam on Wordi VBA redaktori käivitamiseks vajutada klahvikombinatsiooni „Alt + F11”.
- Seejärel klõpsake nuppu "Tavaline".
- Järgmisena klõpsake vahekaarti "Sisesta".
- Ja valige vahekaardi "Sisesta" rippmenüüst "Moodul".
- Topeltklõpsake uut moodulit, et avada paremal pool kodeerimisala.
- Nüüd kleepige sinna järgmine makro:
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
- Lõpuks klõpsake nuppu „Käivita“.
Makro käivitamisel avaneb teatekast, mis näitab loenduse tulemust.
Tegelege Wordi kahjudega
Toetume igapäevaseks töö töötlemiseks nii palju tarkvarale nagu Word. Selle tulemusena ei suutnud me mõeldagi a Sõnade korruptsioon. Võite tunda end meeleheitel, kui teil pole piisavalt dokumentide parandamise tööriista.
Autori sissejuhatus:
Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas xls parandada ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom