Šodienas ierakstā mēs ar prieku dalāmies ar jums divās efektīvās metodēs, kā izslēgt tabulu tekstus no vārdu skaita statistikas.
Datu glabāšanai parasti izmanto tabulas. Un tabulas ir mūsu labākais draugs, lai ilustrētu punktus, strādājot pie dokumenta. Tad tas var kļūt nedaudz neērts, ja ir iesaistīts vārdu skaits. Dažreiz mums vienkārši jāsaņem galveno tekstu vārdu skaits, nevis visi tabulās esošie dati. Tomēr visiem ir zināms, ka Word pēc noklusējuma skaita visus vārdus jūsu dokumentā. Šī iemesla dēļ mēs esam izdomājuši efektīvus līdzekļus. Lasiet tālāk, lai uzzinātu vairāk.
1. metode: atlasiet tabulas manuāli un veiciet matemātiku pats
Ja tas ir īss dokuments ar tikai vienu vai divām tabulām, nav jāuztraucas izvēlēties tabulas pa vienam, turot nospiestu taustiņu “Ctrl”. Šajā pieejā statusa joslā būs redzams kopējais atlasīto tabulu skaits, piemēram, zemāk:
Kā redzat, ir 2 cipari. Pirmais attiecas uz vārdu skaitu atlasītajās tabulās, bet otrais ir kopējais vārdu skaits jūsu dokumentā. Vienkārši izmantojiet otro skaitli, lai atņemtu pirmo, lai iegūtu rezultātu.
2. metode: palaidiet VBA kodus
Kā minēts iepriekš, 1. metode būs garlaicīga, ja jūsu dokumentā ir liels skaits tabulu. Manuāli tos atlasīt noteikti nav ideāls veids. Tā vietā mēs iesakām jums makro, kas uzskaitīs visus vārdus, bet izslēgs tos tabulās un parakstos.
- Pirmkārt un galvenokārt, nospiediet taustiņu kombināciju “Alt+F11”, lai atvērtu VBA redaktoru programmā Word.
- Pēc tam noklikšķiniet uz “Normal”.
- Pēc tam noklikšķiniet uz cilnes Ievietot.
- Cilnes “Ievietot” nolaižamajā izvēlnē izvēlieties “Modulis”.
- Veiciet dubultklikšķi uz jaunā moduļa, lai labajā pusē atvērtu kodēšanas apgabalu.
- Tagad tur ielīmējiet šādu 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
- Visbeidzot, noklikšķiniet uz “Palaist”.
Palaidot makro, tiek parādīts ziņojuma lodziņš, kurā parādīti skaitīšanas rezultāti.
Nodarbojieties ar vārdu bojājumiem
Mēs tik ļoti paļaujamies uz programmatūru, piemēram, Word, lai ikdienā apstrādātu darbu. Tā rezultātā mēs nevarējām atkailināties, domājot par pārliecinošām sekām, ja mums ir Vārdu korupcija. Jūs varat justies izmisis, ja vien jums nav pietiekama dokumentu labošanas rīka.
Autora ievads:
Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp xls salabot un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar