Šiandienos įraše džiaugiamės galėdami pasidalinti su jumis dviem veiksmingais metodais, kaip neįtraukti lentelių tekstų į žodžių skaičiaus statistiką.
Lentelės dažniausiai naudojamos duomenims laikyti. O lentelės yra geriausias mūsų draugas iliustruojant taškus dirbant su dokumentu. Tada gali būti šiek tiek nepatogu, kai kalbama apie žodžių skaičių. Kartais mums tiesiog reikia gauti pagrindinių tekstų žodžių skaičių, o ne visus duomenis lentelėse. Vis dėlto visiems žinoma, kad Word pagal numatytuosius nustatymus skaičiuoja visus jūsų dokumento žodžius. Dėl šios priežasties mes sugalvojome efektyvių priemonių. Skaitykite toliau, kad sužinotumėte daugiau.
1 būdas: pasirinkite lenteles rankiniu būdu ir atlikite matematiką patys
Jei tai trumpas dokumentas, kuriame yra tik viena ar dvi lentelės, lengva pasirinkti lenteles po vieną laikant nuspaustą klavišą „Ctrl“. Taikant šį metodą, bendras skaičius pasirinktose lentelėse bus matomas būsenos juostoje, pvz., toliau:
Kaip matote, yra 2 skaičiai. Pirmasis nurodo žodžių skaičių pasirinktose lentelėse, o antrasis – bendrą žodžių skaičių jūsų dokumente. Tiesiog naudokite antrąjį skaičių, atėmę pirmąjį, kad gautumėte rezultatą.
2 būdas: paleiskite VBA kodus
Kaip minėta pirmiau, 1 metodas bus varginantis, jei dokumente yra daug lentelių. Pasirinkti juos rankiniu būdu tikrai nėra idealus būdas. Vietoj to rekomenduojame naudoti makrokomandą, kuri skaičiuos visus žodžius, bet neįtrauks į juos lentelėse ir antraštėse.
- Visų pirma, paspauskite „Alt“ + F11, kad iškviestumėte VBA redaktorių programoje „Word“.
- Tada spustelėkite „Normalus“.
- Tada spustelėkite skirtuką „Įterpti“.
- Ir skirtuko „Įterpti“ išskleidžiamajame meniu pasirinkite „Modulis“.
- Dukart spustelėkite naują modulį, kad atidarytumėte kodavimo sritį dešinėje.
- Dabar ten įklijuokite šią makrokomandą:
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
- Galiausiai spustelėkite „Vykdyti“.
Vykdant makrokomandą, pasirodys pranešimų laukelis, kuriame rodomas skaičiavimo rezultatas.
Susidoroti su Word žala
Mes labai pasikliaujame tokia programine įranga kaip Word, kad galėtume kasdien apdoroti darbus. Dėl to negalėjome susimąstyti apie didžiules pasekmes, atsiradusias dėl a Žodžių korupcija. Galite jaustis beviltiškai, nebent turite pakankamai dokumentų taisymo įrankio.
Autoriaus įvadas:
Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant xls pataisymas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com